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This  user's  manual  contains  both  a user-oriented  guide  to 
Design  of  Training  Systems  (DOTS)  software  use  and  applica- 
tion and  programmer-oriented  DOTS  software  descriptions.  The 
major  DOTS  subsystems  addressed  Include  the  DOTS  data  base  and 
maintenance  system,  the  System  Capabllltles/Requlrements  and 
Resources  (SCRR)  Model,  and  the  Training  Process  Flow  (TPF) 
model. 


The  user-oriented  sections  contain  discussions  of  subsystem 
architecture,  design  assumptions,  Input  requirements  and  out- 
put parameters.  Procedures  are  provided  for  pre-application 
system  test  and  for  operational  use.  Both  administrative  and 
operational  maintenance  procedures  are  presented  In  the  DOTS 
data  base  section. 


The  programmer-oriented  sections  present  program  descriptions 
and  macro  flows.  Input/output  data  formats  (where  applicable), 
and  program  source  code  listings  for  each  subsystem  (the  two 
models  and  the  data  base).  The  Information  contained  In 
these  sections  Is  Intended  for  use  by  programmers  tasked 
with  Installing,  modifying,  or  maintaining  the  DOTS  software. 


The  programs  described  In  this  manual  were  developed  by  IBM 
Corporation  for  the  Training  Analysis  and  Evaluation  Group, 
Orlando,  Florida  (Contract  No.  N61339-73-C-0097). 
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| I SECTION  I 


INTRODUCTION 


PURPOSE 

This  manual  provides  two  levels  of  information  on  the  Design  of  Training 
Systems  (DOTS)  models  and  the  DOTS  data  base.  The  purpose  of  the  first 
portion  of  the  manual  is  to  familiarize  the  non-ADP  user  of  the  DOTS  soft 
1 ware  with  the  operation  of  the  models  and  data  base.  Operational  aspects  of 

the  models  and  data  base  are  developed  without  detailed  treatment  of  the 
design  rationale  or  specific  programming  techniques  employed  in  their 
V implementation.  The  second  half  of  the  manual  outlines  explicit  program- 

ming details.  The  level  of  detail  presented  in  these  sections  will  provide 
a technical  base  for  programmers  intending  to  install  or  modify  the  DOTS 
software. 

■ 

i ORGANIZATION 

A 

The  TRAPAC  User's  Manual  is  organized  into  seven  major  sections  covering 
operational  and  programming  aspects  of  the  DOTS  data  base,  the  Training 
Process  Flow  (TPF)  model,  and  the  System  Capabilities  Requirements  and  Re- 
, sources  (SCRR)  model.  The  two  models  function  independently  and  the  data 

base  (although  it  serves  both  the  SCRR  and  the  TPF  models)  can  also  be  con- 
sidered as  an  independent  subsystem.  Therefore,  coverage  of  each  of  the 
models  and  the  data  base  is  found  in  separate  sections. 

Section  II,  the  DOTS  data  base  user  guide,  covers  the  structure  of  the 
' data  base  including  the  data  hierarchy  employed  in  its  construction. 

Operational  procedures  are  divided  into  three  types:  the  procedures  neces- 

i sary  to  record  the  maintenance  data  on  a WANG  data  cassette  at  the  activity 

level,  procedures  for  transmitting  the  maintenance  data  via  telecommunica- 
tions to  the  timesharing  environment,  and  procedures  for  processing  the 
maintenance  data  in  the  timesharing  environment. 

i 

♦ 

Sections  III  and  IV,  which  deal  with  the  operational  aspects  of  the  models, 
are  all  organized  similarly  and  Include  subsections  on  model  architecture, 
operational  procedures  and  operational  test.  The  model  architecture  section 
describes  the  model  for  the  user  in  terms  of  model  functions,  significant 
design  assumptions,  input  data  requirements  and  output  data  descriptions. 
Operational  procedures  are  covered  as  they  relate  specifically  to  the 
individual  models  and  contain  the  steps  necessary  to  apply  the  models  to 
appropriate  problems.  Operational  tests  are  specified  to  the  extent  neces- 
sary to  assess  system  functional  integrity  but  do  not  cover  tests  to  deter- 
mine the  validity  of  the  system  in  specific  applications. 

Sections  V,  VI,  and  VII  provide  the  detailed  programming  aspects  of  the  DOTS 
software  system.  The  data  base  is  covered  in  Section  V,  the  TPF  model  In 
Section  VI,  and  the  SCRR  model  in  Section  VII.  The  descriptions  within 
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these  sections  encompass  a textual  and  pictorial  or  graphical  discussion 
accompanied  by  detailed  program  listings  of  the  subsystem  components. 

SYSTEM  APPLICATION/OVERVIEW 

The  DOTS  system  consists  of  two  models  supported  by  a three-file  data 
base.  Each  model  is  of  a different  type  and  addresses  a distinct  facet 
in  the  development  and  management  of  training  courses  and  systems.  Figure 
1-1  is  a functional  level  diagram  of  the  DOTS  system  showing  the  interaction 
of  the  models  and  the  data  base. 

The  DOTS  system  is  an  interactive  system.  Each  of  the  two  models  and 
the  data  base  can  be  updated  and  used  via  terminal  equipments  in  conmunica- 
tion  with  a timesharing  computer  system.  A brief  description  of  the  models 
is  presented  here.  Detailed  information  on  the  models  is  contained  in  the 
body  of  this  manual  in  Sections  HI,  IV,  VI,  and  VII.  The  three  major 
parts  of  the  system  are: 

a)  Training  Process  Flow  (TPF)  model.  The  TPF  model  is  an  aggre- 
gate flow  model  designed  to  project  the  effect,  on  training 
system  output,  of  changes  in  demand,  scheduling,  course  capacity, 
and  utilization. 

b)  System  Capabilities  Requirements  and  Resources  (SCRR)  model. 

A linear  programing  model  designed  to  determine  the  maximum 
student  throughput  for  a training  complex,  based  on  an  optimal 
mix  of  course  convenings  and  available  resources. 

c)  The  DOTS  data  base  provides  a common,  direct  access  data  source 
for  both  the  SCRR  and  TPF  models.  The  DOTS  data  base  was  con- 
structed and  is  accessed  via  the  RAMIS'  system,  a data  base 
language  developed  by  Mathematica,  Inc. 

GENERAL  SYSTEM  PROCEDURES 

Detailed  procedures  for  model  and  data  base  operations  are  contained  in 
Sections  II,  III,  and  IV  of  this  manual.  General  procedures  are  those 
which  deal  directly  with  the  timesharing  system.  Procedures  such  as 
login,  typing  conventions  and  system  level  error  recovery  are  Included  in 
the  category  of  general  procedures.  It  is  assumed  that  the  user  will 
familiarize  himself  with  the  basic  procedures  for  using  the  timesharing 
system  prior  to  any  attempt  to  use  the  DOTS  system  itself. 

General  system  procedures  are  covered  in  the  documentation  provided  as  a 
part  of  the  support  supplied  by  National  CSS.  The  user  should  be  acquainted 
with  the  following  National  CSS  documents: 
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A Guide  to  the  National  CSS  Computer  System  for  Application 
Product  Users  (NCSS  Form  991),  Sections  1 and  7 specifically. 

VP/CSS  Edit  Command  (NCSS  Form  108). 

VP/CSS  Executive  Language  (EXEC)  (NCSS  Form  109). 

VP/CSS  Reference  Manual  (NCSS  Form  106). 

MPS  III  User  Manual  (Reprinted  by  NCSS). 

Basic  system  operations  such  as  login,  initial  program  load,  system  inter- 
rupts, etc.,  are  covered  in  NCSS  Form  991  (see  above).  Sections  1 and  7. 
Consequently,  they  will  not  be  reproduced  in  this  User's  Manual. 

In  addition  to  the  above  documents,  the  following  Mathematlca,  Inc., 
publication  is  vital  to  understanding  and  use  of  the  RAMIS  data  base  system: 

RAMIS  User's  Guide  (Parts  1,  2,  and  3). 

In  addition  to  the  timesharing  system  documentation,  the  user  should  also 
be  familiar  with  the  WANG  2200  System  Reference  Manual,  which  is  a quick  and 
easy  reference  guide  concerning  the  operation  of  the  WANG  System  2200. 

EQUIPMENT  ENVIRONMENT 

All  DOTS  programs  are  designed  to  run,  in  an  interactive  mode,  on  a remote 
time-shared  computer.  Timesharing  services  and  support  were  obtained  on 
a lease  basis  from  National  CSS,  Inc.,  Norwalk,  Connecticut.  The  National 
CSS  system  is  described  further  under  Program  Environment. 

As  currently  configured,  the  DOTS  system  uses  thirty  cylinders  on  on-line 
disk  storage  and  runs  in  a 320K  byte  partition  of  main  memory. 

Figure  1-1  depicts  keyboard  input  and  printer  output  at  the  user  site. 

These  two  input/output  capabilities  are  necessary  to  use  the  DOTS  system. 

The  terminals  are  connected  to  a dial-up  telephone  line  via  a standard  modem. 
Further  information  relative  to  the  different  types  of  terminal  equipment 
which  can  be  employed  in  conjunction  with  the  timesharing  support  should  be 
obtained  from  National  CSS,  Inc.  The  procedures  outlined  in  this  manual  pre- 
sume hardMre  support  at  the  user  site  as  indicated  on  Figure  1-1. 

The  WANG  fwnputer  system  illustrated  on  Figure  1-1  includes  the  following 
minimal  h^dware: 

WANG  2200  Series  Central  Processor  Unit  (CPU),  16K  Byte  Memory. 
Keyboard/CRT  Display/Single  Tape  Cassette  Drive. 

Model  2227  Asychronous  Telecommunications  Controller. 
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The  WANG  computer  system  is  required  to  make  a data  base  transaction  tape. 
The  transmission  of  such  a tape  from  the  user  site  to  the  NCSS  computer 
input  transaction  file  also  requires  the  WANG  system.  The  WANG  system 
has  been  programmed  to  perform  as  a passive  keyboard  ASCII  terminal  and 
can  be  used  in  this  role  in  lieu  of  the  other  keyboard  terminals  shown  on 
Figure  1-1. 

The  IBM  2741  and  TELETERM  10302  terminals  shown  on  Figure  1-1  can  be 
used  to  initiate  and  control  all  DOTS  procedures  except  those  explicitly 
concerned  with  the  makeup  and  transmission  of  the  input  transaction  tape. 

PROGRAM  ENVIRONMENT 

In  addition  to  the  National  CSS  timesharing  software,  the  DOTS  system 
employs  several  other  program  packages,  all  of  which  run  under  control 
of  the  VP/CSS3  system.  The  program  packages  are: 

Mathematical  Programming  System  III:  MPS  III4 

Rapid  Access  Management  Information  System:  RAMIS$ 


V 


^Trademark  of  Computer  Devices,  Inc. 

^Trademark  of  National  CSS,  Inc. 

^Trademark  of  Management  Science  Systems,  Inc. 
^Trademark  of  Mathematics,  Inc. 
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SECTION  II 


DOTS  DATA  BASE 
USER'S  GUIDE 


INTRODUCTION 

The  DOTS  data  base  user's  guide  is  organized  into  the  following  seven  sub- 
sections: 

a.  Data  base  architecture 

b.  Data  base  structure 

c.  Data  base  data  field  contents 

d.  Data  base  maintenance  procedures 

e.  Maintenance  data  entry  procedures 

f.  Procedures  for  transmission  of  WANG  data  cassette  to  NCSS  environment 

g.  Procedures  for  processing  change  data  files  at  NCSS  level 

The  first  four  subsections  contain  general  background  information  on  the  DOTS 
data  base.  The  last  three  subsections  present  detailed  operating  procedures 
for  performing  data  base  maintenance. 

DATA  BASE  ARCHITECTURE 

The  DOTS  data  base  consists  of  three  independent  data  bases: 

o A Facilities  data  base  (FACIL)  which  describes  the  physical  facilities 
assigned  to  each  course. 

o A Course  data  base  (COURSE)  which  describes  attributes  and  instructor 
assignments  for  each  course. 

o An  Instructor  data  base  (INST)  which  contains  personnel  information 
and  time  utilization  information  for  each  instructor. 

The  three  data  bases  support  the  DOTS  TPF  and  SCRR  models  and  provide  data 
management/ report  generation  capability  to  the  User. 

The  data  bases  are  implemented  using  RAMIS  (Rapid  Access  Management  Information 
System).  RAMIS  uses  hierarchical  (or  "tree-structured")  files.  In  addition  to 
increasing  storage  and  data  maintenance  efficiency,  this  structuring  is  concep- 
tually most  natural.  Consider,  for  example,  a very  simple  data  base  consisting 
of:  (1)  school  code;  (2)  courses  in  each  school  (CDP  numbers);  and  (3)  in- 

structors assigned  to  teach  each  course.  A graphic  comparison  of  tree- 
structured  vs.  unstructured  design  of  this  sample  data  base  Is  shown  below. 
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Unstructured  (Sample  Data  Safe) 


School 

CDP 

1 r 

| AC&R  | 

1 4552  \- 

Fac&r  | 

1 4552  h 

I AC&R  | 

1 4523  |- 

Hsu  i — 

1 9009  h 

Instructor  ID 
438160945  — 
{^03252817}— 
{J68298870}— 
^ 203252811  — 
j 1971 05968  | — 


Instructor  Name 
~ Brown 
— | Smi th~ 

— | Jones  ~1 
— | Smith  | 

— ( White  | 


Tree-Structured  (Sample  Data  Base) 


School 


CDP 


Instructor  ID  Instructor  Name 


AC&R 


4552 


ASW 


4523 

9009 


438160945 


203252811 


168293870 


197105968 


203252811  H 


H 


Brown 


Smi  th 


H Jones 


Smi  th 


White 


The  tree-structuring: 

o Requires  less  storage.  Higher  level  information  need  be  stored  only 
once  rather  than  multiple  times. 

o Increases  data  management  efficiency,  since  processing  of  redundant 
data  is  minimized  or  eliminated. 


A field  in  a tree-structured  file  is  a unit  of  information  in  the  data  base. 
In  the  sample  data  base,  there  are  four  fields:  (1)  school:  (2)  CDP;  (3) 

instructor  ID;  and  (4)  instructor  Name. 


A "level"  consists  of  all  the  fields  in  a single  branch  of  the  structure.  In 
the  sample  data  base,  there  are  three  levels:  (1)  school;  (2)  CDP;  and  (3) 

Instructor  ID  and  instructor  name.  The  "highest"  level  is  level  1;  the 
"lowest"  level  (in  the  example  above)  is  level  3. 

A "segment"  is  a single  occurrence  of  a group  of  data  at  a single  level.  For 
Instance,  in  the  file  above  the  AC&R  school  has  two  subordinate  CDP  segments. 

same  sc^00^ » CDP  segment  4552  controls  three  lower  level  segments;  CDP 
4523  controls  a single  level  3 segment. 
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One  field  within  each  segment  is  designated  a "key  field."  The  data  content 
of  this  field  serves  to  make  the  segment  unique.  In  the  sample  data  base 
above,  school  code  would  be  key  at  the  highest  level.  The  level  2 key  would 
be  CDP  number.  For  level  3,  instructor  10  would  serve  to  distinguish  each 
segment  at  that  level. 

STRUCTURES  OF  THE  THREE  DOTS  DATA  BASES 

The  following  depicts  pictorially  the  structure  of  the  DOTS  Facilities  file 
(filename  = FACIL). 


LEVEL  1 LEVEL  2 


DOTS  FACILITIES  FILE  - HIERARCHIC  STRUCTURE 

Each  level  1 segment  may  control  several  level  2 segments.  The  key  field 
at  the  highest  level  (level  1)  is  course  CDP  number.  The  level  2 key  is 
building  number. 

A Dictorial  representation  of  the  DOTS  Instructor  file  (filename  = INST) 
follows.  Note  that  this  file  essentially  has  no  "hierarchic"  structure  since 
all  of  the  data  exists  on  a single  level.  The  key  field  controlling  the 
single  high-level  INST  segment  is  instructor  ID  (Social  Security  Number). 


u 
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LEVEL  1 


I 


> 

DOTS  INSTRUCTOR  FILE  - HIERARCHIC  STRUCTURE 


In  the  diagram  following,  the  DOTS  Course  file  (filename  = COURSE)  structure 
is  shown.  The  high  level  key  field  is  course  CDP.  The  diagram  indicates 
blank  boxes  for  second  level  segments.  This  is  intended  to  illustrate  that 
the  second  level  segment  can  be  one  of  two  distinct  types.  A level  2 segment 
contains  three  data  fields.  The  use  of  these  fields  is  shown  in  the  two 
boxes  to  the  far  right. 
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DOTS  COURSE  FILE 


- HIERARCHIC  STRUCTURE 


) 


I 

( , 

| \ 

l 

I I 


LEVEL  t 


LEVEL  2 


COURSE  CODE 
SCHOOL  CODE 
DELETE  FLAG 
CATALOG  NO. 

COURSE  NO. 
CONVENING  1 
LENGTH  1 
CAPACITY  1 
BUREAU  CAP  1 
DEMAND  1 
BUREAU  DEMAND  1 
OFFSET 
% FAIL 
% NAOIS 
% NOSHOW 
SETBACK 
BACKLOG 
CONVENING  2 
LENGTH  2 
CAPACITY  2 
BUREAU  CAP  2 
DEMAND  2 
BUREAU  DEMAND  2 
CHG  WEEK  2 
CONVENING  3 
LENGTH  3 
CAPACITY  3 
BUREAU  CAP  3 
DEMAND  3 
BUREAU  DEMAND  3 
CHG  WEEK  3 
PLANNED  AOB 
PLANNED  FAILURE 
PRIORITY 
COURSE  TYPE 
PRIMARY  NEC 
% UTILIZE  CAP 
% UTILIZE  DEMAND 
FTC  PRIORITY 
REVISION  DATE 
HISTORICAL  SETBACK 
TOTAL  INSTR  REO'D 
CCMM 

STUDENT  UIC 
MAX  CAPACITY 
MIN  CAPACITY 
OPTIONAL  FIELD  1 
OPTIONAL  FIELD  2 
OPTIONAL  FIELD  3 
EQUIPMENT  CAPACITY 
SPACE  CAPACITY 
PERS  CAPACITY 


/ ' 
/ ^ 


STUD/INSTR 

RATIO 

CONTACT  HRS 
LAB/LECTURE 


INSTRUCTOR  ID 
% QUALIFY 
ASSIGNED 


I 


« 


[ 


l 
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In  the  discussions  following,  the  level  2 segments  of  the  COURSE  file  are 
called  "student/instructor  ratio' (SIR)"  segments  or  "instructor"  segments. 

The  first  field  of  the  level  2 segment  is  key.  The  content  of  this  field 
also  determines  the  type  of  segment.  A SIR  is  a numeric  quantity  that 
will  not  exceed  999  in  value.  An  instructor  ID  (Social  Security  Number)  will 
always  exceed  999.  Three  numeric  fields  are  found  in  a COURSE  level  2 segment. 
The  meaning  is  as  follows: 


RAMIS 

Field  Name 

Instructor  Segment:  FI 

F2 

F3 

SIR  Segment:  FI 

F2 

F3 


Field  Usage 
Instructor  ID 

Instructor  qualification  percentage 

Instructor  assignment  flag 

Student/instructor  ratio  (SIR) 

Student  contact  hours  at  the  indi- 
cated SIR 

Laboratory/lecture  flag 
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DATA  BASE  DATA  FIELD  CONTENTS 

As  indicated  in  Figure  I - 1 , an  interactive  program  has  been  provided  to  enable 
the  user  to  maintain  the  DOTS  data  base.  All  of  the  data  items  which  are 
subject  to  periodic  maintenance  are  listed  in  the  following  tables: 


MAINTENANCE 
PROGRAM  REFERENCE 

RAMIS 

FIELD  NAME 

FORM 

DEFINITION 

BUILDING  NUMBER 

BLDG 

AAAA 

The  name  or  number  of  the  building  in  which 
a classroom  or  laboratory  space  is  located. 

ROOM  NUMBER 

RM 

AAAA 

The  name  or  number  of  a classroom  or 
laboratory  space. 

ROOM  CAPACITY 

RMCAP 

NNN 

The  number  of  permanent  seats,  lab  positions, 
trainer  positions,  etc.,  which  can  be  util- 
ized by  students. 

ROOM  TYPE 

RMPT 

N 

The  type  of  training  for  which  the  space 
is  utilized  and  is  coded  as  follows: 

1 - used  for  theory 

2 - used  for  lab 

3 - used  for  theory  and  lab 

4 - designates  a trainer 

HOURS  REQ'D 
PER  CONV 

REQHRS 

NNNN.N 

Required  hours  represent  the  number  of  hours 
the  indicated  space  is  required  to  convene 
one  session  of  the  referenced  course. 

TOT  HR  AVAIL/ 
YEAR 

AVHRS 

NNNNN 

The  number  of  hours,  on  an  annual  basis, 
the  space  is  available  for  instructional 
purposes. 

TABLE  II-l 

DOTS  FACILITIES  FILE  DATA  FIELDS 
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MAINTENANCE 

RAMIS 

PROGRAM  REFERENCE 

FIELD  NAME 

FORM 

DEFINITION 

INST  ID(SSN) 

ID 

NNNNNNNNN 

Social  Security  Number  of  Instructor. 

LAST  NAME 

NME 

A16 

Instructor's  last  name. 

FIRST,  MIDDLE 
INITIALS 

IN 

AA 

Instructor's  initials. 

RATE/RANK 

RATE 

AAAAA 

Instructor's  rate  or  rank;  e.g.,  PN1 
of  LCDR  (left  justify). 

REPORT  DATE 

REP 

YYMM 

The  date  the  Instructor  reported  on 
board. 

ROTATE  DATE 

• 

ROT 

YYMM 

The  Instructor's  planned  rotation  date. 

PRIMARY  NEC 

PNEC 

NNNN 

The  instructors  Primary  NEC  (if  none, 
leave  blank) . 

SECONDARY  NEC 

SNEC 

NNNN 

The  Instructor's  Secondary  NEC  (if 
none,  leave  blank). 

ADDITIONAL  NECS 

NEC3 

NNNN 

Any  additional  NECS  previously  earned  by 

NEC4 

NNNN 

the  instructor.  (If  none. 

NEC5 

NNNN 

leave  blank) 

STUDENT  CONTACT 

CONT 

NNNN 

An  estimate  of  the  total  number  of  hours 
per  year  expended  on  classroom  contact 
with  students. 

CURRICULUM 

DEVELOPMENT 

CDEV 

NNNN 

An  estimate  of  the  total  number  of  hours 
per  year  expended  on  curriculum  develop- 
ment. 

CLASS  PREP/ 
RELATED  DUT 

PREP 

NNNN 

An  estimate  of  the  total  number  of  hours 
per  year  expended  on  class  preparation 
and  related  duties. 

INST  TRNG 
(BREAK-IN) 

BKIN 

NNNN 

An  estimate  of  the  total  number  of  hours 
per  year  spent  training  to  instruct  a 

course,  i.e.,  instructor  break-in  time. 

TABLE  1 1 -2 
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MAINTENANCE  RAMIS 


PROGRAM  REFERENCE 

FIELD  NAME 

FORM 

DEFINITION 

EQUIP-TRNG/ 

MAINT 

EQMT 

NNNN 

An  estimate  of  the  total  number  of  hours 
per  year  expended  on  equipment  maintenance 
or  training  to  maintain  equipment. 

CROSS-TRNG 
(LOW  STUD  LOAD) 

CTRN 

NNNN 

An  estimate  of  the  total  number  of  hours 
per  year  expended  on  instructor  cross- 
training due  to  low  student  load. 

FORMAL  INST  SCH 

I SCH 

NNNN 

An  estimate  of  the  total  number  of  hours 
per  year  spent  at  the  formal  instructor 
training  school. 

FACTORY  TRNG/ 
WKSHOPS 

FTRN 

NNNN 

An  estimate  of  the  total  number  of  hours 
per  year  expended  on  formal  factory 
training  or  workshops. 

SPEC  FLEET 
ASSISTANCE 

FLET 

NNNN 

An  estimate  of  the  total  number  of  hours 
per  year  spent  assisting  the  fleet  with 
hardware  or  training  problems  not  included 
in  formal  courses  of  instruction. 

MIL  DUT/PHYS 
TRNG/ OTHER 

MDUT 

NNNN 

An  estimate  of  the  total  number  of  hours 
per  year  expended  in  the  performance  of 
military  duties,  physical  training  or 
related  efforts. 

SUPERVISION 

ADMIN 

ADMN 

NNNN 

An  estimate  of  the  total  number  of  hours 
per  year  expended  on  supervisory  or 
administrative  duties. 

ANNUAL  LEAVE 

ANLV 

NNNN 

An  estimate  of  the  total  number  of  hours 
per  year  spent  on  annual  leave. 

SICK  LEAVE 

SKLV 

NNNN 

An  estimate  of  the  total  number  of  hours 
per  year  spent  on  sick  leave. 

SPECIAL  LIBERTY 

SLIB 

NNNN 

An  estimate  of  the  total  number  of  hours 
per  year  spent  on  special  liberty. 

NOTE: 

The  total  number  of  hours  available 
per  year  is  2080.  The  above  estimates 
of  instructor  activity  should  sum  to 
2080  hours . 


TABLE  1 1 -2  (Cont'd) 
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MAINTENANCE 
PROGRAM  REFERENCE 

RAMIS 

FIELD  NAME 

FORM 

DEFINITION 

COP  NUMBER 

CDP 

AAAA 

The  CDP  number  is  the  unique  4 position 
alphanumeric  course  data  processing  code 
for  each  course  taught  in  the  Navy 
(NITRAS). 

CIN  NUMBER 

CTLG 

A-AAA-AAAA 

The  10  position  alphanumeric  course 
Identification  Number  (CIN)  used  in  the 
Catalog  of  Navy  Training  Courses  (CANTRAC). 
This  code  is  identical  for  the  same  course 
taught  at  different  locations  (NITRAS). 

CRS  SHORT  TITLE 

CRS 

A16 

The  abbreviated  descriptive  title  of  the 
course  (Course  Short  Title  in  NITRAS). 

CONVEN 

CONVl 

NNN 

The  number  of  times  the  course  is  planned 
to  convene  during  the  current  fiscal  year. 
A judicious  estimate  of  the  number  of 
classes  to  be  convened  should  be  used  for 
courses  which  do  not  convene  on  scheduled 
dates  (NITRAS). 

LENGTH 

LENl 

NNNN 

The  length  in  calendar  days  including 
weekend  days,  of  the  course  for  the  current 
fiscal  year  (NITRAS). 

CAP 

CAP1 

NNN 

The  normal  class  capacity  is  the  maximum 
number  of  students  that  could  be  accom- 
modated as  a planned  input  each  time  a 
new  class  is  convened  for  the  course 
without  detriment  to  the  quality  of 
instruction. 

BCAP 

BCAP1 

NNN 

The  current  number  of  seats  in  the  course 
allocated  to  BUPERS  or  other  agencies  and 
not  available  for  local  quota  control. 

PLN  INPUT 

DMD1 

NNNN 

The  current  total  anticipated  annual 
demand  or  planned  input  for  the  course 
(NITRAS). 

PLN  B- INPUT 

BDMDl 

NNNN 

The  current  annual  demand  or  planned 
input  for  the  course  for  students  detailed 
by  BUPERS. 

CONVEN 

CONV2 

NNNN 

Same  as  CONVl  but  for  FY  + 1. 

TABLE  I I -3 
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MAINTENANCE 
PROGRAM  REFERENCE 

RAMIS 

FIELD  NAME 

FORM 

LENGTH 

LEN2 

NNNN 

CAP 

CAP2 

NNN 

BCAP 

BCAP2 

NNNN 

PLAN  INPUT 

DMD2 

NNNNN 

PLN  B- INPUT 

BDMD2 

NNNNN 

CONVEN 

C0NV3 

NNN 

LENGTH 

LEN3 

NNNN 

CAP 

CAP  3 

NNN 

BCAP 

BCAP  3 

NNN 

PLN  INPUT 

DMD3 

NNNNN 

PLAN  B- INPUT 

BDMD3 

NNNNN 

FAILURE 

PFAIL 

NN.N% 

NONAC  DIS 

NADIS 

NN.N% 

NO  SHOW 

NOSHOW 

NN.N% 

SETBACK 

SETB 

NN.N% 

' BACKLOG 

BKLG 

NNNN 

PLANNED  AOB 

PAOB 

NNNN 

PRIORITY  CODE 

PRTY 

NN 

i . _ „ 

TABLE 

DEFINITION 

Same  as  LENT  but  for  FY  + 1 . 

Same  as  CAPl  but  for  FY  + 1 

Same  as  BCAP1  but  for  FY  + 1. 

Same  as  DMD1  but  for  FY  + I. 

Same  as  BDMD1  but  for  FY  + 1. 

Same  as  C0NV1  but  for  FY  + 2. 

Same  as  LEN1  but  for  FY  + 2. 

Same  as  CAPl  but  for  FY  + 2. 

Same  as  BCAPl  but  for  FY  + 2. 

Same  as  DMD1  but  for  FY  + 2. 

Same  as  BOMDl  but  for  FY  + 2. 

The  current  historical  (last  12  months) 
failure  rate  for  the  course. 

The  historical  (last  12  months)  non-aca- 
demic disenrollment  rate  for  the  course. 

The  historical  (last  12  months)  no-show 
rate  experienced  by  the  course.  This 
rate  is  determined  as  the  percentage  of 
those  scheduled  for  the  course  that  did 
not  attend  or  cancel. 

The  historical  (last  12  months)  set  back 
rate  for  the  course. 

The  length  in  weeks  that  a student  must 
wait  for  a local  quota  for  a course. 

The  planned  average  number  of  students 
on  board.  (Total  student-days  divided 
by  364) 

The  2 digit  Training  Priority  Designator 
code  (NITRAS). 
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MAINTENANCE 
PROGRAM  REFERENCE 

RAMIS 

FIELD  NAME 

FORM 

DEFINITION 

COURSE  TYPE 

CTYPE 

AA 

The  2 position  type  code  for  the  course 
indicating  class  of  course/type  training 
category  (i.e.,  Al,  C3,  F2,  etc.) 
(NITRAS). 

NEC  AWARDED 

PNEC 

NNNN 

The  primary  NEC  code  for  which  the  student 
is  qualified  by  completion  of  this  course. 
(NITRAS) 

ACTIVITY/ DEPT. 
CODE 

SCH 

NAAA 

A code  to  identify  the  activity  and  the 
organization  School /Department  which  conducts 
the  course.  The  first  position  is  coded  as 
follows: 

4 - NWTGP 

5 - FITCPAC 

6 - FLETRACEN 

7 - FCDSTCP 

8 - FASWTCP 

The  remaining  three  positions  can  be  any 
alphanumeric  designation  identifying  the 
organizational  unit  which  conducts  the 
course. 

STAFF  UIC 

SUIC 

AAAA 

The  Staff  Unit  Identification  Code 
(NITRAS) 

COURSE 

UTILIZATION 

UCAP 

NNN% 

The  ratio  of  the  total  number  of  students 
enrolled  in  the  course  over  a one  year 
period  to  the  total  annual  class  capacity. 

DATE  LAST 
COURSE  REVIEW 

RDTE 

YYMMDD 

The  date  on  which  the  course  curriculum 
was  last  reviewed. 

CCMM 

CCW 

AAAAAAAAAA 

The  activity  assigned  course  curricula 
model  manager  responsibility. 

CLASS  CAPACITY 
MAX 

| 

MAX CAP 

NNN 

The  maximum  number  of  quotas  which  can  be 
grated  for  any  one  class.  This  figure  is 
used  for  quota  control  purposes  and  may  be 
equal  to  or  greater  than  the  normal  class 
capacity. 

CLASS  CAPACITY 
MIN 

MINCAP 

NNN 

The  minimum  number  of  quotas  which  will 
be  granted  for  any  one  class.  The  class 
will  not  be  convened  if  the  number  of 

quotas  requested  Is  less  than  the  number. 
TABLE  I I -3  (Cont'd) 
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MAINTENANCE 

RAMIS 

i r 

PROGRAM  REFERENCE 

FIELD  NAME 

FORM 

DEFINITION 

'*•  '* 

; - k 

i 

I \ 

I * 

CLASS  CAPACITY 
(PERS) 

PCAP 

NNN 

The  maximum  number  of  students  that  may 
be  trained  per  class  based  on  the  number 
of  authorized  billets.  The  number  entered 
assumes  that  unlimited  space  and  equipment 
are  available. 

jf  fe 

Bfi 

|l! 

J$  i- 
f n 

CLASS  CAPACITY 
(EQUIP) 

ECAP 

NNN 

The  maximum  number  of  students  that  may 
be  trained  per  class  based  on  available 
equipment  capability  only.  The  number 
entered  assumes  that  unlimited  personnel 
and  space  are  available. 

[ M 

i 

CLASS  CAPACITY 
(SPACE) 

SCAP 

NNN 

The  maximum  number  of  students  that  may 
be  trained  per  class  based  on  the  avail - 
bility  of  assigned  training  space.  The 
number  entered  assumes  that  unlimited 
personnel  and  equipment  are  available. 

« 

* 

; [' 

OPTIONAL  1 

OPT1 

AAAAAA 

Any  six  character  alphanumeric  data  may 
be  stored  in  this  field  at  the  discretion 
of  the  individual  activity. 

OPTIONAL  2 

OPT2 

AAAAAA 

Any  six  character  alphanumeric  data  may 
be  stored  in  this  field  at  the  discretion 
of  the  individual  activity. 

i 

> 

OPTIONAL  3 

OPT3 

AAAAAA 

Any  six  character  alphanumeric  data  may 
be  stored  in  this  field  at  the  discretion 
of  the  individual  activity. 

it 

INST  ID(SSN) 

FI 

NNNNNNNNN 

Social  Security  number  of  instructor  who 
is  qualified  to  teach  this  course  (CDP). 

i 

f \ 

% QUALIFIED 

F2 

NNN 

The  portion  of  the  total  curriculum  that 
the  instructor  is  qualified  to  teach. 

• 

ll 

ASSIGN  FLAG 

F3 

N 

A 1 in  this  field  indicates  that  the 
instructor  is  currently  assigned  to  teach 
this  course.  A 0 indicates  that  the 
instructor  is  qualified  but  is  not  current 
ly  assigned  to  teach  the  course. 

1 

L^' 

El.i  £ 

STUDENT/ 

INSTRUCTOR  RATIO 

FI 

NNN 

TABLE  I I -3 

The  ratio  of  students  to  each  instructor. 

A student/instructor  ratio  of  25  to  1 
Indicates  a ratio  of  25  students  for  one 
instructor.  Since  each  facet  of  train- 
ing associated  with  the  course  may  require 
a different  ratio  of  students  to  each 
instructor,  several  ratios  may  be  entered 
for  each  course. 

(Cont'd) 
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MAINTENANCE  RAMIS 

PROGRAM  REFERENCE  FIELD  NAME 


CONTACT  HOURS 
AT  THIS  RATIO 


F2 


FORM  DEFINITION 

NNNN  The  number  of  instructional  contact  hours 
taught  at  a given  ratio  of  trainees  per 
instructor.  A contact  hour  represents 
sixty  minutes  of  instruction.  This  refers 
to  clock  hours  of  curriculum  time  devoted 
to  actual  instruction,  exclusive  of  breaks, 
administrative  time,  lunch,  medical,  dental, 
etc.  The  total  instructional  contact  hours 
taught  at  the  various  ratios  must  equal  the 
total  contact  hours  on  the  Master  Schedule. 


RATIO  TYPE 


F3 


Differentiates  between  theory  and  labora- 
tory instruction  a 1 indicates  lecture/ 
theory  instruction;  2 indicates  laboratory 
instruction;  3 indicates  a combination  of 
theory  and  lab  instruction  at  the  same 
student/instructor  ratio. 
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GENERAL  MAINTENANCE  PROCEDURES 

The  DOTS  Data  Base  presently  structured  under  RAMIS  requires  periodic 
maintenance  as  a result  of  changing  data  on  courses,  personnel,  and  facility 
resources.  These  procedures  assume  that  maintenance  will  be  accomplished 
by  some  centralized  staff  function  at  each  activity.  Sufficient  front-end 
editing  is  performed  to  ensure  data  integrity  and  an  audit  trail  is  main- 
tained to  permit  rapid  identification  of  erroneous  inputs.  Changes  are  made 
interactively  with  sufficient  prompting  to  reduce  reference  by  the  user  to 
written  maintenance  procedures. 

The  following  general  approach  will  be  used  for  adding,  deleting,  and 
changing  data  items  within  RAMIS. 

A.  Activity  Level 

Data  base  listings  will  be  red-lined  to  denote  changes  by  the  appropri- 
ate division  department  or  staff  office  at  the  activity  levs'! . A trained 
individual,  with  the  aid  of  a local  computer-driven  prompting  display, 
will  input  the  change  data.  Local  editing  and  correcting  will  be  per- 
formed and  a change  tape  file  will  be  created.  The  change  tape  file 
will  be  periodically  transmitted  to  the  functional  level  computer. 

B.  Functional  Level 

Change  requests  transmitted  to  the  functional  level  will  be  subjected 
to  another  level  (manual)  of  editing  and  correcting.  The  Data  Base 
Manager  (DBM)  will  monitor  change  activity  by  reviewing  change  tape 
listings  and  will  intervene  when  activities  have  submitted  changes 
which  are  questionable  or  erroneous.  The  DBM  will  have  the  capability 
of  editing  the  activity  change  tapes.  A listing  of  the  edited  version 
of  the  activity  change  tape  will  be  returned  to  each  activity.  The 
DBM  will  be  conversant  with  RAMIS  procedures  and  capable  of  correcting 
proposed  data  base  changes  which  are  rejected  by  the  RAMIS  editing 
procedures. 

C.  NCSS  Level 

Any  additional  editing  not  possible  at  the  activity  or  functional  level 
will  be  accomplished  at  the  NCSS  level.  A RAMIS  error  report  will  be 
generated  subsequent  to  processing  the  proposed  changes  through  TAMIS. 

The  identified  errors  must  be  examined  and  corrected  at  either  the 
functional  or  the  activity  level.  The  NCSS  error  file  will  then  be 
edited  by  the  DBM  and  be  resubmitted  to  RAMIS. 

Change  Data  Processing:  The  specific  data  processing  sequence  for  each  of 

the  steps  in  the  change  (maintenance)  procedure  (see  Figure  II-l)  are  defined 
below. 


e 

* 


1.  Division/department  levels  will  note  changes  as  they  occur  by  red- 
lining copies  of  the  data  base  listing. 
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2.  An  Interactive  prompting  program  will  assist  a trained  user  to 

input  changes  into  the  activity's  computer.  (See  operating  procedures 
under  the  next  subheading.) 

3.  The  activity  level  data  entry  program  will  check  inputs  for  proper  type; 
e.g.,  numeric,  and  length  of  data  elements. 

4.  Changes  successfully  passing  the  editing  process  will  be  used  to  create 
a change  file  stored  on  a WANG  tape  cassette. 

5.  The  change  tape  file  will  be  transmitted  (or  mailed)  to  the  functional 
level  on  a periodic  basis.  Information  to  identify  school,  department, 
date,  etc.,  should  be  written  on  the  tape  cassette  label. 

6.  Upon  receipt  of  the  activity  change  tape,  the  DBM  will  obtain  a hard- 
copy listing  of  the  tape  and  will  manually  verify  the  submitted 
changes. 

7.  The  DBM  will  review  all  data  base  change  exceptions  and  take  appropri- 
ate action,  which  might  include: 

Overriding  an  activity's  input 

Manual  verification  of  exception  with  activity 

Return  of  input  to  activity  without  processing 

Removal  of  input  from  change  file  and  manual  input  of  change 

Acceptance  of  change  for  inclusion  in  the  change  file 

8.  All  changes  successfully  passing  the  edit  step  and  the  action  by  the 
DBM  will  be  incorporated  into  a change  file  for  subsequent  processing 
into  RAMIS.  The  change  file  will  be  transmitted  to  the  NCSS  environ- 
ment using  the  procedures  outlined  in  this  section.  A listing  of  the 
revised  change  tape  will  be  printed  prior  to  the  RAMIS  processing  step. 
This  listing  should  be  returned  to  the  activities  upon  successful 
completion  of  the  RAMIS  change  processing.  Receipt  of  the  listing 
will  indicate  that  the  changes  listed  have  been  incorporated  into  the 
data  base. 

9.  The  DBM  will  initiate  the  RAMIS  change  file  processing  in  the  NCSS 
environment.  The  DBM  will  be  responsible  for  correcting  any  additional 
errors  identified  by  the  RAMIS  data  base  edit  procedures.  These  cor- 
rections should  be  noted  on  the  revised  change  file  listing,  and  then 
be  reentered  into  RAMIS.  After  all  changes  have  been  incorporated 
into  the  RAMIS  files,  new  data  base  listings  will  be  printed  and  for- 
warded to  each  of  the  activities. 


MW 
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FIGURE  II-l 

DATA  BASE  MAINTENANCE  PROCEDURE 
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DATA  BASE  MAINTENANCE  OPERATIONAL  PROCEDURES  - DATA  ENTRY 

The  initial  step  of  the  DOTS  data  base  maintenance  procedure  is  to  load  the 
maintenance  data  prompting  program  tape  cassette  into  the  WANG  tape  drive. 
After  the  door  is  closed,  the  tape  should  be  rewound.  This  can  be  done  in 
two  ways:  1)  touching  the  REWIND  button  on  the  CRT  housing,  or  2)  keying 

REWIND  RETURN(EXEC)  from  the  keyboard. 

At  this  point  the  prompting  program  can  be  read  into  memory.  This  is 
accomplished  by  keying: 

CLEAR  RETURN(EXEC) 

which  clears  the  memory,  followed  by 

LOAD  RETURN(EXEC) 
which  loads  the  program  from  the  cassette. 

The  final  step  to  be  executed  prior  to  program  control  is  to  start  the 
prompting  program.  To  do  this,  key: 

RUN  RETURN(EXEC) 

After  a few  seconds  delay,  the  program  tape  will  be  rewound  and  the  following 
message  will  appear  on  the  screen: 

STOP;  MOUNT  DATA  CASSETTE;  THEN  KEY  CONTINUE 

At  this  point  the  program  tape  should  be  removed  from  the  tape  drive.  A 
data  cassette  should  be  mounted  and  rewound.  The  data  cassette  may  be  a 
blank  tape,  or  it  may  be  a tape  containing  maintenance  data  entered  at 
some  prior  time.  After  the  data  tape  has  been  mounted,  the  user  should  key: 

CONTINUE  RETURN(EXEC) 

The  following  message  will  then  appear  on  the  screen: 

START  NEW  TAPE?  (Y/N) 

If  the  data  cassette  is  a blank  tape  or  a tape  which  contains  data  already 
transmitted  to  TRAPAC,  the  user  should  reply: 

Y RETURN(EXEC) 

This  response  will  leave  the  data  cassette  positioned  to  record  data  on 
the  first  tape  record.  Any  data  previously  written  on  the  tape  will  be 
written  over  or  replaced  by  the  maintenance  data  to  be  recorded  in  the 
current  terminal  session. 

If  the  data  cassette  contains  maintenance  data  which  has  not  been  trans- 
mitted to  TRAPAC,  and  therefore  should  not  be  erased,  the  user  should  reply: 

N RETURN(EXEC) 

\ 
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I This  response  will  position  the  data  cassette  to  record  immediately  follow- 

ing the  last  maintenance  data  recorded.  The  usei  will  then  be  able  to 
append  current  data  to  data  already  recorded  on  the  tape. 

After  the  data  cassette  has  been  properly  positioned,  the  DOTS  Data  Base 
Maintenance  Menu  will  appear  on  the  screen: 


DOTS  DATA  BASE  MAINTENANCE  MENU 


CDP  NUMBER 

AD-Q 

21 

GHANQ.E 

16 

delete. 

ii 

ACTIVITY/DEPT  NO. 

« 

20 

« 

COURSE  DATA 

« 

6 

* 

STUD/INST  RATIO 

23 

17 

12 

CONTACT  HOURS 

* 

7 

» 

INSTRUCTOR  ID 

24 

18 

13 

INSTRUCTOR  DATA 

« 

3 

* 

INSTRUCTOR  ASSGNMT 

26 

8 

27 

BLDG/ROOM  NUMBER 

25 

19 

14 

BLDG/ROOM  DATA 

# 

2 

* 

KEY  NUMBER  INDICATING  ACTION  TO  BE  TAKEN. 

(IF  NO  ADDITIONAL  MAINTENANCE  REQUIRED,  KEY  RETURN) 


After  all  maintenance  transactions  have  been  entered,  the  user  should  key 
RETURN(EXEC)  in  response  to  the  instruction  at  the  bottom  of  the  maintenance 
MENU.  The  following  message  will  appear  on  the  screen: 

DATA  TAPE  COMPLETE?  (Y/N) 

If  the  data  cassette  is  only  partially  full  and  the  user  wishes  to  add 
more  maintenance  transactions  to  the  same  cassette  at  some  time  in  the 
fugure,  key 

N 

If  no  more  maintenance  transactions  are  to  be  added  to  the  tape  and  the 
tape  is  to  be  sent  to  COMTRAPAC  for  data  base  processing,  key: 

Y 

The  following  message  is  then  displayed: 


: 


< 


END  PROGRAM 
FREE  SPACE  XXXXX 


- 


TAEG  REPORT  NO.  36 


ana  program  execution  terminates.  XXXXX  Is  the  approximate  amount  of 
memory  (In  bytes)  not  used  by  the  program.  1 

The  final  step  is  to  remove  the  data  cassette  from  the  WANG  tape  drive 
unit  and  label  the  cassette  with  the  activity  name  and  date.  The  data 
cassette  will  be  rewound  automatically  prior  to  program  execution  termina- 
tion. 

DOTS  DATA  BASE  COURSE  FILE  MAINTENANCE 

The  Course  file  contains  course  data  (see  Course  file  listing.  Section  A) 
such  as  number  of  convenings,  capacity,  length,  input,  SUIC,  CCMM; 
student/instructor  ratio  data  (see  Course  file  listing.  Section  B);  and 
instructor  assignment  data  (see  Course  file  listing.  Section  C). 

Data  base  changes  will  be  recorded  as  they  occur  by  red-lining  current 
listings  of  the  data  base  contents.  The  red-lined  listings  will  be  the 
source  document  for  recording  changes  on  the  data  cassette.  A sample 
DOTS  Course  file  listing  is  shown  below: 
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MAINTENANCE  TRANSACTION  NUMBER: 
TRANSACTION  NAME: 

DATA  SOURCE: 

FUNCTION: 

KEY IN  REQUIRED: 

RESPONSE: 


Change  Course  Data 

Course  File  Listing  - Section  A 

Change  the  data  contained  in  any  data  field 
listed  in  Section  A of  the  Course  file 
listing  (except  the  course  CDP  number). 

6 RETURN(EXEC)  (From  MENU) 


•CHANGE  COURSE  DATA  FOR  THE  FOLLOWING  COURSE 
CDP  NUMBER  


ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN),KEY  RETURN.) 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN (EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 


4)  If  the  activity/dept  code  to  be  entered  is  the  same  as  the 
previous  entry,  it  can  be  entered  automatically  by  keying 
RETURN (EXEC). 


TO  TERMINATE  PAGE:  Key  RETURN(EXEC)  after  entering  Activity/Dept  code 

RESPONSE:  TRANS  6 page  2 (see  next  page). 


)SDIlO 
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MAINTENANCE  TRANSACTION  NUMBER: 
TRANSACTION  NAME: 

DATA  SOURCE: 

FUNCTION: 


6 (Cont'd) 

Change  Course  Data 

Course  File  Listing  - Section  A 

Change  the  data  contained  in  any  data  field 
listed  in  Section  A of  the  Course  file 
listing  (except  the  course  CDP  number). 


KEYIN  REQUIRED:  RETURN(EXEC)  (From  TRANS  6 page  1) 

RESPONSE: 


COURSE  CDP  # NNNN  

01  CURRENT  YEAR:  CONVEN/LENGTH/CAP/BCAP/PLN  INPUT/PI  N B-INPUT 

02  CUR  YEAR  +1:  CONVEN/LENGTH/CAP/BCAP/PLN  I NPUT/PLN  B-INPUT 

03  CUR  YEAR  +2:  CONVEN/LENGTH/CAP/BCAP/PLN  INPUT/PLN  B-INPUT 

04  STUDENT  CLASS  CAPACITIES: 

MAX* MIN* PERS* EQUIP* SPACE* 

05  HISTORICAL  CRS  RATES: 

FAILURE- — .-%  NONAC  DlS= — .-%  NOSHOW* — .-%  SETBACK* — 

KEY  LINE  NO  CONTAINING  DATA  TO  BE  ENTERED  OR  CHANGED. 

TO  SKIP  A DATA  ITEM  ON  A LINE  KEY  RETURN;  CURSOR  WILL  ADVANCE  TO 
THE  NEXT  DATA  ITEM.  TO  EDIT  REMAINING  COURSE  DATA,  RETURN  - 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  Only  those  data  items  for  which  the  data  has  changed  need  be 
entered.  To  change  a single  data  item  in  a line  containing 
several  items,  key  RETURN(EXEC)  for  those  items  which  have  not 
changed. 

5)  A line  number  may  be  entered  more  than  one  time  to  change  a 
data  item  that  may  have  been  overlooked.  Key  the  line  number  in 
response  to  the  instruction  at  the  bottom  of  the  page. 


TAEG  REPORT  NO.  36 


6)  Historical  course  rates  are  shown  on  the  Course  file  listing 
as  decimal  numbers,  i.e. , .030,  which  is  3%.  To  enter  a 3* 
failure  rate  In  line  5,  keyln  0 3.  0%. 


TO  TERMINATE  PAGE:  Key  RETURN(EXEC) . 


RESPONSE: 


TRANS  6 page  3 (see  next  page). 
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MAINTENANCE  TRANSACTION  NUMBER: 
TRANSACTION  NAME: 

DATA  SOURCE: 

FUNCTION: 

KEYIN  REQUIRED: 

RESPONSE: 


6 (Cont'd) 

Change  Course  Data 

Course  File  Listing  - Section  A 

Change  the  data  contained  in  any  data  field 
listed  in  Section  A of  the  Course  file 
listing  (except  the  course  CDP  number). 

RETURN (EXEC)  (From  TRANS  6 page  2) 


COURSE  CDP  # NNNN  

06  ACT/DEPT- CIN- CRS  TITLE* 

07  COURSE  UTILIZATION- % PLANNED  AOB* BACKLOG- 

06  DATE  NEXT  COURSE  REVIEW-YY/MM/DD  STAFF  UIC- 

09  CCMM- PRIORITY  CODE  - — 

10  COURSE  TYPE- — NEC  AWARDED- 

11  0PTI0NAL1- 0PTI0NAL2- 0PTI0NAL3- 

KEY  LINE  NO  CONTAINING  DATA  TO  BE  ENTERED  OR  CHANGED. 

TO  SKIP  A DATA  ITEM  ON  A LINE  KEY  RETURN;  CURSOR  WILL  ADVANCE  TO 
THE  NEXT  DATA  ITEM.  IF  NO  MORE  EDITING  REQ'D.KEY  RETURN  - 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  (is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  In  each  space. 

4)  Data  for  data  items  on  this  page  may  be  entered  or  skipped  as 
required. 


TO  TERMINATE  PAGE:  Key  RETURN(EXEC) . 

RESPONSE:  MENU 


TAE6  REPORT  NO.  36 


MAINTENANCE  TRANSACTION  NUMBER: 
TRANSACTION  NAME: 

DATA  SOURCE: 

FUNCTION: 


7 

Change  Contact  Hour  Data 

Course  File  Listing  - Section  B 

Change  either  the  contact  hour  or  the  course 
type  data  for  a specified  student/ ins true tor  ratio 


KEYIN  REQUIRED:  7 RETURN(EXEC)  (From  MENU) 

RESPONSE: 


* CHANGE  CONTACT  HOUR  DATA  FOR  THE  FOLLOWING  COURSE 
CDP  NUMBER  


ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN),KEV  RETURN.) 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  Is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  Indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  Is  not  necessary  to  enter  a character  In  each  space. 

4)  If  the  activity/dept  code  to  be  entered  Is  the  same  as  the  previ- 
ous entry,  it  can  be  entered  automatically  by  keying  RETURN(EXEC) . 


TO  TERMINATE  PAGE:  Key  RETURN(EXEC)  after  entering  activity/dept  code. 
RESPONSE:  TRANS  7 page  2 (see  next  page). 


i 


II 
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MAINTENANCE  TRANSACTION  NUMBER:  7 (Cont'd) 


TRANSACTION  NAME: 
DATA  SOURCE: 
FUNCTION: 


KEVIN  REQUIRED: 
RESPONSE: 


Change  Contact  Hour  Data 

Course  File  Listing  - Section  B 

Change  either  the  contact  hour  or  the  course 
type  data  for  a specified  student/ ins true tor 
ratio. 

RETURN(EXEC)  (From  TRANS  7 page  1) 


COPINNNN 

STUDENT/INSTRUCTOR  RATIO- /I 

CONTACT  HOURS  AT  THIS  RATIO  = 

RATIO  TYPE  - - 

1- LECTURE 

2-  LAB 

3- COMB  LEC/LAB 

Tp  ENTER  ADDITIONAL  CONTACT  HOUR  CHANGES  FOR  THE  ABOVE 
COURSE  TYPE  1.  ELSE  KEY  RETURN- 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  Is  not  necessary  to  enter  a character  in  each  space 

4)  The  student/ instructor  ratio  must  be  entered.  The  contact  hour 
and  ratio  type  data  are  optional.  To  skip  a data,  item  key 
RETURN (EXEC) ; the  cursor  will  be  advanced  to  the  next  data  item. 

5)  To  change  data  associated  with  other  student/ ins true tor  ratios  for 
the  same  course,  key  1 RETURN(EXEC)  in  response  to  the  instruction 
at  the  bottom  of  the  page. 

TO  TERMINATE  PAGE:  Key  RETURN(EXEC) 

RESPONSE:  MENU 


TAE6  REPORT  NO.  36 


MAINTENANCE  TRANSACTION  NUMBER:  8 


TRANSACTION  NAME: 
DATA  SOURCE: 
FUNCTION: 


Change  Instructor  Assignment  Data 

Course  File  Listing  - Section  C 

Change  the  data  in  either  the  percent 
qualified  field  or  the  assign  flag  field 


KEYIN  REQUIRED:  8 RETURN (EXEC)  (From  MENU) 

RESPONSE:  - 


CHANGE  ASSIGNMENT  DATA  FOR  THE  FOLLOWING  INSTRUCTOR: 

INSTRUCTOR  ID(SSN)  = * — * 

CDP  NUMBER  

ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN),  KEY  RETURN.) 

NEW  ASSIGNMENT  DATA: 

% QUALIFIED  = % 

ASSIGN  FLAG  = - 

(ENTER  0 IF  NOT  TEACHING  ABOVE  COURSE;  ELSE  ENTER  1) 

TO  ENTER  ADDITIONAL  CHANGES  FOR  THE  ABOVE 
INSTRUCTOR  TYPE  1;  ELSE  KEY  RETURN  - 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  Is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  Is  not  necessary  to  enter  a character  In  each  space. 

4)  Data  must  be  entered  for  Instructor  ID,  CDP  number,  and  activity/ 
dept  code.  Data  for  percent  qualified  and  assign  flag  are 
optional.  Data  for  these  fields  may  be  skipped  by  keying  RETURN(EXEC) . 

5)  Assignment  data  changes  for  the  same  instructor  but  for  additional 
courses  can  be  made  by  keying  1 RETURN(EXEC)  In  response  to  the 
Instruction  at  the  bottom  of  the  page. 

TO  TERMINATE  PAGE:  Key  RETURN(EXEC) 

RESPONSE:  MENU 


TAE6  REPORT  NO.  36 


MAINTENANCE  TRANSACTION  NUMBER:  11 


TRANSACTION  NAME: 
DATA  SOURCE: 


FUNCTION: 


KEYIN  REQUIRED: 
RESPONSE: 


Delete  a CDP  Number 

Course  File  Listing;  Facility  File  Listing 

Delete  all  data  associated  with  the  specified 
CDP  number  in  both  the  Course  file  and  the 
Facility  file 

11  RETURN(EXEC)  (From  MENU) 


DELETE  ALL  DATA  FOR  THE  FOLLOWING  COURSE 

CDP  NUMBER  

ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN).KEY  RETURN.) 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space 


TO  TERMINATE  PAGE:  Key  RETURN(EXEC)  after  entering  activity/dept  code. 

RESPONSE:  MENU 


TAEG  REPORT  NO.  36 


MAINTENANCE  TRANSACTION  NUMBER:  12 


TRANSACTION  NAME: 
DATA  SOURCE: 


FUNCTION: 


KEYIN  REQUIRED: 
RESPONSE: 


Delete  Student/ Instructor  Ratio 

Course  File  Listing  - Section  B 

Delete  a student/ instructor  ratio  and  all 
associated  data  from  the  specified  course 

12  RETURN(EXEC)  (From  MENU) 


•DELETE  STUDENT/I NSTR  RATIO  DATA  FOR  THE  FOLLOWING  COURSE 

CDP  NUMBER  

ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN).KEY  RETURN.) 
STUDENT/INSTRUCTOR  RATIO  = /I 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  Indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  If  the  activity/dept  code  to  be  entered  is  the  same  as  the 
previous  entry.  It  can  be  entered  automatically  by  keying 
RETURN (EXEC). 

TO  TERMINATE  PAGE:  Key  RETURN(EXEC)  after  entering  student/ instructor  ratio. 

RESPONSE:  MENU 
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TAEG  REPORT  NO.  36 


MAINTENANCE  TRANSACTION  NUMBER:  16 


TRANSACTION  NAME: 


Chang, e a CDP  Number 


DATA  SOURCE: 
FUNCTION: 


Course  File  Listing  - 
Facility  File  Listing 

Change  the  course  CDP 
value  to  a new  value 


Section  A; 

number  from  the  current 


KEYIN  REQUIRED:  16  RETURN(EXEC)  (From  MENU) 

RESPONSE: 


* CHANGE  THE  FOLLOWING  CDP  NUMBER 

OLD  CDP  NUMBER 

NEW  CDP  NUMBER 

ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN).KEY  RETURN.) 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  This  transaction  will  change  the  CDP  number  in  both  the  Course 
file  and  the  Facility  file. 

5)  All  data  changes  in  both  the  Course  file  and  the  Facilities 
file  associated  with  a course  for  which  the  CDP  number  has  been 
changed  should  refer  to  the  new  CDP  number. 

TO  TERMINATE  PAGE:  Key  RETURN(EXEC)  after  entering  Activity/Dept  code. 

RESPONSE:  MENU 


< 


TAEG  REPORT  NO.  36 


MAINTENANCE  TRANSACTION  NUMBER:  17 


TRANSACTION  NAME: 
DATA  SOURCE: 


FUNCTION: 


KEY  IN  REQUIRED: 
RESPONSE: 


Change  the  Student/Instructor  Ratio 

Course  File  Listing  - Section  B 

Change  the  student/ instructor  ratio  from  the 
current  value  to  a new  value 

17  RETURN(EXEC)  (From  MENU) 


•CHANGE  STUDENT/INSTR  RATIO  DATA  FOR  THE  FOLLOWING  COURSE 


CDP  NUMBER 

ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN),KEY  RETURN.) 


OLD  STUDENT/INSTRUCTOR  RATIO  = /I 

NEW  STUDENT/INSTRUCTOR  RATIO  = /I 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  This  transaction  is  used  to  change  the  value  of  a student/ 
Instructor  ratio.  To  change  contact  hour  or  course  type  data 
use  transaction  7.  If  both  the  ratio  and  either  contact  hour 

or  course  type  data  are  changed  using  transactions  17  and  7,  the 
new  student/instructor  ratio  should  be  used  when  entering  the 
data  for  transaction  7. 
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5)  An  alternate  approach  to  using  both  transactions  17  and  7 
is  to  delete  the  current  ratio  (transaction  12)  and  then 
add  a new  ratio  (transaction  23)  which  will  include  both 
contact  hour  and  course  type. 


TO  TERMINATE  PAGE:  Key  RETURN(EXEC)  after  entering  new  student/instructor  ratio. 


RESPONSE: 


MENU 


TAEG  REPORT  NO.  36 


MAINTENANCE  TRANSACTION  NUMBER:  20 

TRANSACTION  NAME:  Change  Activity/Dept  Number 

DATA  SOURCE:  Course  File  Listing;  Instructor  File  Listing; 

Facility  File  Listing 

FUNCTION:  Change  the  activity/dept  code  from  the  current 

value  to  a new  value  for  all  occurrences 
in  the  Course,  Instructor,  and  Facility  files 

KEYIN  REQUIRED:  20  RETURN(EXEC)  (From  MENU) 

RESPONSE: 


* CHANGE  THE  FOLLOWING  ACTIVITY/DEPT  CODE 


OLD  ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN),KEY  RETURN 

NEW  ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN),KEY  RETURN 


.) 

.) 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 


3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  This  transaction  will  change  the  activity/dept  code  on  each  course 
record  in  the  Course  file,  each  instructor  record  in  the  Instruc- 
tor file,  and  each  course  record  in  the  Facility  file. 

TO  TERMINATE  PAGE:  Key  RETURN(EXEC)  after  entering  new  activity/dept  code. 

RESPONSE:  MENU 

) 


TAEG  REPORT  NO.  36 


MAINTENANCE  TRANSACTION  NUMBER: 
TRANSACTION  NAME: 

DATA  SOURCE: 

FUNCTION: 

KEYIN  REQUIRED: 

RESPONSE: 


21 

Add  a CDP  Number 

Course  File  Listing  - Section  A 

Add  a new  course  and  associated  data 
to  the  course  file 

21  RETURN(EXEC)  (From  Menu) 


* ADD  THE  FOLLOWING  COURSE 
CDP  NUMBER - 

CIN  NUMBER 

CRS  SHORT  TITLE 

ACTIVITY/DEPT  CODE. 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 


2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  Acceptable  CIN  numbers  must  begin  with  one  of  the  following  char- 
acters: A,J,K,S,X. 


TO  TERMINATE  PAGE:  Key  RETURN(EXEC)  after  entering  Activity/Dept  code. 

RESPONSE:  TRANS  21  page  2 (see  next  page). 


TAEG  REPORT  NO.  36 


MAINTENANCE  TRANSACTION  NUMBER:  21  (Cont'd) 


TRANSACTION  NAME: 
DATA  SOURCE: 


FUNCTION: 


KEY  IN  REQUIRED: 
RESPONSE: 


Add  a CDP  Number 

Course  File  Listing  - Section  A 

Add  a new  course  and  associated  data  to 
the  course  file 

RETURN(EXEC)  (From  TRANS  21  page  1) 


COURSE  CDP  # NNNN  

CH  CURRENT  YEAR:  CONVEN/LENGTH/CAP/BCAP/PLN  INPUT/PI  N B-INPUT 

02  CUR  YEAR  +1:  CONVEN/LENGTH/CAP/BCAP/PLN  I NPUT/PLN  B-INPUT 

03  CUR  YEAR  +2:  CONVEN/LENGTH/CAP/BCAP/PLN  INPUT/PLN  B-INPUT 

04  STUDENT  CLASS  CAPACITIES: 

MAX- MIN- PERS- EQUIP- SPACE- 

05  HISTORICAL  CRS  RATES: 

FAILURE- — .-%  NONAC  DIS* — .-%  NOSHGW- — .-%  SETBACK- — .-% 

KEY  LINE  NO  CONTAINING  DATA  TO  BE  ENTERED  OR  CHANGED. 

TO  SKIP  A DATA  ITEM  ON  A LINE  KEY  RETURN;  CURSOR  WILL  ADVANCE  TO 
THE  NEXT  DATA  ITEM.  TO  EDIT  REMAINING  COURSE  DATA,  RETURN  - 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  Data  for  data  items  on  this  page  may  be  entered  or  skipped  as  re- 
quired. For  example,  to  enter  current  year  capacity  data,  key 

1 RETURN(EXEC) 

in  response  to  the  Instruction  at  the  bottom  of  the  page.  The 
cursor  will  be  positioned  under  CONVEN.  Key  RETURN(EXEC).  The 
cursor  will  be  positioned  under  LENGTH.  Again  key  RETURN(EXEC) . 
The  cursor  will  be  positioned  under  CAP.  Keyin  capacity  data, 
followed  by  RETURN ( EXEC ) . The  cursor  will  then  move  to  BCAP. 

Keyin  three  (3)  more  RETURN( EXEC )s  to  reposition  the  cursor  at  the 
bottom  of  the  page. 
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* 


5)  Historical  course  rates  are  shown  on  the  Course  file  listing 
as  decimal  numbers,  i.e.,  .030,  which  is  3%.  To  enter  a 3% 
failure  rate  in  line  5,  keyin  03.  0 % 


TAEG  REPORT  NO.  36 


MAINTENANCE  TRANSACTION  NUMBER:  21  (Cont'd) 


TRANSACTION  NAME: 
DATA  SOURCE: 
FUNCTION: 

KEY  IN  REQUIRED: 
RESPONSE: 


Add  a CDP  Number 

Course  File  Listing  - Section  A 

Add  a new  course  and  associated  data  to 
the  course  file 

RETURN(EXEC)  (from  TRANS  21  page  2) 


COURSE  CDP  # NNNN  

06  ACT/DEPT* CIN= CRS  TITLE- 

07  COURSE  UTILIZATION- % PLANNED  AOB= BACKLOG* 

08  DATE  NEXT  COURSE  REVIEW-YY/MM/DD  STAFF  UIC- 

09  CCMM« PRIORITY  CODE  - — 

tO  COURSE  TYPE- — NEC  AWARDED- 

11  0PTI0NAL1- 0PTI0NAL2- OPTION  AL3- 

KEY  LINE  NO  CONTAINING  DATA  TO  BE  ENTERED  OR  CHANGED. 

TO  SKIP  A DATA  ITEM  ON  A LINE  KEY  RETURN;  CURSOR  WILL  ADVANCE  TO 
THE  NEXT  DATA  ITEM.  IF  NO  MORE  EDITING  REQ'D.KEY  RETURN  - 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 


2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  Data  for  data  items  on  this  page  may  be  entered  or  skipped  as 
required. 


TO  TERMINATE  PAGE:  Key  RETURN(EXEC) . 

RESPONSE:  MENU. 


TAE6  REPORT  NO.  36 


MAINTENANCE  TRANSACTION  NUMBER:  23 


TRANSACTION  NAME: 
DATA  SOURCE: 


FUNCTION: 


KEYIN  REQUIRED: 
RESPONSE: 


Add  a Student/Instructor  Ratio 

Course  File  Listing  - Section  B 

Add  a new  student/instructor  ratio  and 
associated  data  to  a course  that  already 
exists  in  the  Course  file  or  to  a course 
that  is  being  added  to  the  Course  file 
during  the  current  terminal  session. 

23  RETURN(EXEC)  (From  MENU) 


•ADD  STUDENT/INSTRUCTOR  RATIO  DATA  FOR  THE  FOLLOWING  COURSE 


CDP  NUMBER  


ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN).KEY  RETURN.) 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  If  the  activity/dept  code  to  be  entered  is  the  same  as  the  previous 
entry,  it  can  be  entered  automatically  by  keying  RETURN(EXEC) . If 
the  required  actlvity/deot  code  is  not  the  same  as  the  code  printed 
on  the  following  line,  the  new  code  should  be  entered. 


TO  TERMINATE  PAGE:  Key  RETURN( EXEC  after  entering  Activity/Dept  code. 

RESPONSE:  TRANS  23  page  2 (see  next  page). 


TAEG  REPORT  NO.  36 


MAINTENANCE  TRANSACTION  NUMBER:  23  (Cont'd) 


TRANSACTION  NAME: 


Add  a Student/ Instructor  Ratio 


DATA  SOURCE: 


Course  File  Listing  - Section  B 


FUNCTION: 


KEYIN  REQUIRED: 


Add  a new  student/instructor  ratio  and 
associated  data  to  a course  that  already 
exists  in  the  Course  file  or  to  a course 
that  is  being  added  to  the  Course  file 
during  the  current  terminal  session. 

23  RETURN(EXEC)  (From  MENU) 


RESPONSE: 


CDP#  NNNN 

STUDENT/INSTRUCTOR  RATIO  /I 

CONTACT  HOURS  AT  THIS  RATIO  = 

RATIO  TYPE  = - 
1=LECTURE 
2=  LAB 

3=COMB  LEC/LAB 


TO  ENTER  ADDITIONAL  RATIO  DATA  FOR  THE  ABOVE 
COURSE  TYPE  1,  ELSE  KEY  RETURN  - 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  All  data  items  must  be  entered. 

5)  To  add  an  additional  student/instructor  ratio  for  the  same 
course,  enter  a 1 in  response  to  the  instruction  at  the  bottom 
of  the  page. 


TO  TERMINATE  PAGE:  Key  RETURN(EXEC) . 

RESPONSE:  MENU 


I 
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MAINTENANCE  TRANSACTION  NUMBER:  26 


TRANSACTION  NAME: 


Add  an  Instructor  Assignment 


DATA  SOURCE: 
FUNCTION: 


KEY  IN  REQUIRED: 


Course  File  Listing  - Section  C 

Add  a new  instructor  assignment  and  associ 
ated  data  to  a course  that  already  exists 
in  the  Course  file  or  to  a course  that  is 
being  added  to  the  Course  file  during  the 
current  terminal  session. 

26  RETURN(EXEC)  (From  MENU) 


RESPONSE: 


ADD  INSTR  ASSIGNMENT  DATA  FOR  THE  FOLLOWING  INSTRUCTOR: 

INSTRUCTOR  (D(SSN)  = ‘ — ’ IS % QUALIFIED 

TO  INSTRUCT  IN  THE  FOLLOWING  COURSE: 

CDP  NUMBER  

ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN).KEY  RETURN.) 

ASSIGN  FLAG  = - 

(ENTER  0 IF  NOT  TEACHING  ABOVE  COURSE;  ELSE  ENTER  I) 

TO  ENTER  ADDITIONAL  COURSE  ASSIGNMENTS  FOR  THE  ABOVE 
INSTRUCTOR  TYPE  I,  ELSE  KEY  RETURN  - 


1 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  All  data  items  must  be  entered. 

5)  If  the  activity/dept  code  to  be  entered  is  the  same  as  the  previous 
entry,  it  can  be  automatically  entered  by  keying  RETURN(EXEC) . 


j 
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6)  To  add  an  additional  instructor  to  the  same  course,  keyin 
1 RETURN(EXEC)  In  response  to  the  instruction  at  the  bottom 
of  the  page. 


TO  TERMINATE  PAGE:  Key  RETURN (EXEC) . 

RESPONSE:  MENU 


TAEG  REPORT  NO.  36 


) 

. 


DOTS  DATA  BASE  INSTRUCTOR  FILE  MAINTENANCE 

The  Instructor  file  contains  rate/rank,  report  and  rotate  dates,  NECS,  and 
the  activity  profile  data  for  each  instructor  sorted  by  ID  number.  As  with 
the  Course  file,  red-lined  Instructor  file  listings  will  be  the  source 
document  for  entering  change  data  on  the  WANG  data  cassette.  A sample  DOTS 
Instructor  file  listing  is  shown  below: 


I"' 

P 


■ « 

I 

[ 

! 2 


JUTS  t Nbl  MUC  TOH  FUE  LI5T1N., 
ON  On/0  7 / 7*.  AT  i 7*h 

( 7 ILLNAMF  « 

INST) 

PAGE  1 

*5 

ID 

HAlf  IN 

SCh  REP 

ROT 

PNEC  snec  NECS 

NEC*  NECS 

*7  J62639*  ARM I 

Ob  i 

NANSEN 

6E 

7605 

7006 

CONT 

t 

600 

PMC<*  > 

loo 

FTRN 

I 

0 

FLET  1 

U 

SKlV  1 

0 

CDEV 

1 

IS 

BMn  • 

7S0 

NOUT 

1 

120 

ADNN  1 

SO 

SUB  l 

0 

CONT 

1 

1*0 

CTR\  1 

0 

1SCH 

s 

160 

ANLV  1 

200 

*003*0003  MTC 

Ct 

PUGH 

6E 

7*0* 

770* 

9560 

CONT 

1 776 

PREP  1 

*0 

FTRN 

1 

0 

FLET  1 

0 

SKLV  1 

B 

COEV 

1 *6 

BKIN  1 

30 

NOUT 

: 

190 

AOHN  1 

250 

SLIB  1 

33* 

tONT 

> 36 

CTRn  i 

0 

I SCH 

t 

0 

ANLV  1 

360 

*01700667 

HT2 

R 

JtFFCKY 

6t 

7509 

7809 

9502 

CONT 

1 

500 

PREP 

• 

250 

FTRN 

I 

0 

FLET 

1 

100 

SKLV 

1 

0 

COEV 

t 

50 

BKIN 

1 

20 

ndut 

1 

100 

AOHN 

| 

SO 

SLIB 

1 

30 

EQMT 

1 

100 

CTRN 

I 

60 

ISCH 

t 

200 

ANLV 

1 

620 

*90*6271* 

NMC. 

JH  1 

EARNEST 

6E 

7509 

7*09  *29* 

CONT 

i 

721 

PREP 

• 

• 

125 

FTRN 

1 

0 

FLET 

1 

75 

SKLV 

, 

0 

COEV 

1 

*5 

H*  IN 

i 

75 

NOUT 

1 

152 

AONN 

1 

175 

SLIB 

1 

175 

EUHT 

1 

75 

CTRN 

i 

0 

ISCH 

I 

ISO 

ANLV 

1 

312 

*92*23601 

AHN1 

HL 

SI INSON 

6C 

7*02 

7702 

9502 

CONT 

1 

20* 

PH£P 

i 

200 

FTRN 

i 

32 

FLET 

1 

100 

SKLV 

1 

0 

COEV 

t 

0 

BKIN 

i 

100 

NOUT 

1 

BS2 

AOHN 

1 

100 

SLIB 

1 

0 

CONT 

1 

10* 

C7RN 

i 

0 

ISCH 

1 

2*0 

ANLV 

1 

2*0 

503622306 

HT1 

0 

SHOUN 

6C 

7*03 

7703  *951 

9502 

CONT 

t 

*82 

MHE>* 

i 

200 

FTRN 

» 

66 

FLET 

: 

50 

SKLV 

1 

0 

COEV 

1 

36 

BKIN 

i 

36 

NOUT 

1 

1*0 

ARMS 

• 

0 

SLIB 

1 

30 

EONT 

1 

60 

CTRn 

i 

120 

ISCH 

l 

200 

ANLV 

• 

580 

NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  If  the  activity/dept  code  to  be  entered  is  the  same  as  the  previ- 
ous entry,  it  can  be  entered  automatically  by  keying  RETURN(EXEC) . 


TO  TERMINATE  PAGE:  Key  RETURN(EXEC)  after  entering  actlvity/dept  code. 
RESPONSE:  TRANS  3 page  2 (see  next  page). 


I 


TAE6  REPORT  NO.  36 


MAINTENANCE  TRANSACTION  NUMBER:  3 (Cont'd) 


TRANSACTION  NAME: 
DATA  SOURCE: 
FUNCTION: 


KEYIN  REQUIRED: 
RESPONSE: 


ID  * XXX-XX-XXXX 


Change  Instructor  Data 

Instructor  File  Listing 

Change  the  data  contained  in  any  data  field 
listed  in  the  Instructor  file  listing  (ex- 
cept the  ID  number) 

RETURN(EXEC)  (From  TRANS  3 page  1) 


NAME  - XXXXXXXXXXXXXXXX 


01  NAME 

02  RATE 


INITIALS  — 

ACT/DEPT  = 


03  REPORT  DATE  « YY/MM/DD  ROTATE  DATE  * YY/MM/DD 

04  PRIMARY  NEC  SECONDARY  NEC  

05  ADDITIONAL  NECS  * 

KEY  LINE  NO  CONTAINING  DATA  TO  BE  ENTERED  OR  CHANGED. 

TO  SKIP  A DATA  ITEM  ON  A LINE  KEY  RETURN;  CURSOR  WILL  ADVANCE  TO 
THE  NEXT  DATA  ITEM.  TO  EDIT  REMAINING  INST  DATA,  RETURN  - 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  enor  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  Is  not  necessary  to  enter  a character  in  each  space. 

4)  Data  items  may  be  entered  or  omitted  as  required.  For  example, 
to  enter  only  a new  rotate  date,  key  3 RETURN(EXEC)  in  response 
to  the  instruction  at  the  bottom  of  the  page.  The  cursor  will 
advance  to  the  first  item  on  line  3 (report  date).  Key  RETURN(EXEC) 
The  cursor  will  advance  to  the  next  Item  on  line  3 (ROTATE  DATE). 

Key  In  the  new  rotate  date  followed  by  RETURN(EXEC) . The  cursor 
will  return  to  the  bottom  of  the  page. 

TO  TERMINATE  PAGE:  RETURN(EXEC) . 


RESPONSE: 


TRANS  3 page  3 (see  next  page). 
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MAINTENANCE  TRANSACTION  NUMBER:  3 (Cont'd) 


TRANSACTION  NAME: 
DATA  SOURCE: 


FUNCTION: 


KEYIN  REQUIRED: 
RESPONSE: 


Change  Instructor  Data 

Instructor  File  Listing 

Change  the  data  contained  in  any  data  field 
listed  in  the  Instructor  file  listing  (ex- 
cept the  ID  number) 

RETURN(EXEC)  (From  TRANS  3 page  2) 


ID  = XXX-XXX  XXXX  NAME  = XXXXXXXXXXXXXXXX 
“NOTE:  ALL  INSTRUCTOR  ACTIVITY  DATA  ARE  HOURS/YEAR 

06  STUDENT  CONTACT  = CURRICULUM  DEVELOPMENT  

07  CLASS  PREP/RELATED  OUT  INST  TRNG(BREAK-IN)  = 

08  EQUIP-TRNG/MAINT  = CROSS  TRNGILOW  STUD  LOAD)- 

09  FORMAL  INST  SCH  - FACTORY  TRNG/WKSHOPS  

10  SPEC  FLEET  ASSISTANCE- MIL  DUT/PHYS  TRNG/OTHER  

11  SUPERVISION/ADMIN  - ANNUAL  LEAVE  = 

12  SICK  LEAVE  SPECIAL  LIBERTY  = 

KEY  LINE  NO  CONTAINING  DATA  TO  BE  ENTERED  OR  CHANGED. 

TO  SKIP  A DATA  ITEM  ON  A LINE  KEY  RETURN;  CURSOR  WILL  ADVANCE  TO 
THE  NEXT  DATA  ITEM.  IF  NO  MORE  EDITING  REQUIRED, KEY  RETURN  - 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  Only  those  activity  hours  which  have  changed  need  be  entered. 

Key  line  number  containing  activity  category  to  be  changed.  To 
enter  new  hours  for  only  one  category  on  a line,  key  RETURN(EXEC) 
when  the  cursor  is  positioned  to  the  category  for  which  no 
change  is  required. 


TO  TERMINATE  PAGE:  Key  RETURN(EXEC) . 

RESPONSE:  MENU 
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MAINTENANCE  TRANSACTION  NUMBER:  13 


TRANSACTION  NAME: 
DATA  SOURCE: 

FUNCTION: 

KEYIN  REQUIRED: 
RESPONSE: 


Delete  Instructor  ID 

Instructor  File  Listing;  Course  File  Listing  ■ 
Section  C 

Deletes  the  ID  number  and  all  associated  data 
from  the  Instructor  file  and  deletes  all 
course  assignments  for  the  ID  number  from 
the  Course  file 

13  RETURN(EXEC)  (From  MENU) 


* DELETE  THE  FOLLOWING  INSTRUCTOR 


INSTRUCTOR  ID(SSN)  * 


ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN).KEY  RETURN.) 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  tQ  enter  a character  in  each  space. 

4)  If  the  activity/dept  code  to  be  entered  is  the  same  as  the 
previous  entry,  it  can  be  entered  automatically  by  keying 
RETURN (EXEC). 


TO  TERMINATE  PAGE:  Key  RETURN(EXEC)  after  entering  activity/dept  code. 

RESPONSE:  MENU 


TAE6  REPORT  NO.  36 


MAINTENANCE  TRANSACTION 
TRANSACTION  NAME: 

DATA  SOURCE: 

FUNCTION: 

KEYIN  REQUIRED: 
RESPONSE:  i 


* CHANGE  THE  FOLLOWING  INSTRUCTOR  ID(SSN) 

OLD  INSTRUCTOR  ID(SSN)  = — ~ 

NEW  INSTRUCTOR  ID(SSN)  = ~ — ~ 

ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN).KEY  RETURN.) 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  If  the  activity/dept  code  to  be  entered  is  the  same  as  the  previ- 
ous entry,  it  can  be  entered  automatically  by  keying  RETURN(EXEC) . 

5)  All  additional  instructor  data  changes  associated  with  the  instruc- 
tor whose  ID  number  has  been  changed  should  refer  to  the  new 
instructor  ID  number. 


NUMBER:  18 

Change  Instructor  ID 

Instructor  File  Listing;  Course  File  Listing 
Section  C 

Change  only  the  ID  number  from  the  value 
currently  listed  to  a new  value 

18  RETURN(EXEC)  (From  MENU) 

( 


I — 


TAEG  REPORT  NO.  36 


6)  This  transaction  changes  the  ID  number  in  both  the  Instructor 
file  and  in  the  Course  file  (instructor  assignments  - Section  C 
of  Course  file  listing). 


TO  TERMINATE  PAGE:  Key  RETURN(EXEC)  after  entry  of  activity/dept  code. 

RESPONSE:  MENU 
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MAINTENANCE  TRANSACTION  NUMBER:  24 


TRANSACTION  NAME: 
DATA  SOURCE: 
FUNCTION: 

KEY  IN  REQUIRED: 


Add  Instructor  ID 

Instructor  File  Listing 

Add  a new  instructor  ID  and  all  associated 
data  to  the  Instructor  file. 

24  RlTURN(EXEC)  (From  MENU) 


RESPONSE: 


* ADD  THE  FOLLOWING  INSTRUCTOR 

INSTRUCTOR  ID(SSN)  = ‘ — ' 

LAST  NAME  

FIRST.MIDDLE  INITIALS  — 

RATE/RANK  = 

ASSIGNED  TO 

ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN),KEY  RETURN.) 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  All  requested  data  must  be  entered. 

5)  If  the  activity/dept  code  to  be  entered  is  the  same  as  the  previ- 
ous entry,  it  can  be  entered  automatically  by  keying  RETURN(EXEC). 


TO  TERMINATE  PAGE:  Key  RETURN(EXEC)  after  entering  activity/dept  code. 

RESPONSE:  TRANS  24  page  2 (see  next  page). 
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MAINTENANCE  TRANSACTION 
TRANSACTION  NAME: 

DATA  SOURCE: 

FUNCTION: 

KEYIN  REQUIRED: 

RESPONSE: 


ID  = XXX-XX-XXXX  NAME  = XXXXXXXXXXXXXXXX 


01  NAME INITIALS  — 

02  RATE ACT/DEPT  = 

03  REPORT  DATE  * YY/MM/DD  ROTATE  DATE  = YY/MM/DD 

04  PRIMARY  NEC  SECONDARY  NEC  


05  ADDITIONAL  NECS  * 

KEY  LINE  NO  CONTAINING  DATA  TO  BE  ENTERED  OR  CHANGED. 

TO  SKIP  A DATA  ITEM  ON  A LINE  KEY  RETURN;  CURSOR  WILL  ADVANCE  TO 

THE  NEXT  DATA  ITEM.  TO  EDIT  REMAINING  INST  DATA,  RETURN  - 

NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  In  each  space. 

4)  Data  items  on  lines  1 and  2 should  not  be  entered  unless  errors 
were  made  when  these  data  items  were  entered  on  the  previous  page. 

5)  Data  Items  on  lines  3-5  may  be  entered  or  skipped  as  required. 

A data  item  can  be  skipped  by  keying  RETURN (EXECj^the  cursor 
will  advance  to  the  next  data  Item  on  the  line  t^^eturn  to  the 
instruction  at  the  bottom  of  the  page.  * 

TO  TERMINATE  PAGE:  Key  RETURN(EXEC) . 

RESPONSE:  TRANS  24  page  3 (see  next  page). 


NUMBER:  24  (Cont'd) 

Add  Instructor  ID 

Instructor  File  Listing 

Add  a new  instructor  ID  and  all  associated 
data  to  the  Instructor  file 

RETURN(EXEC)  (From  TRANS  24  page  1) 
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MAINTENANCE  TRANSACTION  NUMBER:  24  (Cont'd) 


TRANSACTION  NAME: 


Add  Instructor  ID 


DATA  SOURCE: 
FUNCTION: 


KEYIN  REQUIRED: 


Instructor  File  Listing 

Add  a new  instructor  ID  and  all  associated 
data  to  the  Instructor  file 

RETURN(EXEC)  (From  TRANS  24  page  2)  ’ 


RESPONSE: 


« 

ID  = XXX-XXX-XXXX  NAME  = XXXXXXXXXXXXXXXX 
**NOTE:  ALL  INSTRUCTOR  ACTIVITY  DATA  ARE  HOURS/YEAR 


06  STUDENT  CONTACT  = 

07  CLASS  PREP/RELATED  OUT  * 

08  EQUIP-TRNG/MAINT  * 

09  FORMAL  INST  SCH  3 

10  SPEC  FLEET  ASSISTANCE3 

11  SUPERVISION/ADMIN  3 

12  SICK  LEAVE  » 


CURRICULUM  DEVELOPMENT  3 

INST  TRNG(BREAK-IN)  3 

CROSS  TRNGILOW  STUD  LOAD)3 

FACTORY  TRNG/WKSHOPS  3 

MIL  DUT/PHYS  TRNG/OTHER  3 

ANNUAL  LEAVE  3 

SPECIAL  LIBERTY  3 


KEY  LINE  NO  CONTAINING  DATA  TO  BE  ENTERED  OR  CHANGED. 

TO  SKIP  A DATA  ITEM  ON  A LINE  KEY  RETURN;  CURSOR  WILL  ADVANCE  TO 
> I THE  NEXT  DATA  ITEM.  IF  NO  MORE  EDITING  REQUIRED.KEY  RETURN  - 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  Entry  of  0 hours  is  not  required.  Omitted  activity  categories 
will  automatically  default  to  0 hours. 

5)  Data  for  activity  categories  can  be  entered  or  omitted  as  required. 
To  omit  a data  item  key  RETURN(EXEC) ; the  cursor  will  advance 

to  the  next  data  item  or  will  return  to  the  instruction  at  the 
bottom  of  the  page. 

TO  TERMINATE  PAGE:  Key  RETURN(EXEC) . 

RESPONSE:  MENU 
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DOTS  DATA  BASE  FACILITY  FILE  MAINTENANCE 

The  Facility  file  contains  building/room  assignments,  including  space 
capacity,  required  and  available  hours,  sorted  by  course  CDP  number.  Red- 
lined  Facility  file  listings  will  be  the  source  document  for  entering 
Facility  file  changes  on  the  WANG  data  cassette.  A sample  DOTS  Facility 
file  listing  is  shown  below: 

UuTS  FACILITIES  FILE  Listing  (ULENAMF  = FfClLl 


UN  0 

8/07/7  ’ 

aT 

i 7*8 

COM 

bCM 

hlog 

WM 

mmm 

WMC  AP 

KmTm  wf.uHRS 

AVHWS 

11  JO 

*.10 

*78 

11* 

lb 

J 

7.0 

1750 

11  JO 

♦ JO 

*78 

118 

lb 

2 

JO.O 

1 7S0 

11  10 

♦ 30 

*78 

121 

10 

2 

20.0 

1750 

1130 

♦ JO 

*78 

137 

lb 

2 

“j7. 0 

1750 

1130 

♦ JO 

*78 

23  V 

lb 

1 

1 38.0 

1750 

14*2 

♦ JO 

*78 

121 

0 

2 

10.0 

1750 

12*2 

♦JO 

*78 

221 

0 

1 

A*  . 0 

1750 

205K 

♦ JO 

*78 

11* 

10 

2 

16.0 

1 750 

20bK 

♦ JO 

*78 

221 

20 

1 

IV. 0 

1750 

2*2b 

♦ JO 

*78 

112 

2b 

1 

12.0 

1750 

2*26 

♦ JO 

*78 

118 

* 

2 

2J.0 

1750 

12  1G 

♦ JO 

♦ 78 

1*5 

20 

2 

♦ 8.0 

1750 

J236 

♦ JO 

*78 

200 

♦ 0 

1 

1 ♦*  • 0 

1750 

50*T 

♦ JO 

*78 

11* 

8 

2 

v.o 

1750 

5U*T 

♦JO 

*78 

221 

30 

1 

1V.0 

1750 

50*V 

♦ JO 

87M 

11* 

12 

2 

2V.0 

1750 

5o*V 

♦ 30 

*78 

221 

3o 

1 

20.0 

1750 

bO*f 

♦ JO 

*78 

221 

20 

1 

8.0 

1750 

bO*Z 

♦ 30 

*78 

11? 

25 

1 

10.0 

1750 

50*2 

♦ 30 

*78 

1 3* 

1* 

* 

11.0 

*25 

b0  7C 

♦30 

*78 

118 

18 

1 

1 J.O 

1750 

b07t 

♦ 30 

*78 

1 3* 

1* 

A 

22.0 

625 

50  7F 

♦JO 

*78 

118 

1* 

J 

21.0 

1750 

507F 

♦ JO 

*78 

220 

♦ 0 

1 

1 ♦ • 0 

1750 

b«OZ 

♦ JO 

*78 

22 1 

20 

1 

20.5 

1750 

*025 

♦ 30 

*78 

108 

20 

3 

15.0 

1750 
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MAINTENANCE  TRANSACTION  NUMBER:  2 


TRANSACTION  NAME: 


Change  Building/Room  Data 


DATA  SOURCE: 
FUNCTION: 


KEY IN  REQUIRED: 
RESPONSE: 


Facility  File  Listing 

Change  the  value  of  any  data  item  (except 
building/room  number)  associated  with  a 
building/room  number  course  assignment  as 
identified  in  the  Facility  file  listing. 

2 RETURN(EXEC)  (From  MENU) 


•CHANGE  FACILITY  DATA  FOR  THE  FOLLOWING  COURSE 

CDP  NUMBER  

ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN),KEY  RETURN.) 

BUILDING/ROOM  NUMBER  = / 

REVISED  DATA: 

ROOM  CAPACITY (#ST DT)= ROOM  TYPE  = - 

(1=LEC2=LAB,3=BOTH,4=TRNER) 

HOURS  REQ'D  PER  XXXX  CONV  = TOT  HR  AVAIL/YEAR- 

TO  ENTER  ADDITIONAL  FACILITY  CHANGES  FOR  THE  ABOVE 
COURSE  TYPE  1,  ELSE  KEY  RETURN  - 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN (EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  If  the  activity/dept  code  to  be  entered  is  the  same  as  the 
previous  entry,  it  can  be  entered  automatically  by  keying 
RETURN (EXEC). 

5)  RETURN(EXEC)  must  be  keyed  after  building  number  to  position 
cursor  for  room  number  entry. 
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6)  Only  building/room  number  must  be  entered.  Remaining  data 
Items  may  be  entered  or  skipped  as  required.  To  skip  a data 
Item,  key  RETURN(EXEC)  when  the  cursor  Is  positioned  at  the 
data  Item  to  be  skipped. 

7)  To  enter  changes  for  other  facilities  associated  with  the  same 
course,  keyln  1 RETURN(EXEC)  in  response  to  the  Instruction 

at  the  bottom  of  the  page. 


TO  TERMINATE  PAGE:  Key  RETURN(EXEC) 
RESPONSE:  MENU 
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MAINTENANCE  TRANSACTION  NUMBER: 
TRANSACTION  NAME: 

DATA  SOURCE: 

FUNCTION: 


14 

Delete  Building/Room  Number 
Facility  File  Listing 

Delete  a building/room  assignment  and  all  assoc- 
iated data  for  the  specified  course  CDP  number 


KEY  IN  REQUIRED:  14  RETURN (EXEC)  (from  MENU) 

RESPONSE: 


•DELETE  FACILITY  DATA  FOR  THE  FOLLOWING  COURSE 

CDP  NUMBER  

ACTIVITY/DEPT  CODD 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN).KEY  RETURN.) 


BUILDING/ROOM  NUMBER  = / 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  If  the  activity/dept  code  to  be  entered  is  the  same  as  the 
previous  entry,  it  can  be  entered  automatically  by  keying 
RETURN(EXEC). 

5)  RETURN (EXEC)  must  be  keyed  after  building  number  to  position 
cursor  for  room  number  entry. 

TO  TERMINATE  PAGE:  Key  RETURN(EXEC)  after  entering  building/room  number. 

RESPONSE:  MENU 
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MAINTENANCE  TRANSACTION  NUMBER: 
TRANSACTION  NAME: 

DATA  SOURCE: 

FUNCTION: 


19 

Change  Building/Room  Number 
Facility  File  Listing 

Change  only  the  building  number  and/or  the 
room  number. 


KEYIN  REQUIRED:  19  RETURN(EXEC)  (From  MENU) 

RESPONSE: 


•CHANGE  BUILDING/ROOM  NUMBER  DATA  FOR  THE 

CDP  NUMBER  

ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN).KEY 

OLD  BUILDING/ROOM  NUMBER  = / 

NEW  BUILDING/ROOM  NUMBER  = / 


FOLLOWING  COURSE 


RETURN.) 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  Is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  Indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  Is  not  necessary  to  enter  a character  in  each  space. 

4)  If  the  activity/dept  code  to  be  entered  Is  the  same  as  the 
previous  entry,  It  can  be  entered  automatically  by  keying 
RETURN(EXEC). 

5)  RETURN(EXEC)  must  be  keyed  after  building  number  to  position 
cursor  for  room  number  entry. 
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6)  This  transaction  changes  all  occurrences  of  the  old  building/ 
room  number  in  the  Facility  file  to  the  specified  new  number. 


TO  TERMINATE  PAGE:  Key  RETURN ( EXEC ) after  entering  building/room  number. 

RESPONSE:  MENU 
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MAINTENANCE  TRANSACTION  NUMBER:  25 


TRANSACTION  NAME: 
DATA  SOURCE: 
FUNCTION: 


Add  a Building/Room  Number 
Facility  File  Listing 

Add  a facility  identified  by  building/room 
number  and  all  associated  data  to  the  Facility  file 


KEYIN  REQUIRED:  25  RETURN(EXEC)  (From  MENU) 

RESPONSE: 


•ADD  FACILITY  DATA  FOR  THE  FOLLOWING  COURSE: 

CDP  NUMBER  

ACTIVITY/DEPT  CODE 

(IF  SAME  AS  PREVIOUS  TRANSACTION  (NNNN).KEY  RETURN.) 


BUILDING/ROOM  NUMBER  = / 

ROOM  CAPACITYI#STDT)= ROOM  TYPE  = - 

(1*LEC,2*LAB,3*BOTH,4=TRNER) 

HOURS  REQ'D  PER  XXXX  CONV  = TOT  HR  AVAIL/YEAR- 

TO  ENTER  ADDITIONAL  FACILITY  DATA  FOR  THE  ABOVE 
COURSE  TYPE  1,  ELSE  KEY  RETURN  - 


NOTES:  1)  Typing  errors  may  be  corrected  by  backspacing  over  error  and 
retyping. 

2)  Data  is  not  stored  until  RETURN(EXEC)  is  keyed. 

3)  Dashes  indicate  the  maximum  number  of  characters  which  can  be 
entered.  It  is  not  necessary  to  enter  a character  in  each  space. 

4)  If  the  activity/dept  code  to  be  entered  is  the  same  as  the 
previous  entry,  it  can  be  entered  automatically  by  keying 
RETURN(EXEC). 

5)  RETURN(EXEC)  must  be  keyed  after  building  number  to  position 
cursor  for  room  number  entry. 

6)  Data  must  be  entered  for  all  data  items. 


I I 
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I 7)  If  more  than  one  facility  is  to  be  identified  for  the  same 

course,  keyin  1 RETURN(EXEC)  in  response  to  the  instruction 
at  the  bottom  of  the  page. 
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DATA  BASE  MAINTENANCE  OPERATIONAL  PROCEDURES  - CASSETTE  TRANSMISSION 
TO  NCSS 

Procedures  to  transmit  WANG  cassette  tapes  containing  data  base  maintenance 
transactions  to  the  NCSS  timesharing  environment  are  presented  in  this 
section.  These  procedures  are  designed  to  be  run  on  the  WANG  computer  system 
located  at  COMTRAPAC.  This  system  consists  of  a 2200  System  CPU  (16K 
memory  required).  Option  2 (General  I/O  ROM),  a telecommunications  modem, 
a CRT  display  and  keyboard,  a single  cassette  tape  drive,  a high-speed 
printer,  and  a disk  storage  unit. 

Upon  receipt  of  a maintenance  data  cassette  tape  from  a training  activity, 
the  Data  Base  Manager  (DBM)  at  COMTRAPAC  must  transfer  the  data  from  the 
cassette  tape  to  the  WANG  disk,  sort  the  data  by  transaction  type,  and 
then  transmit  the  data  via  telecommunication  from  the  WANG  disk  to  the 
NCSS  disk.  The  two  WANG  programs  required  to  accomplish  these  tasks  are 
DBTAPERD  and  TC-NCSS.  The  following  procedures  assume  that  the  DBM  is  pro- 
ficient in  the  operation  of  the  WANG  System  in  the  following  areas:  loading 

and  running  programs  from  either  tape  or  disk,  editing  programs  in  core, 
cataloging  data  files  on  the  disk,  and  running  the  disk  sort  program.  These 
procedures  are  also  documented  in  WANG  reference  manuals. 

TRANSFER  DATA  FROM  TAPE  TO  DISK.  The  program  DBTAPERD  is  required  to  *ans- 
fer  data  from  the  cassette  tape  to  the  disk.  DBTAPERD  must  first  be  loaded 
and  run.  A menu  of  special  function  (S.F.)  options  will  be  displayed. 

S.F.  1 will  generate  an  unformatted  listing  of  the  transaction  tape  and  will 
write  the  tape  records  to  the  disk  file  "DB-INPUT.''  Prior  to  keying  S.F.l 
the  disk  file  "DB-INPUT"  must  be  cataloged  on  the  R-disk.  The  number  of 
disk  sectors  required  for  "DB-INPUT"  is  a function  of  the  number  of  mainte- 
nance transactions  to  be  written  in  data  file  "DB-INPUT."  Each  transaction 
requires  one  disk  sector.  A full  cassette  tape  contains  approximately  650 
transactions.  Up  to  two  full  tapes  (or  1300  transactions)  may  be  read  into 
"DB-INPUT"  prior  to  executing  the  sort  program.  Files  larger  than  1300 
transactions  require  excessive  time  to  edit  and  process  in  the  NCSS  environ- 
ment. 

After  "DB-INPUT"  has  been  cataloged  on  the  R-disk,  key  S.F.l.  The  program 
will  respond: 

STOP;  MOUNT  TRANSACTION  TAPE  CASSETTE,  THEN  KEY  CONTINUE 

The  data  transfer  Is  automatic  after  the  tape  has  been  mounted  and  CuNTINUE 
has  been  keyed.  A hard-copy  listing  of  the  tape  will  be  printed  as  each 
record  is  read  into  "DB-INPUT."  To  append  additional  transactions  to 
"DB-INPUT,"  mount  another  tape  and  key  S.F.l  again.  The  data  from  the 
second  tape  will  then  be  appended  to  the  data  from  the  first  tape  in 
"DB-INPUT." 

SORT  "DB-INPUT."  After  the  desired  number  of  maintenance  transactions  have 
been  read  into  "DB-INPUT,"  the  disk  file  "DB-INPUT"  should  be  sorted  using 


i 
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the  WANG  utility  disk  sort  program.  The  format  of  the  records  in  "DB-INPUT" 
is  shown  below: 


FIELD 

NUMBER 

NUMBER 
OF  BYTES 

CONTENTS 

1 

2 

Transaction  Type 

2 

4 

Activity/dept  Code 

3 

4 

CDP  Number 

4 

40 

Transaction  Record 
Bytes  11-50 

"DB-INPUT"  must  be  sorted  by  transaction  type  (field  1).  Secondary  sorts 
may  be  made  on  activity/dept  code  and/or  CDP  number  at  the  discretion  of  the 
DBM.  The  output  file  for  the  utility  sort  routine  should  be  named  "DB-S0RT2." 

LIST  SORTED  TRANSACTION  FILE.  To  generate  a sequence-numbered  and  formatted 
listing  of  the  sorted  transaction  file  "DB-S0RT2"  load  and  run  "DBTAPERD." 

Then  key  S.F.2.  A hard-copy  listing  containing  the  sequence  number  of  each 
record  in  the  DB-S0RT2"  file,  a field  heading  for  each  field  In  the  trans- 
action record  and  a statement  noting  the  transaction  function  will  be  printed 
with  no  further  user  intervention. 


This  formatted  listing  should  be  reviewed  by  the  DBM  according  to  the  general 
maintenance  procedures  discussed  earlier  in  Section  II.  Upon  completion 
of  the  NCSS  transaction  processing,  errors  detected  by  RAMIS  should  be  noted 
on  this  listing.  The  annotated  copy  of  the  listing  should  then  be  returned 
to  the  appropriate  training  activity.  This  will  inform  each  activity  which 
transactions  have  been  included  in  the  RAMIS  data  base  and  which  transactions 
have  been  rejected.  Rejected  transactions  can  then  be  corrected  and  resub- 
mitted by  the  activity  during  the  next  maintenance  cycle. 

TRANSMIT  TRANSACTION  FILE  TO  NCSS  ENVIRONMENT.  The  WANG  program  required 
to  transmit  the  transaction  file  to  NCSS  is  TC-NCSS.  First,  TC-NCSS  must 
be  loaded.  Prior  to  running  TC-NCSS,  statements  710  and  715  should  be  exam- 
ined and  modified  as  required. 


Statement  710  should  specify  the  name  of  the  disk  file  containing  the  sorted 
transaction  file.  Statement  715  should  be  deleted.  TC-NCSS  should  then  be 
run.  The  following  message  will  be  displayed: 


ENTER  END  OF 

LINE 

SEQUENCE 

CR/LF/7F  = 

OD 

OA 

7F 

CR/LF/00  = 

00 

OA 

00 

LF/CR/7F  = 

OA 

OD 

7F 

The  user  should  respond: 

OA  OD  7F 


IN  HEX,  EG. 
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The  following  message  will  then  be  displayed: 

WANG  2200-B  TELECOMMUNICATIONS 

KEYBOARD  INTERACTION  WITH  T.C.  AUTO-OUTPUT  TO  LINE  PRINTER 

REQUIRES  2200-B  (8K)  CRT/KEYBOARD  AND  2227  BOARD 
WITH  OPTION  2 I/O  ROM 
S.F. 1 12  CRT/PRINTER  OUTPUT 
S.F. ‘13  CRT  OUTPUT 
S.F.' 14  EJECT  PRINTER  PAGE 
S.F. '15  DISPLAY  OF  S.F. POSSIBILITIES 
STOP:  KEY  APPROPRIATE  SPECIAL  FUNCTION 

The  user  should  respond  by  keying  S.F. 12. 

Prior  to  dialing  the  local  NCSS  telephone  number  the  user  should  verify  the 
following: 

1)  Printer  should  be  on  and  selected. 

2)  The  pushbuttons  on  the  2227  Telecommunications  Controller  should 
be  set  as  follows: 


BUTTON 

POSITION 

LSB 

DOWN 

OPS 

UP 

PAR 

DOWN 

NB2 

UP 

NB1 

DOWN 

3)  The  300  baud  transmission  rate  button  on  the  2227  Telecom- 
munications Controller  should  be  depressed. 

After  verifying  the  above  switch  positions,  the  user  should  dial  the  local 
NCSS  telephone  number.  When  a continuous  tone  is  heard  the  telephone  should 
be  placed  in  the  modem.  The  user  should  then  keyin  the  speed  Identifica- 
tion characters:  o (letter).  When  the  NCSS  system  responds: 

CSS  ONLINE 

the  user  should  follow  the  system  login  procedures  outlined  in  Section  2 
of  the  NCSS  VP/CSS  Reference  Manual,  form  106-4.  When  the  login  procedure 
Is  complete,  the  system  will  respond: 

CSS. 300  06/15/76 
hh.im.  ss 

At  this  point*  the  user  can  initiate  the  file  transmission  process  by  keying 

EDIT  FILENAME  FILETYPE 
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where  FILENAME  and  FILETYPE  may  be  any  eight  character  designator.  A 
recommended  convention  is  to  assign  the  training  activity  name  to  the 
FILENAME  and  the  current  data  to  the  FILETYPE,  i.e.,  ASW  0910.  The  system 
will  respond: 

NEW  FILE 

NONSTANDARD  FILETYPE 
INPUT 

At  this  point,  the  user  should  depress  the  reset  button  on  the  keyboard. 
The  system  will  respond: 

READY: 

The  user  should  now  keyin  S.F.10.  At  this  point  the  transactions  stored 
in  the  disk  file  named  in  statement  710  will  be  printed  on  the  printer 
as  they  are  read  into  the  NCSS  file  named  in  the  EDIT  statement.  If  no 
transmission  error  occurs,  all  transactions  will  be  read  from  the  WANG 
disk  file  to  the  NCSS  file  with  no  further  intervention.  After  the  last 
transaction  has  been  printed  and  sent  to  NCSS,  printing  will  stop.  The 
user  should  then  key: 


RETURN(EXEC) 


The  system  will  respond: 


The  user  should  key: 


LINENO 


The  system  will  respond  with  the  line  number  of  the  last  line  entered.  If 
no  errors  have  occurred,  this  line  number  should  be  equal  to  the  number  of 
transactions  transmitted.  To  perform  an  additional  check,  the  user  should 
key: 

PRINT 

This  will  cause  NCSS  to  print  the  last  transaction  entered.  This  should 
be  identical  to  the  last  transaction  listed  on  the  numbered,  formatted 
listing  of  the  sorted  transaction  file.  To  store  the  new  NCSS  file,  the 
user  should  then  key: 


The  system  will  respond  with: 

hh.mm.ss  (time-of-day) 

To  recover  from  a transmission  error,  which  may  be  difficult  to  detect 
but  may  manifest  Itself  by  halting  transmission,  thereby  halting  record 


I 


4 
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printing  at  the  printer,  the  steps  outlined  below  should  be  followed. 
First,  depress  the  reset  button,  followed  by  keying 

RETURN(EXEC)  \ 

if  the  system  responds 


EDIT 

then  follow  the  steps  outlined  above  to  determine  the  last  record  trans- 
mitted. If  the  system  responds 

VP 

the  user  must  first  key 

BACK  RETURN(EXEC) 

If  the  system  then  responds  EDIT,  follow  the  steps  above.  If  no  response 
is  given,  key  an  additional 

RETURN(EXEC)  * 

The  system  should  then  respond  EDIT. 

To  resume  transmission  at  the  transaction  following  the  last  transaction  sent, 
key: 

SAVE 

The  system  will  respond 

INPUT: 

The  user  should  then  depress  the  reset  button,  and  insert  statement  715 
into  the  NCSS  program.  Statement  715  should  be  constructed  as  follows: 

715  DSKIP  NNN  S 

where  NNN  is  the  last  transaction  number  transmitted.  After  Inserting 
statement  715,  the  user  should  key  S.F.1Q.  Transmission  will  continue 
beginning  with  the  transaction  following  the  last  transaction  sent. 


» *** 
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DATA  BASE  MAINTENANCE  OPERATIONAL  PROCEDURES  - PROCESSING  AT  THE 
NCSS  COMPUTER 


Figure  1-1  depicts  the  general  flow  of  maintenance  items  in  the  DOTS 
system.  In  Table  I 1-4  which  follows,  all  types  of  maintenance  activity 
that  can  be  directed  at  the  three  files  of  the  DOTS  system  are  itemized. 

All  maintenance  transactions  originate  at  the  WANG  computer.  For  a given 
maintenance  run,  all  transactions  are  accumulated  onto  a single  trans- 
action tape.  Each  transaction  is  identified  by  a format  number;  the  trans- 
actions appear  on  the  tape  in  sorted  order  by  this  format  number.  A specific 
maintenance  run  may  be  made  with  one  or  an  indefinite  number  of  transactions 
of  any  one  or  all  formats. 


Once  the  tape  has  been  transferred  to  the  NCSS  system,  the  transactions 
reside  in  a specific  NCSS  file  identified  by  a filename  and  filetype.  To 
initiate  the  action  which  will  ultimately  result  in  presentation  of  the  trans- 
action data  to  the  RAMIS  system  for  execution,  two  executive  sequences  have 
been  provided.  The  action  of  each  is  indicated  by  the  following  description. 
Note  that  for  each,  the  filename/filetype  of  the  input  transaction  file  are 
provided  as  execution  arguments. 


To  Initiate  Action,  Type 


super  fn  ft 


* 


Results 


(1)  Existing  maintenance  utility  files 
are  erased. 

(2)  Input  transactions  from  the  file 
specified  as  fn  ft  are  processed  by 
the  Transaction  Processing  Program. 
If  errors  are  detected,  the  user  is 
so  notified. 


(3)  Output  utility  files  are  created  as 
needed.  The  output  files  and  their 
relation  to  input  transactions  are 
indicated  in  Table  I 1-4.  If  one  or 
more  transaction  formats  are  missing 
in  the  input,  one  or  more  output 
files  will  not  be  established. 


(4)  If  explicit  errors  have  occurred 
during  the  run  of  the  Transaction 
Processing  Program,  the  user  is  so 
notified  and  further  processing 
aborted  at  this  point.  If  no  errors 
were  detected,  operation  proceeds 
with  Step  (5)  below. 

= Carriage  Return  or  RETURN(EXEC)  or  CR/LF. 
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Format 

Description 

Output 

Name 

File 

Type 

2 

Change  a Facility  file  level  2 non-key 
field 

DSC 

RAM 

3 

Change  an  Instructor  file  level  1 non- 
key field 

DSC 

RAM 

6 

Change  a Course  file  level  1 non-key  field 

DSC 

RAM 

7 

Change  a Course  file  student/ Instructor 
ratio  (SIR)  segment  non-key  field 

DSC 

RAM 

8 

Change  a Course  file  Instructor  segment 
non- key  field 

DSC 

RAM 

11 

Delete  a course  CDP  number 

DSA 

RAM 

12 

Delete  a student/instructor  ratio  (SIR) 
segment  from  the  Course  file 

DSA 

RAM 

13 

Delete  an  instructor  ID 

M13EXA 

EXEC 

14 

Delete  a building/room  segment  from  the 
Facilities  file 

DSA 

RAM 

15 

Delete  a school  code  from  all  files 

M15EXA 

EXEC 

16 

Change  a course  CDP  number 

M16EXA 

EXEC 

17 

Change  a student/instructor  ratio  in 
the  Course  file 

M17EXA 

EXEC 

18 

Change  an  instructor  ID 

M18EXA 

EXEC 

19 

Change  a building/room  number  in  the 
Facilities  file 

M19EXA 

EXEC 

20 

Change  a school  code  In  all  files 

M20EXA 

EXEC 

21 

Add  a new  course  CDP  to  the  Course  and 
Facilities  files 

DSB 

RAM 

DATA  BASE  MAINTENANCE  TRANSACTIONS 
AND  MAINTENANCE  TRANSACTION  FILES 


TABLE  I 1-4 


IS*' 


l 


v 


: 


l t 
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Format 

Description 

uutput 

Name 

FTF 

Type 

23 

Add  a new  student/ instructor  ratio  (SIR) 
segment  to  the  Course  file 

DSB 

RAM 

24 

Add  a new  instructor  segment  to  the 
Course  file 

DSB 

RAM 

25 

Add  a new  building/ room  segment  to  the 
Facilities  file 

DSB 

RAM 

26 

Add  a new  instructor  segment  to  an 
existing  course 

DSB 

RAM 

27 

Delete  an  instructor  segment  from  an 
existing  course 

DSB 

RAM 

TABLE  1 1 -4  (Cont'd) 


To  Initiate  Action,  Type 


i * 


superx  fn  ft 


© 


Results 

(5)  Table  II-5  indicates  the  order  of 

processing  for  the  maintenance  utility 
files.  This  order  must  be  maintained 
to  assure  that  maintenance  activity 
is  scheduled  as:  all  deletions,  all 
changes,  all  additions.  Within  the 
NCSS  executive  sequence,  all  files 
are  processed  in  the  order  shown  in 
Table  I 1-5  via  a two-step  logic. 

First,  the  file's  existence  is  tested; 
if  it  is  absent  from  the  system,  proc- 
essing continues  with  the  next  utility 
file  in  line.  If  present,  the  data 
residing  in  the  utility  file  is  pre- 
sented to  the  RAMIS  system  to  accom- 
plish the  required  maintenance. 

(1),  (2),  and  (3)  - As  above,  with  execu- 
tive = SUPER. 


(4)  The  user  is  notified  of  any  errors 
detected  during  the  run  of  the  Trans- 
action Processing  Program  and  opera- 
tion ceases  at  this  point.  Any  re- 
quired maintenance  utility  files 
will  have  been  created. 


■ 
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After  executive  = SUPERX  has  completed,  the  user  may  cause  further  pro 
cessing  of  the  maintenance  utility  files  by  the  following  sequence  of 
operations: 


listf  fn  ft 


Where  fn  ft  Is  the  name  and  type  of  the 
maintenance  file  of  concern.  This  is  an  in- 
vocation of  the  standard  NCSS  LISTF  function; 
response  from  the  NCSS  system  will  be  the 
usual  message  Indicating  the  number  of  items 
in  the  file  or  a message  Indicating  that  the 
file  does  not  exist. 


Once  the  given  file's  existence  has  been  confirmed,  the  file's  contents 
may  be  presented  to  the  RAMIS  system  for  processing  by  the  keyboard  se- 
quences shown  In  Table  I 1-5.  For  instance,  to  process  DSB/RAM,  enter 
the  following: 


ram  dsb  ram 


The  relative  sequence  of  the  file  processing  as  shown  in  Table  I I -2  is 
Proc?!s]n9  of  multiple  files  In  an  order  differing  from  that 
shown  will  result  In  confusing  and  unpredictable  errors. 


Order  of 
Execution 

UUTTty 

Maintenance  File 
Filename/filetype 

To  Initiate 
RAMIS  Processing, 

Enter: 

1 

OSA 

RAM 

ram  dsa 

ram 

lOM 

2 

M13EXA 

EXEC 

ml 3exa 

3 

M15EXA 

EXEC 

ml 5exa 

© 

4 

M16EXA 

EXEC 

ml6exa 

5 

M17EXA 

EXEC 

ml 7exa 

is* 

6 

M18EXA 

EXEC 

ml8exa 

m 

7 

M19EXA 

EXEC 

ml 9exa 

N 

8 

M20EXA 

EXEC 

m20exa 

m 

9 

OSB 

RAM 

ram  dsb 

ram 

pm 

10 

DSC 

RAM 

ram  dsc 

ram 

LOS 

UTILITY  MAINTENANCE  FILE 
RAMIS  PROCESSING 


TABLE  I I -5 
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DATA  BASE  MAINTENANCE  OPERATIONAL  PROCEDURES  - 
GENERAL  PURPOSE  UTILITY  PROGRAMS 


Three  general  purpose  executive  sequences  have  been  developed  to  assist  the 
user  with  common  data  base  maintenance  tasks.  These  executives  bear  the 
names  of  the  files  with  which  they  are  associated,  i.e.,  FACIL,  INST,  and 
COURSE.  As  with  all  NCSS  executives,  the  sequence  is  initiated  by  typing 
in  the  executive  name.  These  three  executives  require  one  (and  only  one) 
execution- time  arguments.  The  following  indicates  the  selections: 

Executive  Name 

Arguments 

FACIL 

DUMP 

INST 

RELOAD 

COURSE 

FNS 

INDEX 

DESC 

DESCLOAD 

As  stated  above,  the  execution  arguments  are  mutually  exclusive  and  must  be 
invoked  one  at  a time.  Selection  of  the  executive  by  the  same  name  as  the 
RAMIS  file  concerned  is  self-explanatory.  The  arguments  elicit  the  following 
actions: 

DUMP  - A RAMIS  dump  function  is  executed  against  the  selected  file. 

In  the  case  of  the  COURSE  and  INST  files,  auxiliary  storage 
is  used  due  to  the  size  of  the  files.  When  completed,  the 
file  dump  will  be  reformatted  (not  required  for  the  FACIL 
file)  and  the  resulting  records  will  be  stored  In  on-line 
disk  storage.  A subsequent  invocation  of  the  same  execu- 
tive with  the  RELOAD  option  (explained  below)  uses  this 
reformatted  dump  file  to  erase  the  file  concerned  and 
effect  its  complete  reload.  The  reformatted  dump  records 
reside  in  the  following  files  (fllename/flletype) : 

Facilities  File  - FACIL/DUMP 

Instructor  File  - INST/DUMP2 

Course  File  - C0URSE/DUMP2 

RELOAD  - Using  the  dump  file  created  by  the  DUMP  option  as  explained 
above,  this  argument  forces  the  erase  and  complete  reload 
of  the  file  concerned.  After  successful  execution,  the 
RAMIS  file  will  be  in  the  exact  state  as  existed  at  the 
time  that  the  DUMP  was  made. 
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FNS  - This  option  causes  an  on-line  listing  of  the  executive  sequences 
associated  with  these  three  general  purpose  executives;  e.g., 
the  following  entry: 


course  fns  CR 

will  cause  the  listing  of  executives  E7,  E8,  and  E9.  The  FNS 
option  Is  really  only  of  use  to  those  concerned  with  system  or 
program  maintenance. 

INDEX  - This  argument  causes  a RAMIS  listing  of  the  selected  file's 
Internal  RAMIS  description. 

DESC  - This  option  lists  the  selected  file's  RAMIS  description  as 
it  exists  In  card-image  form.  For  each  of  the  three  files,  the 
applicable  description  is  stored  In  the  NCSS  system  as  follows 
(f llename/flletype) : 

Facilities  File  - FACIL/DESC 

Instructor  File  - INST/DESC 

Course  File  - COURSE/DESC 

i 

DESCLOAD  - This  entry  causes  the  applicable  file's  description  to  be 
entered  Into  the  RAMIS  system.  This  actfon  completely  erases  the 
previous  file  description  as  well  as  the  data  file  Itself.  This 
erase  action  is  complete  and  the  previous  description  and  file 
contents  will  be  Irretrievably  lost.  If  the  file  description 
(found  In  filename/ DESC)  has  been  modified  before  DESCLOAD, 
then  a subsequent  attempt  at  RELOAD  will  fail  unless  the  re- 
lated RAMIS  functions  associated  with  RELOAD  have  been  modified 
In  conjunction  with  the  description  change. 

The  following  three  executives  utilize  the  reformatted  dump  files  FACIL/DUMP, 
INST/DUMP2,  and  C0URSE/DUMP2  to  produce  a listing  of  the  current  file  con- 
tents. All  fields  In  all  records  are  listed.  No  arguments  are  required  in 
the  operation  of  these  executives.  At  the  time  of  this  document,  all  printer 
listings  were  being  routed  to  the  San  Diego  office  of  National  CSS.  The  user 
may  pick  up  the  printer  output  at  this  location. 

DOTS  File  Printer  DUMP  Executive  Name 

Facilities  PFACIL 

Instructor  PINST 

Course  PCOURSE 

To  assist  the  user  In  effective  data  base  maintenance,  a set  of  forms  can  be 
produced  via  printer.  These  forms  can  be  used  In  a fill-in- the-blanks  manner 
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to  note  the  requirement 
the  invocation  of  these 
file. 

DOTS  File 
Instructor 


for  data  base  changes.  No  arguments  are  required  in 
executives.  No  forms  are  provided  for  the  Facilities 


Blank  Forms  Executive  Name 
FINST 


Course 


FCOURSE 


- 

* 

i- 
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SECTION  III 

TRAINING  PROCESS  FLOW  MODEL 
MODEL  DESCRIPTION  AND  USER'S  GUIDE 


TPF  MODEL  ARCHITECTURE 

The  objectives  of  the  Training  Process  Flow  model  are: 

a.  To  provide  training  management  with  an  ability  to  assess  the  effects 
upon  the  training  system  of  projected  changes  in: 

o Demand 

o Scheduling 

o Capacities 


b.  To  develop  model  output  data  formats  that  provide  high  informational 
content  to  training  management,  so  that  effective  decisions  can  be 
made  for  maximizing  the  utilization  of  training  complex  resources. 

The  TPF  model  is  capable  of  assessing  the  impact  of  changes  in  certain  input 
characteristics  at  the  course  level,  and  of  showing  the  effects  of  these 
changes  at  the  school  and  complex  levels.  Some  examples  of  the  course  modifica 
tions  which  can  be  entered  into  the  TPF  model  are: 


a. 


b. 


c. 


d. 


e. 


f. 


g- 


Annual  demand 

Class  capacity 

Annual  number  of  convenings 

Course  length 

No-show  rates 

Student  failure  rate 

Student  setback  rate 


i 


The  model  is  also  capable  of  assessing  the  effects  of  modifications  to  all 
courses  at  a training  center,  such  as  might  be  caused  by  a change  In  policy  or 
planning.  Examples  of  'across-the-board'  modifications  that  may  be  examined 
using  the  TPF  model  are: 

a.  Changes  In  annual  demand  by  a fixed  percent  of  all  years  of  the  run 

b.  Changes  In  demand  on  an  annual  basis;  e.g.,  a growth  of  10%  per 
year  in  demand  for  each  year  of  the  run 

c.  Changes  in  the  overall  center  no-show  rate 


III-l 
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d.  Changes  in  convening  frequencies  for  all  courses  by  a fixed  percentage 

e.  Elimination  of  all  setbacks 

f.  Introduction  of  a longer  teaching  day  (result  is  reduction  of  course 
lengths  for  AOB  purposes). 

This  'across-the-board'  capability  is  important  to  the  user  as  the  model  will 
only  make  logical  (or  rational)  changes.  That  is,  fractional  course  convenings 
are  not  allowed,  lengths  are  corrected  to  multiples  of  days  (or  half  days  by 
option),  and  lengths  are  automatically  adjusted  for  weekend  days,  without  the 
need  for  user  awareness. 

The  final  output  effects  of  the  model  are  measured  in  terms  of: 

a.  Average-on-board  (AOB) 

b.  Utilization 

c.  Throughput 

d.  Backlog  (including  average  wait  time). 

Intermediate  effects  available  as  model  output  Include: 

a.  Pass/fall  rates 

b.  Setback  rates 

c.  No-show  rates. 


MODEL  DESCRIPTION  The  TPF  model  is  an  aggregate  flow  model  designed  to  project 
the  effect  on  course,  school,  or  training  center  throughput  of  changes  in  de- 
mand, capacities,  or  scheduling.  An  overview  of  the  TPF  system  Is  shown  In 
Figure  III-l. 

The  TPF  model  will  accept  data  from  two  sources;  first,  from  the  unloaded  DOTS 
Master  or  Scratch  data  base,  and  secondly  from  data  created  by  a program  with- 
in the  TPF  system.  This  dual  Input  capability  Is  Important  to  the  user.  The 

DOTS  data  base  Interface  allows  the  user  to  analyze  projections  based  on  the 
current  operational  plan.  Including  the  latest  revisions.  The  capability  of 

modifying  this  data  base  allows  the  testing  of  alternate  plans  within  the  over- 

all system.  The  alternate  Input  allows  the  studying  of  several  alternate  plans, 
without  the  need  to  update  the  data  base. 

Any  Input  parameter  to  the  model  can  be  considered  a variable  for  manipulation 
to  achieve  the  desired  end  results.  Any  course  length,  capacity,  schedule, 
demand,  or  attrition  rate  can  be  modified  for  detailed  analysis.  The  model  also 
allows  the  operation  of  a course  with  one  set  of  characteristics  for  part  of 


MODEL  - SIMPLIFIED  SYSTEM  FLOW 


FIGURE  111-1 
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a model  run,  and  an  entirely  different  set  of  characteristics  for  the  remainder 
of  the  run. 

The  design  of  the  TPF  model  is  such  that  it  might  be  termed  a front-end  loaded 
model.  That  is,  all  schedule  and  demand  conditions  for  a course  are  loaded  at 
the  beginning  of  the  year,  and  the  model  then  projects  the  resultant  conditions 
for  the  remainder  of  the  year.  Likewise,  the  basic  model  projects,  rather  than 
predicts.  The  model  itself  is  a true  simulation,  or  mathematical  representa- 
tion of  the  mechanics  of  the  overall  scheduling  function  of  the  center.  All 
major  functions  that  affect  student  flow  are  modeled  to  a detail  similar  to  the 
actual  operations  at  the.  center,  which  include  quota  control,  BUPERS  detailing, 
scheduling,  failures,  and  setbacks.  The  model  outputs,  however,  can  be  pre- 
dictive if  the  inputs  themselves  are  predictive.  To  use  the  model,  for  decision- 
making purposes,  the  user  must  input  his  predictions  of  demands,  schedule  changes, 
new  courses,  etc.,  and  the  model  then  projects  the  annual  throughputs,  failures, 
AOB's,  and  such,  based  on  these  predictions.  Likewise,  a simulation  model  is 
not  an  optimization  model;  the  large  number  of  variable  input  parameters  pre- 
cludes this.  The  user  can  manipulate  the  model  inputs  to  achieve  optimal  re- 
sults. Figure  I I 1-2  shows  the  logical  flow  of  the  TPF  model  and  is  detailed  by 
subroutine.  A further  description  of  the  logic  of  the  TPF  model  may  be  found 
in  SECTION  VI. 

SUPPORT  PROGRAMS.  The  TPF  model  is  designed  to  be  operated  as  a stand-alone 
model,  using  data  generated  Internally,  or  in  conjunction  with  the  DOTS  data 
base  system.  Support  programs  are  written  to  provide  the  user  the  flexibility 
of  either  (or  both)  modes  of  operation.  The  major  components  of  the  support 
programs  fall  into  three  general  categories. 

a.  Data  base  interface 

b.  'What  If*  capability 

c.  Output  report  display 

Data  Base  Interface.  The  TPF  model  provides  for  two  levels  of  access  to  the 
DOTS  data  base.  Recess  is  provided  to  the  Course  Master  file  for  baseline 
data,  and  to  the  Course  Scratch  file  for  selected  data  or  courses  that  have 
been  modified  using  data  base  procedures.  Executive  TPFCOPY  is  used  to 
access  the  Master  or  Scratch  files  and  to  format  the  data  in  a form  accept- 
able.to  the  TPF  model.  This  method  of  access  has  been  chosen  for  three 
reasons.  First,  once  the  TPFCOPY  support  program  has  been  run,  the  data  un- 
loaded are  available  to  the  TPF  model  for  multiple  runs,  freeing  the  data  base 
system  for  other  users.  Secondly,  the  Scratch  file  can  be  accessed  by  both 
the  TPF  model  and  the  SCRR  model,  allowing  both  models  to  study  the  training 
center  data  for  the  test  condition.  Finally,  a user  familiar  with  RAMIS  will 
be  able  to  form  Scratch  files  from  the  Master  data  base  in  almost  any  form 
or  condition  imaginable,  allowing  the  TPF  model  to  access  this  powerful  tool. 

The  TPF  MASTER  and  TPF  SCRATCH  files  created  during  this  operation  will  re- 
main,Intact  until  another  TPFCOPY  operation  for  the  respective  file  is  per- 
formed. 
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TPF  MODEL  FUNCTIONAL  FLOW 


PROGRAM 

MAIN 


1.  Read  parameter  card  to  iletermine  operations. 

2.  Raad  Data-Edit  for  invalid  or  mining  data  (MSG  to  Printer). 

3.  Convart  course  lengths  to  weeks- 

4.  Perform  "Across  the  Board"  modt  and  rationalize. 

5.  Initialize  itudeni  backlog. 

6.  Provide  following  control  loop*: 


A.  Year 

B.  Quarter  (including  mit  loop) 

C.  Week  ■ including: 

o Data  to  be  used  (FY.  FY+1,  or  FY+21 
o Rationalize  change  week  and  off set 
o Courta  relaaM  (according  to  matrix  I 
o Courta  and  calculation 


SUBROUTINE 

CRSRLS 

1.  Called  by  MAIN  if  courta  it  to  ba  ttartad. 

2.  C.-illt  PRERUN  if  in  'imt'  mode  to  tee  if  courta  should  start. 

3.  II  courta  it  to  start: 

A Releases  SUPERS  students,  (level-loaded)  to  clast, 
reaardlatt  of  over -book  me. 

B.  TSfa  local  students  (level-loaded)  to  backlog  pool. 

C . Releases  local  students  from  backlog  pool  to  clan 
(up  to  local  capacity). 

D.  Calculates:  NOSHOWS  - LOCAL  STUDENTS* 

NO  SHOW  RATE  (fractional  value  carried  to  next 
convening). 

E.  Substitute  quotas  to  10%  of  data  capacity 
released  if  space  available  and  courta  backlogged 

F.  Multiple  convenings  of  same  courta  up  to  1 0 per 
wsflic  allowed. 

G.  Totals  calculated:  utilization,  convenings, 
capacity,  no  shows. 


SUBROUTINE 

PRERUN 

1.  Inits  modal  byYetting  up  classes  in  session  at  modal  start. 

2.  Only  starts  those  courses  mealing  above  criteria. 

3.  No  pools,  backlogs,  or  totals  affected. 


SUBROUTINE 

CRSEND 

1.  Called  by  MAIN  if  course  to  end  in  week  being  calculated. 

2.  Calculates  failures  as:  FAIL  * UTIL  * PCT  FAIL 

3.  Adjusts  AOB  for  early  diaenrollment  of  failing  studantt. 

4.  Fractional  failures  earned  forward  to  next  convening. 

5.  Calculates  setbacks  at  r percentage  of  failures  if  there  are 
other  sessions  of  courta  are  running  and  course  length  it 
more  than  3 weeks.  Adjusts  AOB  for  setback. 

6.  Totals  calculated:  Pass,  fail,  setback.  AOB.  student  days. 


SUBROUTINE 

OTREND 

t . Adjusts  AOB  and  student  days  for  courses  that  span  quartan. 

2.  Sevas  quarterly  totals  for  'pool'  data  (backlog,  failures,  no-shows). 

3.  Carries  forward  fractional  students  from  pool  to  next  quarter. 


SUBROUTINE 

YEARND 

1 . Calculates  annual  totals . 

2.  Initializes  A zeros  carry-over  elements  for  multi-yaer  runs. 

3.  Calculates  course,  school,  A center  totals  for  reports  keyed. 

4.  Calls  appropriate  report  generator  routines. 


L 

SUBROUTINE 

CRTOUT  1 

o Provides  center,  school,  A course  reports  in  a 79 
column  format  for  display  terminal  output 
or  offline  printing. 


FIGURE  1 1 1-2 
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'What  If1  Support.  The  'what  if'  capability  of  the  model  is  what  allows  the  TPF 
system  to  be  a useful  tool.  The  'what  if'  capability  is  supported  in  three 
places  within  the  DOTS/TPF  system.  First*  RAMIS  can  be  used  to  create,  modify, 
or  select  data  to  form  the  Scratch  data  base  that  can  be  used  as  an  input  to  the 

TPF  model  (see  Section  II,  this  volume).  Secondly,  program  TPFMOD  allows  the 

user  to  create  courses  or  modify  data  for  existing  courses  to  allow  rapid  ex- 
amination of  a course  under  different  conditions.  Finally,  the  TPF  model  has 

the  built-in  capability  for  studying  certain  modifications  to  all  courses  for 
a run. 

TPFMOD  is  a specialized  program  intended  to  allow  a terminal  user  conversational 
access  to  data  stored  in  the  TPF  MASTER  or  TPF  SCRATCH  data  files  created  by 
the  COPY  operation.  The  program  has  two  functions.  First,  the  user  is  allowed 
to  copy  all  data  for  any  course  into  a temporary  file  and  modify  any  data  element(s) 
desired.  Secondly,  the  user  can  create  any  new  course  in  this  temporary  file, 
using  prompting  routines  specifically  requesting  only  that  information  required 
to  run  the  course  using  the  TPF  model.  Since  the  program  is  written  specifi- 
cally to  support  TPF  'what  If'  capability  and  is  not  general  purpose,  operation 
is  simple,  straightforward,  and  fast.  Two  features  add  to  the  flexibility  of 
this  program.  First,  the  same  course  may  be  copied  and  modified  several  times, 
allowing  examination  of  the  same  course  under  several  different  conditions  in  the 
same  run.  Secondly,  courses  may  be  created,  and  the  temporary  file  generated  may 
be  concatenated  with  the  Master  or  Scratch  file,  allowing  the  examination  of 
the  effects  of  the  addition  of  the  course  on  the  overall  training  center. 

Program  PARAM  Interfaces  the  user  with  the  'what  If  capability  internal  to  the 
TPF  model.  The  model  allows  the  user  to  provide  multiplier  overrides  for  all 
parameters  used  for  calculation  within  the  TPF  model.  For  example,  the  user 
may  implement  a 10%  increase  in  demand  for  all  courses  by  entering  1.10  as  the 
demand  parameter  using  the  support  program  PARAM,  called  by  TPF.  As  another 
example,  a training  manager  could  study  the  effect  of  eliminating  all  no-shows 
by  entering  0.00  as  the  no-show  parameter,  again  using  the  support  program 
PARAM,  called  by  TPF.  This  program  also  allows  the  user  to  specify  a specific 
school  or  course  to  be  executed  for  a run,  bypassing  all  other  courses.  Use  of 
this  program  for  'what  If'  questions  may  be  advantageous  to  the  user  for  the 
following  reasons.  First,  this  program  Is  the  only  simple  method  of  testing 
the  effects  of  decisions  to  all  courses  as  It  applies  all  modifications  un- 
iversally. Secondly,  this  program  rationalizes  all  modifications;  that  is,  it 
allows  only  logical  modifications  to  be  made.  For  example,  a course  that  meets 
once  annually  will  still  meet  once  per  year  despite  a general  ten  percent  cut 
in  convening  frequencies,  while  an  eight  week  long  course  should  have  both 
teaching  days  and  weekend  days  reduced  for  a twenty  percent  cut  in  length.  This 
program,  then,  allows  the  training  manager  to  apply  general  policies  to  all 
courses,  maintaining  logical  conditions  for  all  courses.  Finally,  because 
of  this  the  user  can  test  the  value  of  a general  action  that  must  be  taken  to 
achieve  a desired  result,  (e.g.,  what  general  value  all  convening  frequencies 
must  be  cut  to  achieve  a center-wide  goal  of  a ten  percent  reduction). 

Display  Support.  Output  generated  by  the  TPF  model  may  be  directed  to  off-line 
printers  or  terminal  displays.  The  use  of  off-line  printers  Indicated  when 
large  amounts  of  data  are  to  be  displayed  or  base  line  runs  intended  to  be  re- 
tained are  generated.  A display  support  program  was  developed  to  allow  the 
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user  to  browse  through  the  data  files  created  by  the  TPF  output,  displaying 
only  those  data  required.  Course  data  created  can  be  called  by  CDP  number, 
while  all  output,  including  summary  reports,  may  be  called  by  page  number.  A 
LOOK  option  allows  the  user  to  look  at  the  first  line  of  each  page  in  the 
file  to  ascertain  if  display  of  the  entire  page  is  desirable. 

INPUT  PARAMETERS  DESCRIPTION 

All  baseline  data  for  the  TPF  model  are  stored  in  the  D0Tr.  Master  da- a base 
course  file.  Section  II  of  this  volume  describes  the  procedures  for  loading 
and  updating  these  data.  A listing  of  these  data  elements  and  their  format  is 
shown  in  Table  III-l.  The  data  used  as  input  to  the  TPF  model  are  compatible 
with  f'TTRAS  data  elements  except  for  those  elements  where  data  unique  to  the 

center  under  study  are  required.  The  data  elements  are: 

' 

a.  CDP  - The  CDP  code  is  the  unique  4 position  alphanumeric  identifier 

code  for  each  course  taught  in  the  Navy  (from  NITRAS).  This  code  is  used 
as  the  sort  key  for  data  base  operations. 

b.  SCH  - This  is  a four  digit  code  to  describe  the  school  within  the 
training  complex  to  which  the  course  is  assigned.  Currently  4 
descriptive  characters  such  as  AC&R  for  the  Air  Conditioning  and 
Refrigeration  school  are  used  for  this  code. 

c.  DEL  - The  delete  flag  is  set  automatically  by  the  data  base  main- 
tenance routines  and  is  used  to  signify  courses  in  the  file  that 
have  either  been  disestablished  or  are  not  yet  taught  at  the  Center. 

d.  CTLG  - This  is  the  10  position  alphanumeric  CIN  code  used  in  the  Catalog 
of  Navy  Training  Courses  (CANTRAC).  This  code  is  identical  for  the  same 
course  taught  at  different  locations  (from  NITRAS). 

e.  CRS  - This  is  the  16  character  name  of  the  course  (Activity  Short  Name 
from  NITRAS). 

f.  C0NV1  - This  is  the  annual  number  of  convenings  for  the  course  planned 
for  the  current  fiscal  year  (from  NITRAS). 

g.  LEN1  - This  is  the  length  In  days  Including  weekend  days,  of  the  course 
for  the  current  fiscal  year  (from  NITRAS). 

h.  CAP1  - This  Is  the  current  limiting  capacity  for  the  course  (from  NITRAS). 

1.  BCAP1  - This  Is  the  current  number  of  seats  In  the  course  allocated  to 
BUPERS  or  other  agencies  and  not  available  for  local  quota  control 
(locally  obtained). 

j.  DM01  - This  Is  the  current  total  anticipated  annual  demand  for  the  course 
(from  NITRAS). 

k.  BDM01  - This  Is  the  current  annual  demand  for  the  course  for  students 
detailed  by  BUPERS  and  other  agencies  (locally  obtained). 
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RAMIS  DUMP  FORMAT  (MASTER  OR  SCRATCH) 


+ EBCDIC  RECORD  LENGTH  80  CHARACTERS 


FIELD  NAME 

FORMAT 

LENGTH 

CDP 

A 

4 

4 

SCH 

A 

4 

4 

DEL 

A 

1 

1 

CTLG 

A 

10 

10 

CRS 

A 

16 

16 

CON  VI 

I 

3 

3 

LEN1 

F4 

.1 

4 

CAP1 

I 

3 

3 

BCAP1 

I 

3 

3 

DMD1 

I 

5 

5 

BDMD1 

I 

5 

5 

OFST 

I 

2 

2 

PFAIL 

F5 

.3 

5 

NADIS 

F5 

.3 

5 

NOSHOW 

F5 

.3 

5 

SETB 

F5 

.3 

5 

X 0 

BKLG 

I 

4 

4 

JNO 

A 

4 

4 

CONV2 

I 

3 

3 

LEN2 

F4 

.1 

4 

CAP2 

I 

3 

3 

BCAP2 

1 

3 

3 

0MD2 

I 

5 

5 

BDMD2 

I 

5 

5 

CHWK2 

I 

3 

3 

CONV3 

I 

3 

3 

LEN3 

F4 

.1 

4 

CAP3 

I 

3 

3 

BCAP3 

I 

3 

3 

DMD3 

I 

5 

5 

BDMD3 

I 

5 

5 

CHWK3 

I 

3 

3 

PAOB 

I 

4 

4 

AFAIL 

F5 

.3 

5 

PRTY 

I 

2 

2 

CTYPE 

A 

2 

2 

PNEC 

A 

4 

4 

UCAP 

I 

3 

3 

TABLE  III-l 
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l.  OFST  - Offset  is  a model  unique  value  and  is  used  to  modify  the  schedule 
matrix  to  allow  the  model  to  convene  courses  with  low  convening  fre- 
quencies (3  or  less)  in  the  proper  quarters.  The  scheduler  matrix 
normally  schedules  the  first  convening  of  a course  for  the  first  or 
second  week  of  the  model  run.  An  offset  of  26  would  change  the  first 
convening  to  the  27th  week  of  the  model  (3rd  quarter).  Use  of  offset 

is  optional  and  does  not  affect  annual  totals. 

m.  PFAIL  - This  is  the  current  historical  (last  12  months)  failure  rate 
for  the  course  (from  NITRAS). 

n.  NADIS  - This  is  the  historical  (last  12  months)  non-academic  dls- 
enrollment  rate  for  the  course  (from  NITRAS). 

o.  NOSHOW  - This  is  the  historical  (last  12  months)  no-show  rate  ex- 
perienced by  the  course.  This  rate  is  determined  as  the  percentage  of 
those  scheduled  for  the  course  that  did  not  attend  or  cancel  (locally 
obtained) . 

p.  SETB  - This  is  the  historical  (last  12  months)  set  back  rate  for  the 
course.  This  value  is  not  used  for  model  calculations  (frcr  NITRAS). 

q.  BKLG  - This  is  the  length  in  weeks  that  a student  must  wait  for  a 
local  ouota  for  a course.  Optionally,  the  model  may  be  configured  to 
accept  sacklog  in  students  rather  than  weeks.  However,  usage  must  be 
consi stint  (locally  obtained). 

r.  JNO  - This  is  the  obsolete  4 position  J number  used  as  an  identifier 
for  courses.  It  is  retained  as  a cross-reference  to  statistical  data 
on  file.  New  or  modified  courses  do  not  have  a J number  (not  updated). 

s.  C0NV2  - Same  as  C0NV1  but  for  first  out  year  (*). 

t.  LEN2  - Same  as  LEN1  but  for  first  out  year  (*). 

u.  CAP2  - Same  as  CAP1  but  for  first  out  year  (*). 

v.  BCAP2  - Same  as  BCAP1  but  for  first  out  year  (*). 

w.  DMD2  - Same  as  DMD1  but  for  first  out  year  (*). 

x.  B0MD2  - Same  as  BDMD1  but  for  first  out  year  (*). 

y.  CHWK2  - This  term  Is  used  to  force  the  week  In  which  the  first  out  year 
values  will  be  used  for  a course.  During  normal  processing  the  first 
out  year  values  will  be  activated  In  the  53rd  week.  A non-zero  entry 
In  CHMK2  will  override  this,  and  the  value  entered  will  be  used. 

(*)  NOTE  - For  Items  marked  (*)  the  model  will  default  and  use  current 

(Initial)  values  If  the  data  for  the  field  Is  zero  or  missing.  However, 
use  of  CHWK2  will  override  this  and  the  user  must  provide  all  first  out 
year  data. 
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2.  C0NV3  - Same  as  CONV1  but  for  second  out  year  (**). 
aa.  LEN2  - Same  as  LEN1  but  for  second  out  year  (**). 
bb.  CAP3  - Same  as  CAP1  but  for  second  out  year  (**). 
cc.  BCAP3  - Same  as  BCAP1  but  for  second  out  year  (**). 
dd.  DMD3  - Same  as  DMD1  but  for  second  out  year  (**) . 
ee.  CHWK3  - Same  as  CHWK2  but  for  second  out  year  data. 

(**)  NOTE  - For  items  marked  (**)  the  model  will  default  and  use  current 

(or  first  out  year  values  If  CHWK2  is  used)  if  the  data  for  the  field 
is  zero  or  missing.  However,  use  of  CHWK3  will  override  this  and  the 
user  must  provide  all  second  out  year  data. 

ff.  PAOB  - This  Is  the  planned  AOB  for  the  course  and  is  not  used  In  model 
computations  (from  NITRAS). 

gg.  AFAIL  - This  Is  the  planned  (or  allowed)  failure  rate  for  the  course 
and  is  not  used  In  model  computations  (from  NITRAS). 

hh.  PRTY  - This  is  the  2 digit  course  priority  code  (from  NITRAS). 

11.  CTYPE  - This  Is  the  2 position  type  code  for  the  course  (l.e. , fleet, 
A,  C,  etc.)  (from  NITRAS). 

jj.  PNEC  - This  is  the  primary  NEC  code  for  those  courses  granting  NEC's 
(from  NITRAS). 

OUTPUT  PARAMETERS  DESCRIPTION 

The  primary  TPF  model  output  Is  the  yearly  course  summary  format,  shown  in 
Figure  III-3a.  This  format  Is  broken  into  two  parts;  the  upper  portion  which 
gives  a synopsis  of  the  Input  data,  and  the  lower  position  which  tabulates  the 
fiscal  year  projections  based  on  the  Input  data.  The  data  elements  on  the  top 
have  been  previously  described.  The  following  discussion  will,  therefore, 
concentrate  on  the  yearly  course  projections. 

a.  FORMAT  - The  output  Is  broken  Into  4 quarters  of  equal  length  (13 
weeks).  The  first  quarter  Is  assumed  to  start  1 July  of  the  fiscal 
year.  This  Is  significant  as  the  model  will  not  run  courses  during 
the  Christmas  period,  which  Is  assumed  to  be  the  last  week  of  the 
second  quarter  and  the  first  week  of  the  third  quarter.  Annual 
totals  as  well  as  percentages,  are  printed  for  applicable  data 
elements. 

b.  NUMBER  OF  CONVENINGS  - A convening  date  Is  defined  as  the  day  of  the 
first  class  for  a course  section.  Thus,  a convening  begins  accumulat- 
ing within  a quarter  on  the  day  It  begins.  For  example.  If  a course 
with  a length  of  11.0  weeks  convened  In  the  13th  week  of  the  1st 
quarter,  the  convening  will  be  counted  In  the  first  quarter,  even 
though  the  bulk  of  the  student  AOB  falls  In  the  second  quarter.  A 
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course  convening  is  based  on  the  current  week,  offset,  and  change 
week. 

c.  COURSE  CAPACITY  - This  represents  a total  of  the  limiting  course  student 
capacity  on  the  day  each  course  was  released,  by  quarter.  On  the  day 
a course  convenes,  the  model  tests  if  this  convening  is  prior  to  or 
after  a schedule  change  date,  and  the  current  capacity  is  used. 

d.  UTILIZATION  - This  is  the  total  number  of  class  seat%  occupied  on  the 
day  the  course  convened.  That  is,  it  is  a total  of  the  local  quotas 
granted,  minus  no-shows,  plus  BUPCRS  input,  plus  substitute  quotas. 

This  algorithm  does  make  allowance  for  overbooking  of  critical  courses. 

e.  NO-SHOWS  - This  is  an  historical  average  of  students  not  showing  up  for 

the  course  who  had  previously  been  granted  quotas.  Only  that  portion 
of  students  scheduled  through  local  quota  control  is  counted  in  the  no- 
show  figure.  Students  scheduled  from  SUPERS  do  not  contribute  to  no- 
shows  in  this  model  as:  (1)  they  are  usually  under  TAD  orders;  and  (2) 

the  school  has  no  record  of  these  students  until  they  arrive.  No-shows 
also  are  not  derived  from  substitute  quotas  for  obvious  reasons.  Based 
on  this  use  of  no-show  rates,  it  is  important  that  the  historical  no- 
show  rate  entered  in  the  model  be  based  on  the  sum  of  no-shows  and 
utilization,  and  not  on  utilization  alone. 

f.  BACKLOG  - Backlog  is  defined  as  the  time  a student  must  wait  for  a 
confirmed  quota  in  a course  that  is  booked.  The  backlog  printout  is  a 
snapshot  of  the  actual  backlog  on  the  last  day  of  the  quarter.  The 
model  input  portion  of  the  format  gives  the  initial,  or  beginning  back- 
log, while  that  contained  in  the  annual  totals  column  is  the  ending 
backlog,  which  is  identical  to  the  4th  quarter  backlog.  Backlog  is 
entered  in  weeks  and  is  converted  to  students  who  hold  quotas.  The 
output  report  shows  backlog  in  both  weeks  and  numbers  of  students. 


g.  STUDENT  DAYS  - Student  days  are  the  total,  by  quarter,  of  the  number  of 
days  each  student  has  spent  in  a course  that  quarter.  Thus,  it  is 
possible  to  show  student  days  in  a quarter  that  had  no  convenings. 

Students  set  back  to  a course  do  not  count  as  utilizations,  but  the 
student  days  spent  in  that  convening  are  totaled.  Two  methods  of 
calculating  student  days  are  available  in  the  TPF  model,  with  the 
method  decided  by  the  value  of  AOB  constant  entered.  If  this  constant 
is  less  than  300,  student  days  is  the  total  of  class  days  times  students, 
adjusted  for  setbacks  and  quarters.  If  the  AOB  constant  is  300  or 
greater,  student  days  include  weekend  days  for  courses  longer  than 
one  week.  If  a course  spans  two  quarters,  the  weekend  days  for  that 
week  the  span  occurred  are  charged  to  the  quarter  in  which  the  course 
convened.  AOB  is  the  student  days  divided  by  the  AOB  constant,  which 
Is  a model  Input  parameter.  This  AOB  is  multiplied  by  4 for  the 
quarterly  outputs.  The  student  days  output  will  be  printed  as  K student 
days  (student  days/1000)  if  the  parameter  exceeds  99,999  student  days. 

The  format  will  read  KSTU  DAY  rather  than  STU  DAYS  to  indicate  this. 

) 
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h.  PASS/FAIL,  ETC.  - These  are  historical  pass/fail  and  non-academic 
disenrollment  percentage  rates.  Updates  to  these  factors  require 
additional  statistical  analysis  of  current  data.  Academic  setbacks 
are  hard  coded  into  the  logic  of  the  model  and  are  based  on  the 
fail  percentages.  The  criteria  for  setbacks  are  discussed  under  the 
logic  design  portion  of  this  section. 

School  and  center  summary  reports  are  also  available  as  outputs  of  the  TPF 
model.  The  data  presented  are  a summary,  by  school  code  or  by  center,  of  the 
data  presented  in  the  individual  course  reports.  Input  data  are  not  displayed 
for  summary  reports.  The  backlog  wait  time  in  weeks  presented  in  the  summary 
reports  is  the  average  wait  time  only  for  those  courses  having  a backlog. 

Samples  of  the  course,  school,  and  center  formats  are  presented  in  Figure  1 1 1 -3b 
and  II I-3c. 

TPF  MODEL  SYSTEM  OPERATIONAL  PROCEDURES 

GENERAL  SYSTEM  FLOW.  The  Training  Process  Flow  system  can  run  using  data  either 
from  the  unloaded  DOTS  data  base,  or  any  combination  of  courses  from  the  unloaded 
data  base,  modifications  of  these  courses,  or  new  courses  entered  by  the  user. 

It  is  assumed  that  the  user  is  familiar  with  the  data  base  operating  procedures, 
including  modification  of  these  data  to  produce  a Scratch  data  base. 

The  basic  flow  of  the  TPF  model  system  was  shown  in  Fiqure  HI-1.  The  model  can 
be  run  under  baseline  conditions  (with  the  output  usually  saved)  or  with  the 
input  data  modified  in  order  to  study  courses  under  various  conditions.  These 
input  data  can  be  modified  at  three  points  in  the  TPF  system.  First,  all  course 
data  elements  can  be  modified  using  facilities  of  the  data  base  update/maintenance 
routines.  The  user  is  directed  to  Section  II,  DATA  BASE  MAINTENANCE,  for  a full 
description  of  the  facilities  available.  Use  of  these  facilities  is  recommended 
when  a large  number  of  changes  are  to  be  made,  especially  if  the  changes  are  to 
be  made  only  if  certain  select  criteria  are  met;  e.q.,  modify  the  convening 
frequency  of  a course  only  if  the  length  is  greater  than  two  weeks.  Secondly, 
data  can  be  modified  using  the  facilities  of  the  TPF  support  program  TPFMOD 
which  allow  selection,  revision,  and  creation  of  courses  for  direct  input  to  the 
TPF  model.  Use  of  program  TPFMOD  is  indicated  when  the  number  of  changes  is  small, 
the  same  course  is  to  be  studied  under  several  different  configurations,  or  new 
courses  are  to  be  studied.  Finally,  capability  exists  within  the  TPF  model  to 
run  only  selected  courses  or  schools  and  to  make  across-the-board  modifications, 
such  as  reducing  the  no-show  rate  for  all  courses  by  10  percent.  These  modification 
features  can  be  used  individually,  or  in  any  combination,  to  allow  the  user  a 
flexible,  easy  to  use  model  system. 

Data  Base  Interface.  All  baseline  data  used  as  input  to  the  TPF  model  are  stored 
in  the  DOTS  data  base.  These  data  are  updated  periodically  so  as  to  be 
current  with  actual  conditions  and  should  be  considered  the  master  source  file. 
However,  the  TPF  model  cannot  access  these  data  directly.  In  order  to  be 
accessible  to  the  TPF  model,  the  course  file  must  be  unloaded  using  procedures 
contained  in  this  section.  Prior  to  this  process,  the  unloaded  data  may  be 
modified,  forming  a Scratch  data  base,  using  data  base  operating  procedures.  It 
is  necessary  to  copy  these  data  to  the  TPF  system.  If  unmodified  data  are  to  be 
used  as  the  TPF  Master  data  base,  enter: 


TPFCOPY  MASTER 


**  FOR  INFORMATION  ON  THE  SEPTEMBER  RAMIS  USERS  GROUP  MEETING, 
**  FORUM,  PLEASE  TYPE  HELP  FORUM  . 


**  NEW  RAMIS  DOCUMENTATION  IS  READY.  PLEASE  TYPE  HELP  DOCUMENT 
**  FOR  ADDITIONAL  INFORMATION. 

TPF  MASTER  DUMPED  BY  RAMIS 
EXECUTION: 


594  : TOTAL  INPUT  DUMP  RECORDS 

297  : TOTAL  OUTPUT  COMBINATION  RECORDS 


TPF 

DUMP 

P 

594 

F 80 

08/31/76 

08/31/76 

TPF 

SORT 

U 

297 

F 160 

08/31/76 

08/31/76 

TPF 

WORK 

P 

297 

F 160 

08/31/76 

08/31/76 

297  : INPUT 

RECORDS 

PROCESSED 

594  : OUTPUT  RECORDS 

PROCESSED 

TPF 

MASTER 

P 

594 

F 80 

08/31/76 

08/31/76 

is  displayed,  the  data  base  was  successfully  copied  and  will  be  available  as  the 
baseline  or  master  input  to  the  TPF  model  system.  If  an  error  occurs  during  un- 
load, a message  will  indicate  whether  RAMIS  encountered  an  error  during  unload 
or  the  data  base  is  not  on  line. 

If  it  is  desired  to  copy  a Scratch  data  base  for  model  manipulation,  enter: 

TPFCOPY  SCRATCH 

The  error  messages  are  the  same,  and  the  word  SCRATCH  will  be  substituted  for 
MASTER  if  the  unload  is  successful. 

During  the  data  base  unload  operation,  core  storage  must  be  set  to  320K.  If  this 
is  not  done,  the  system  will  automatically  set  core  to  320K.  However,  this  causes 
the  executive  to  terminate  and  the  user  must  restart  the  copy  operation. 

TPF  Course  Create/Modify  Program.  The  TPF  model  can  execute  using  the  TPF 
Master  or  Scratch  data  base  alrectly,  or  program  TPFMOD  can  be  Invoked  to 
further  modify  the  data  in  either  the  Master  or  Scratch  data  base.  Including 
the  addition  of  new  courses.  This  program  should  be  used  only  If  modifica- 
tions to  Individual  courses  are  required  or  new  courses  are  to  be  entered. 

Only  those  courses  copied  or  created  will  appear  as  TPF  Input  If  this  program 
Is  Invoked.  If  the  Master  TPF  data  base  Is  to  be  used  as  reference,  enter 
TPFMOD  MASTER  to  Invoke  the  program.  If  the  Scratch  data  base  Is  to  be  used, 
enter  TPFMOD  SCRATCH.  The  message: 

TPF  CREATE/MODIFY-  ENTER  NEW  OR  COPY 


will  be  displayed. 
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Options.  Three  basic  OPTIONS  exist  in  the  TPFMOD  program;  NEW,  COPY,  and  MOD. 

NEW  - The  NEW  option  signifies  that  a new  course  is  to  be  created.  The  pro- 
gram prompts  for  the  entries  necessary  to  create  a new  course.  Upon  comple- 
tion of  the  prompted  data  entry,  the  program  allows  the  user  to  add  further 
data  or  to  modify  data  already  entered.  Once  DONE  is  entered,  the  creation 
of  the  course  terminates  and  the  system  requests  the  next  user  option. 

COPY  - The  COPY  option  allows  the  user  to  copy  any  course  from  the  Master 
(or  Scratch)  data  base  for  entry  to  the  TPF  model.  The  CDP  number  of  the 
course  must  be  entered  and  the  message: 

CDP  AAAA  COPIED-  ENTER  DONE  OR  MOD 

will  appear  if  the  course  was  found  in  the  file  and  copied.  The  message: 

AAAA  +N0T  IN  FILE  - RETRY  OR  ENTER  DONE 
appears  if  the  requested  CDP  was  not  in  the  file. 

Once  copied,  the  user  can  modify  any  course  data  element  or  proceed  to  any 
other  TPFMOD  option.  It  is  possible,  using  the  COPY  option,  to  have  multiple 
copies  of  the  same  course  in  the  run  file,  each  modified  to  study  different 
configurations  during  a model  execution. 

MOD  - The  MOD  option  allows  the  user  to  modify  data  stored  In  the  run  file 
during  this  execution.  The  MOD  option  requests: 

ENTER  CDP 

If  a carriage  return  is  entered,  the  last  course  copied  or  created  will  be 
modified.  If  a CDP  code  is  entered,  the  CDP  will  be  modified.  If  multiple 
copies  of  a CDP  are  in  the  file,  only  the  first  entered  will  be  available  for 
modification.  If  the  CDP  number  entered  is  not  in  the  file,  the  message: 

XXX  INVALID-  RETRY 

will  be  displayed. 

If  the  CDP  is  located,  the  message 

MODIFY  DATA  FOR  CDP  XXXX 

will  be  displayed. 

At  that  time,  any  of  the  36  TPF  fields  may  be  modified.  A list  of  the  fields 
and  their  formats  appears  in  this  section,  and  the  list  may  be  displayed  on 
the  terminal  by  entering  HELP.  To  modify  a field,  the  user  should  enter  the 
field  name.  The  system  then  responds: 

ENTER  FIELDNAME  (TYPE  LEN) 
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The  data  entered  will  be  'echoed'  if  accepted,  or  an  appropriate  error 
message  will  be  displayed.  Any  number  of  fields  may  be  modified  in 
this  mode.  Enter  DONE  or  QUIT  to  exit  this  mode. 

Fields  and  Formats.  The  36  fields  that  may  be  modified  using  program  TPFMOD 
are  identical  to  those  noted  In  the  section  describing  the  TPF  model.  The 
command  HELP  may  be  entered  any  time  during  execution  for  display  of  the 
fields.  The  fields  available  for  modification  are: 


LIST 

FIELD  NAME 

ALIAS 

TYPE 

LENGTH 

1 

CDP 

CDP 

A 

4 

2 

CTLG 

CTLG 

A 

10 

3 

CRS 

CRS 

A 

16 

4 

CONV 

C0NV1 

I 

3 

5 

DAYS 

LEN1 

F 

4.1 

6 

CAP 

CAP1 

I 

3 

7 

BCAP 

BCAP1 

I 

3 

8 

DMD1 

DMD1 

I 

5 

9 

BDMD1 

BDMD1 

I 

5 

10 

OFST 

OFST 

I 

2 

11 

PFAIL 

PFAIL 

F 

5.3 

12 

NAD  IS 

NAD  IS 

F 

5.3 

13 

NOSHOW 

NOSHOW 

F 

5.3 

14 

SETB 

SETB 

F 

5.3 

15 

BKLG 

BKLG 

I 

4 

16 

JNO 

JNO 

A 

4 

17 

C0NV2 

C0NV2 

I 

3 

18 

LEN2 

LEN2 

F 

4.1 

19 

CAP2 

CAP2 

I 

3 

20 

BCAP2 

BCAP2 

I 

3 

21 

DMD2 

DMD2 

I 

5 

22 

BDMD2 

BDMD2 

I 

5 

23 

CHWK2 

CHWK2 

I 

3 

24 

C0NV3 

CONV3 

I 

3 

25 

LEN3 

LEN3 

F 

4.1 

26 

CAP3 

CAP3 

I 

3 

27 

BCAP3 

BCAP3 

I 

3 

28 

DMD3 

DMD3 

I 

5 

29 

BDMD3 

BDMD3 

I 

5 

30 

CHWK3 

CHWK3 

I 

3 

31 

PAOB 

PAOB 

I 

4 

32 

AFAIL 

AFAIL 

F 

5.3 

33 

PRTY 

PRTY 

I 

2 

34 

CTYPE 

CTYPE 

A 

2 

35 

PNEC 

PNEC 

A 

4 

36 

SCH 

SCHOOL 

A 

4 
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The  program  prompts  for  data  during  new  course  generation  or  field  modification 
in  the  form: 

ENTER  FIELDNAME  (TYPE  LEN) 

where  FIELDNAME  is  the  abbreviated  name  for  the  field,  TYPE  contains  an  A 
for  alphanumeric  data,  I for  numbers  with  no  decimal,  or  F for  data  with  a 
decimal  point,  and  LEN  is  the  length  of  the  data  entry  (number  of  characters). 
Appropriate  error  messages  will  be  displayed  if  the  entry  Is  of  the  wrong  type  or 
invalid  for  the  field  in  question. 

TPFMOD  Commands.  The  following  commands  are  available  to  the  user  of  the  TPFMOD 
program: 


QUIT  DONE  HELP 

STAT  SHOW  COPY 

NEW  MOD 

The  function  of  the  COPY,  NEW,  and  MOD  commands  has  already  been  described.  The 
functions  of  the  other  commands  are  as  follows: 

QUIT  - The  QUIT  command  terminates  execution  of  the  TPFMOD  program.  The 
user  is  then  asked  whether  the  run  data  set  created  is  to  be  saved.  An 
N reply  will  terminate  the  program  without  saving  the  created  data  set, 
while  a Y reply  will  over  write  the  previous  TPF  run  data  set.  At  this 
point,  any  of  the  other  commands  are  available  to  reenter  the  program. 

DONE  - The  DONE  command  terminates  the  current  step  in  the  program,  and 
causes  a return  to  the  control  portion  of  the  program. 

HELP  - Tne  HELP  command  allows  the  user  to  display  a list  of  the  valid 
TPF  fields  or  valid  system  commands.  The  system  returns  to  the  point 
at  which  the  HELP  conmand  was  entered  upon  completion  of  this  display. 

STAT  AAAA  - The  STAT  command  will  display  the  status  of  field  AAAA  of  the 
current  course  under  consideration  (course  being  modified  or  last  course 
copied  or  modified).  AAAA  represents  the  field  name  abbreviation  of  the 
field  to  be  displayed. 

SHOW  - The  SHOW  command  displays  all  fields  for  the  current  course  under 
consideration.  An  option  exists  with  SHOW  to  display  a single  field  by 
entering  the  field  name  when  requested.  A carriage  return  (with  no 
entry)  will  cause  all  fields  to  be  displayed.  The  system  returns  to  the 
point  at  which  the  SHOW  comnand  was  entered  upon  completion  of  this 
display. 

TPF  Model . All  TPF  model  execution  Is  under  the  control  of  the  user  and  may 
be  modified  by  the  user  at  run  time.  Parameters  that  can  be  modified  at  this 
time  Include  Input  data  selection,  output  report  generation,  and  modification 
of  selected  data  elements. 
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The  program  Is  called  by  entering: 

TPF  xxxx  yyyy 


where: 

xxxx  Is  the  data  base  to  be  used  as  the  Input  data  set.  If  this  field 

is  MASTER,  the  Master  data  base  will  be  used  for  data  input;  if  the  field 

entry  is  SCRATCH,  the  Scratch  data  base,  created  by  program  TPFCOPY,  will 
be  used.  This  field  should  be  TEST  If  output  created  by  TPFMOD  is  to  be 
used  as  input. 

yyyy  field  is  optional  and  It  may  contain  the  word  SAVE.  SAVE  specifies 
that  the  output  of  this  run  should  be  stored  In  a save  area.  A blank  or 

Invalid  entry  will  cause  output  to  be  directed  to  normal  output  areas. 

This  option  Is  normally  used  to  preserve  the  results  of  baseline  runs. 

Control  Fields.  The  following  field  options  are  available  during  this  phase 
to  control  TPF  execution.  Default  values  are  used  for  the  first  four  fields 
If  the  entry  Is  Invalid  or  missing.  The  control  fields  and  their  use  are: 

INPUT  - This  field  determines  whether  the  Input  Is  to  be  from  the  TPF 
Master/Scratch  data  base  or  from  the  data  created  by  the  TPFMOD  program. 

A 10  in  this  field  will  cause  the  model  to  use  data  from  the  Master, 
Scratch,  or  TPFMOD  data  base,  while  a 5 Indicates  that  the  input  Is  to 
be  from  card  or  tape.  (Default  10) 

FYR  - Indicates  the  year  and  data  to  be  used  as  the  first  year  of  the 
model  run;  e.g.,  1976.  (Default  1976) 

LYR  - Indicates  the  last  year  of  the  model  run.  The  difference  between 
these  years,  plus  1,  Indicates  the  number  of  years  to  be  projected,  with 
a maximum  of  three.  (Default  1976) 

AOB  - This  Indicates  the  number  of  days  to  be  used  In  the  AOB  calculation 
and  controls  the  method.  The  standard  number  to  be  used  Is  365  causing 
weekend  days  to  be  used  In  the  calculation.  If  a figure  less  than  300  Is 
used,  weekend  days  will  not  be  counted  In  AOB  calculations.  (Default  0365) 

PRINT  - A 0 or  blank  In  this  field  will  cause  all  output  to  be  directed 
to  data  sets  for  terminal  or  CRT  display,  or  optional  offline  printing. 

INIT  - A 1 In  this  field  will  cause  the  model  to  Initialize  those  courses 
In  session  at  model  start,  while  a 0 or  |>1ank  will  skip  this  Initialization. 
The  model  should  be  Initialized  for  all  normal  runs. 

Data  Fields.  The  following  fields  are  available  to  modify  Input  parameters 
for  all  courses  during  the  model  run,  with  no  changes  to  any  data  base  used. 

All  Inputs  should  be  four  characters  In  length  Including  decimal  points  e.g., 
1.25  or  .931.  Minus  signs  or  alpha  characters  are  not  permitted. 
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FAIL  - All  failure  rates  are  multiplied  by  the  number  entered  to  produce 
the  new  failure  rate. 

NOSHO  - All  no-show  rates  are  multiplied  by  the  number  entered  to  produce 
new  no-show  rates. 

DMD  - All  demands,  both  bureau  and  local,  for  all  three  years,  are  multiplied 
by  the  number  entered. 

TREND  - All  local  and  bureau  demands  for  the  second  and  subsequent  years  are 
multiplied  by  the  number  entered  to  represent  trends;  e.g.,  10  percent 
growth  per  year. 

CONV  - All  convening  frequencies  are  multiplied  by  the  number  entered.  Only 
whole  number  changes  are  allowed;  fractional  convenings  are  counted  as  the 
next  higher  number.  A 0 In  this  field  Is  Ignored. 

LEN  - All  lengths  are  multiplied  by  the  number  entered.  Only  half-day 
Increments  are  allowed,  and  compensation  Is  made  for  weekend  days. 

CAP  - All  capacities  are  multiplied  by  the  number  entered.  Only  whole 
number  changes  are  allowed;  fractional  capacities  are  counted  as  the 
next  higher  number. 

SETB  - All  setback  rates  are  determined  by  using  this  number  as  the 
percentage  of  students  falling  that  are  candidates  for  setback.  The 
model  calculates  actual  setbacks  only  If  courses  are  greater  In  length 
than  two  weeks  and  multiple  convenings  occur. 

Report  fields.  A 1 In  fields  CRS,  SCHL,  or  CTR  will  cause  the  respective 
course,  school,  or  center  reports  to  be  produced,  while  a 0 will  cause 
bypassing  of  these  reports.  All  zeros  In  these  fields  will  cause  the  model 
to  cycle  with  no  reports  produced. 


Select  Fields.  The  following  two  fields  can  be  used  to  select  courses  as 
input  to  the TPF  model . 

COP  - Only  a course  with  the  entered  CDP  number  will  be  executed,  with 
all  others  bypassed. 

SCH  - Only  courses  matching  the  school  code  entered  will  be  executed, 
with  all  others  bypassed.  This  select  requires  an  absolute  match 
between  the  data  In  the  select  field  and  that  In  the  data  base. 
However,  If  the  select  field  uses  $'s  In  any  position,  testing  of 
that  position  Is  bypassed.  For  example,  an  entry  of  9$$$  would 
produce  a report  containing  all  courses  with  a first  character  of  9. 
The  $ option  may  be  used  In  any  or  all  fields  of  this  entry. 
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TPF  Operational  Flow.  Following  entry  of  the  command  TPF  xxxx,  the  message: 

TPF  MODEL  - WANT  INSTRUCTIONS  (Y  OR  N) 

will  be  displayed.  If  a Y Is  entered,  the  list  of  Instructions  and  fields 
accessible  will  be  displayed;  If  an  N Is  entered,  this  step  Is  by-passed. 
Next,  the  present  run  conditions  are  displayed,  followed  by  the  request: 

ENTER  RUN,  QUIT,  OR  FIELD  TO  BE  CHANGED 

If  RUN  Is  entered,  the  model  will  execute  under  the  present  condition,  while 
If  QUIT  Is  entered,  execution  will  be  by-passed.  To  activate  any  of  the 


previously  mentioned  fields,  enter: 

FIELDNAME  DATA 

e.g.,  FAIL  .941 

To  deactivate  a previously  selected  field,  enter: 

FIELDNAME  DEACT 

e.g.,  FAIL  DEACT 


TPF  Commands.  The  following  commands  are  available  during  the  execution  of 
this  program: 

RUN  - Causes  the  model  to  execute  using  the  currently  selected  conditions. 
QUIT  - Causes  termination  of  the  program  and  by-passes  model  execution. 

SHOW  - Causes  the  current  run  condition  to  be  displayed. 

HELP  - Causes  the  program  Instructions,  fields,  and  formats  to  be  displayed. 
Output  Display.  Following  a successful  execution  of  the  TPF  model,  the  message: 

END  TPF  EXECUTION 

ENTER  CTRRUN  FOR  CENTER  FORMAT:  CRSRUN  FOR  COURSE  FORMAT 


will  be  displayed. 

The  program  that  displays  these  outputs  uses  page  control,  and  displays  a message 
at  the  beginning  of  the  program  as  to  the  type  of  file  and  number  of  pages  In  the 
file. 

If  a school/center  summary  Is  to  be  displayed,  enter  CTRRUN  (CENTER  for  SAVE 
option).  When  the  display  program  requests  the  page  number,  enter  either  the 
page  number  to  select  the  desired  page  or  a 0,  or  carriage  return  to  display 
the  next  page.  The  terminal  will  pause  at  the  end  of  each  page  prior  to  the 
next  entry. 
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If  a course  file  Is  to  be  displayed,  the  user  has  the  option  to  select  pages  by 
COP  or  page  number.  To  display  the  course  file,  enter  CRSRUN  (COURSE  for  SAVE 
option).  The  message: 


COURSE  FILE  - SELECT  BY  CDP  OR  PAGE  NO. 

will  be  displayed.  If  a page  number  Is  entered,  that  page  will  be  displayed, 
while  a carriage  return  will  display  the  next  page.  If  CDP  Is  entered,  the 
system  will  ask  for  the  CDP  number  to  be  displayed.  If  the  CDP  number  entered 
is  not  In  the  file,  an  error  message  will  be  displayed. 

To  terminate  the  display  program,  enter  DONE  or  QUIT. 

Display  Commands.  The  following  commands  are  available  during  the  display 
option: 

QUIT  - Terminate  the  display  and  exit. 

DONE  - Same  as  QUIT. 

CDP  - If  a course  file,  allows  page  selection  by  CDP. 

PAGE  - Allows  selection  by  page  number.  Optionally,  the  page  number 
can  be  Included  In  the  page  request. 

LOOK  NNN  - Allows  the  user  to  look  at  the  first  line  of  page  NNN. 

TPF  Output  Formats.  Figures  III-3a,  b,  and  c show  samples  of  the  course,  school, 
and  center  formats  produced  by  the  TPF  model . 

OPERATIONAL  EXAMPLE.  The  following  problem  will  illustrate  an  application  of 
the  TPF  model  to  aid  training  complex  management  in  assessing  the  feasibility 
of  meeting  various  objectives  placed  by  the  functional  command.  In  this 
scenario,  training  management  has  been  asked  to: 

a.  Hold  AOB  for  the  complex  at  a near  800  level 


• b.  Reduce  the  no-show  rate  to  a 10%  level 

c.  Release  7%  of  their  Instructor  billets  to  the  functional  command 

The  first  step  in  evaluating  various  strategies  Is  to  obtain  a baseline  run 
to  establish  current  conditions.  The  use  of  the  TPF  model  to  accomplish 
this  Is  shown  In  Figure  1 1 1-4.  The  first  step  Is  to  unload  the  current  data  base. 
To  accomplish  this  core  storage  Is  set  to  the  required  320K  and  then  the  command 
TPFCOPY  MASTER  is  entered,  (all  user  Inputs  are  underlined  In  the  following 
examples).  The  program  executes  and  the  verification  message  Is  displayed. 
Indicating  135  courses  have  been  unloaded  from  the  master  data  base.  The  next 
step  Is  to  run  the  TPF  model.  The  user  enters  TPF  MASTER  SAVE  In  order  to 
use  the  master  data  base  and  to  save  the  output  for  further  reference.  The 
Y response  to  the  first  program  query  by  the  user  caused  the  listing  of  the 
fields  available  for  modification;  the  usual  response  Is  N here.  The  display 
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12. 23. SI  TPFCOPY  MASTER 


"*  POP  INFORMATION  ON  THE  SEPTEMBER  RAMIS  USERS  CR"U*  MEETING. 
FORUM,  PLEASE  Type  HELP  PORUM  . 

""  new  RAMIS  DOCUMENTATION  IS  READY.  FLEASE  T*»F  HELP  DOCUMENT 
""  POP  ADDITIONAL  INFORMATION. 

TPP  MASTER  HUMMED  By  RAMIS 
EXECUTION: 


394  : TOTAL  INPUT  DUMP  RECORDS 

297  : TOTAL  OUTPUT  COMBINATION  RECORDS 


W 

DUM* 

• 

396 

P If 

fl/31/76 

fl/31/76 

T Pf 

SORT 

u 

297 

F 161 

fl/31/76 

• R/ 32/76 

rpp 

WORK 

p 

297 

F 16f 

fl/31/76 

M/31/76 

297  : INPUT  RECORDS  PROCESSED 
394  : OUTPUT  RECORDS  PROCESSED 


TPP  MASTER  P 394  P If  f 1/31/76  fl/31/76 

12.24.36  TPP  MASTER  SAVE 

INPUT  THIS  run: 

MASTER 

SAVE  OPTION  IN  EFFECT  THIS  RUN 
ENTER  CARRIAGE  RETURN  TO  CONTINUE 


TPF  MODEL  - WANT  INSTRUCTIONS  (Y  OR  N) 

enter:  fname  xxxx  (set  fnahe  to  value) 

FNAML  DEACT  (DEACT  FNAME) 

SHOW  (SHOW  RUN  COND) 

RUN  (RUN  MODEL) 

fields:  ftp  (nnnn)  lyr  (nnnn)  aob  (nnnn)  cdp  (aaaa)  sch  (aaaa) 

FAIL  (NNNN)  NOSHO  (NNNN)  DMD  (NNNN)  TREND  (NNNN)  CONV  (NNNN) 

LEN  (NNNN)  CAP  (NNNN)  SET!  (NNNN) 

REPORTS:  CRS  (N)  SCML  (N)  CTR  (N)  PRINT  (N) 

PRESENT  RUN  CONDITIONS 
REPORTS:  CRS  CTR 

INPUT  * If  FTP  * 1976  LYR  * 1976  AOB  = f)6S 

ENTER  RUN,  QUIT,  UR  FIELD  TO  BE  CHANGED 

ENTER  REQUEST: 

_CRS  DEACT 

ENTER  REQUEST: 

_SHOW 


PRESENT  RUN  CONDITIONS 
REPORTS:  CTR 

INPUT  * If  FYR  s 1971  LYR  * 1976  AOB  * f)63 


ENTER  REQUEST: 

RUN 

♦mtNO  TPF  EXECUTION 
ENTER:  CENTER  FOR  CENTER 
12.23.33 


SUMMARY*  COURSE  FOR  COURSE  OUTPUTS 


FIGURE  I I 1-4  TPF  MODEL  BASELINE  RUN 
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DISPLAY  RESULTS 


CENTER 

STANOARO  fliP  21  LINES 
6 PACES  IN  FILE 


♦ENTER  PACE  NUMBER 
1 

Face  i 


TPF  MODEL  — FISCAL  YEAR  1976  SUMMARY 
««  TOTALS  FOR  TRAPAC  TRAINING  CENTER  ■" 


CENTER  CODE  N SUMMARY  (RUN  091275) 


I 1 QR  FY  7b  ! 
-I -I 


2 QR  FY  7b  I 

1 

6951  I 

225161  I 

125591  55.191 
19761  15.691 
2676111  MCSI 
761921  115.11 
I I 

12169 1 96.191 
5751  5.191 


5 QR  FY  76 


! 6 QR  FT  76  ! 

| 1. 

I 721 I 1 

1 26265!  ! 

1 129 11 1 55.29! 

I 296 2 1 15.99! 

1 2172115  MRS! 

1 76266 ! 616.11! 
I I ! 

1125951  95.99! 

I 609!  5.191 


ANNUAL  TOTAL 


6 CONVENINGS 
CRS  CAPACITY 
UTILIZATION 
NO  SHOWS 
SAKLOC  6/ MRS 
STU  DAYS/ AOS 

TOTAL  PASS 
TOTAL  FAIL 
SETBACR  ACAO 
DISENROLL  NA 


I 7591  I 
123996!  ! 
1162991  67.691 
I 2623!  13.991 
I 56321  9 MRS! 
19251911913.91 
I I I 
1196661  96.691 
I 6171  2.691 


676! 

216661 

11625!  56.69 
16611  13.69 
2325115  MRS 
716991  767.6 
I 

119661  96.99 
365!  3.19 


2652  ! 

92335  I 
53511  ! 56.09 
6560  I 15.59 
2172  115  MRS 
312669  I 657.1 
I 

51696  I 96.29 
1557  I 2.99 
120  ! 9.29 

656  I 0.99 


PACE  1 ♦PAUSING-  ENTER  NEXT  PACE  NO. 
DONE 

♦01  SPLAY  TPF  ENDED 
12.30.66 


FIGURE  I I 1-4  (Cont)  TPF  MODEL  BASELINE  RUN 
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also  shows  that  a course  report  Is  keyed  as  well  as  the  center  summary  report. 
Only  the  suninary  report  is  required  so  the  course  report  Is  deactivated. 

The  next  step  is  to  verify  run  conditions,  and  If  satisfied  run  the  model. 
Following  model  execution  CENTER  is  executed  to  display  the  results  which  are 
shown  at  the  location  of  Figure  I I 1-4. 

The  current  AOB  Is  projected  by  the  TPF  base  run  Is  about  857.  To  meet  the 
near  800  objective,  two  alternatives  are  available;  refuse  training  or  reduce 
the  length  of  the  training.  To  test  the  sensitivity  of  the  system  to  a re- 
duction In  length,  all  courses  will  be  reduced  In  length  by  10%.  To  simulate 
the  new  no-show  rate,  the  current  rate  must  be  cut  by  20%.  The  operational 
steps  to  accomplish  this  are  shown  In  Figure  I I 1-5.  The  Master  data  base  need 
not  be  recopied  as^it  Is  not  modified  by  TPF  runs.  The  first  step  then  Is 
to  call  the  TPF  model  and  enter  the  parameter  overrides.  Following  execution 
CTRRUN  Is  used  to  display  the  results  obtained.  By  observation.  It  can  be  seen 
that  the  reduction  In  AOB  can  be  achieved  by  a 10%  reduction  In  course  lengths. 
(In  practice  this  might  Include  shortening  of  some  courses  and  extending  the 
teaching  day  In  others).  The  effects  upon  throughput  and  no-show  rate  can 
also  be  observed. 

In  order  to  achieve  a reduction  In  Instructor  billets,  a cut  in  convening 
frequency  Is  one  alternative.  In  the  third  part  of  this  example  (Figure  I I 1-6). 
a reduction  In  convening  frequencies  by  10%  was  attempted.  However,  the 
results  of  this  effort  show  that  the  number  of  students  backlogged  Increased 
to  an  unacceptable  8%  level,  the  trend  for  the  last  quarter  Is  Increasing,  and 
the  wait  time  Is  Increasing.  The  results  of  this  run  showed  that  a 10%  re- 
duction In  convenings  Is  not  a feasible  alternative. 

In  sunmary,  this  example  shows  an  application  of  the  TPF  model  to  a practical 
problem.  The  training  manager  could  rapidly  test  the  effectiveness 

of  different  strategies,  and  would  most  likely  further  test  alternative 
strategies.  By  use  of  the  TPF  'across-the-board'  capability,  the  user  did 
not  need  to  consider  the  possibility  of  fractional  convenings  or  adjusted 
course  lengths;  the  model  performed  these  rationalizations  automatically. 

The  model  likewise  does  not  optimize  a solution  for  the  user,  but  simulates 
the  effects  of  the  user  modification  or  strategy. 


TPF  OPERATIONAL  TEST  PROCEDURES 

The  operation  of  the  TPF  model  system  can  be  verified  by  running  an  Individual 
course  stored  In  a permanent  data  set,  and  comparing  the  results  against 
previously  obtained  results.  For  purposes  of  this  test,  data  for  course  CDP 
0129  are  stored  In  a permanent  data  set  called  VFY  DATA.  To  use  these  data 
for  the  test  run  and  Invoke  the  TPF  model,  enter: 

TPF  VERIFY 
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TPF  MASTER 

INPUT  THIS  RUN: 

MASTER 

ENTER  CARR  I ACE  RETURN  TO  CONTINUE 

TPF  MODEL  - WANT  INSTRUCTIONS  (Y  OR  N) 

N 

PRESENT  RUN  CONDITIONS 
REPORTS:  CTR 

INPUT  = 10  FYR  = 1976  LYR  = 1976  AOB  = 0365 

ENTER  RUN,  QUIT,  OR  FIELD  TO  BE  CHANGED 

ENTER  REQUEST: 

_NOSHO  . 800 

ENTER  REQUEST: 

_LEN  .900 

ENTER  REQUEST: 

_SHOW 

PRESENT  RUN  CONDITIONS 
NOSHO  = .100  LEN  = .900 
REPORTS:  CTR 

INPUT  = 10  FYR  = 1976  LYR  = 1976  AOB  = 036S 

ENTER  REQUEST: 

_RUN 

♦♦♦♦♦END  TPF  EXECUTION 

ENTER:  CTRRUN  FOR  CENTER  SUMMARY;  CRSRUN  FOR  COURSE  OUTPUTS 


13.30.51  CTRRUN 
STANDARD  FILE  - 21  LINES 
2 PAGES  IN  PILE 

♦ENTER  PAGE  NUMBER 
1 

"PAGE  1 

TPF  MODEL  — FISCAL  YEAR  1976  SUMMARY 
TOTALS  FOR  FLEET  TRAINING  CENTER  *»« 

SUMMARY  (RUN  011775) 


I 1 QR  FY  76  I 2 QR  FY  76  ! 3 QR  FY  76  ! 4 QR  FY  76  I ANNUAL  TOTAL 

! 1 1 ! I 

« CONVENINGS  I 759!  ! 695!  ! 678!  ! 720!  ! 2852  ! 

CRS  CAPACITY! 23908!  122514!  121648!  !24265!  ! 92335  ! 

UTILIZATION  116681!  69.86112959!  57.66112193!  56.36113333!  54.961  55166  I 59.76 

NO  SHOWS  ! 1933!  10.461  15811  10.961  1488!  10.96!  1667!  11.16!  6669  ! 10.86 

BAKLOG  l/WKS ! 3450!  9 WKS!  2687111  WKS  I 2341! 13  WKS ! 2188115  WKS!  2188  ! 1 5 WKS 

STU.  DAYS/AOBI87759I  961.7169833!  765.31677021  741.9169729!  764.21295023  ! 808.3 
!!!!!!!!!  t 

TOTAL  PASS  *16136!  96.76112457!  96.16111699!  95.96112799!  96.06!  53091  ! 96.26 


TOTAL  FAIL  ! 

433! 

2.66! 

385! 

3.061 

376! 

3.16! 

407! 

3.16! 

1601  ! 

2.96 

SETBACK  ACAD! 

36! 

0.26! 

27! 

0.26! 

27! 

0.26! 

30! 

0.26! 

120  ! 

0.26 

DISENROLL  NA! 

112! 

0.76! 

117! 

0.961 

118! 

1.06! 

127! 

1.06! 

474  1 

0.96 

PAGE  1 ♦PAUSING-  ENTER  NEXT  PAGE  NO. 


FIGURE  III-5  SAMPLE  PROBLEM:  REDUCE  NO  SHOWS  AND  COURSE  LENGTHS 
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! 1 QR  FY  76  ! 2 QR  FY  76  ! 3 QR  FT  76  ! 6 OR  FY  7b  i ANNUAL  TOTAL 

| ! ! 1 ! 

« CONVENINGS!  696!  ! 622!  I 606!  ! 650  ! ! 2572  ! 

CHS  CAPACITY! 210061  120069!  119796!  ! 21608 1 ! 83257  ! 

UTILIZATION  115955!  73.2%!  12655 ! 62.1%! 12 192 ! 61.68I12936!  59.9%!  53536  ! 66.3% 
NO  SHOWS  ! 1838!  10.3%!  16911  10.7%!  1687!  10.9%!  1565!  10.8%!  6381  ! 10.6% 
BAKLOC  8/WKS ! 6631111  WKSi  6066113  WKS!  3965116  WKS!  6076116  WKS!  6076  Ilf  WKS 
STU  DAYS/AOB 190625!  991.0176052!  811.5173665!  806.91733501  803.81311272  ! 852.8 
II  I I I ! ! ! ! ! 

TOTAL  PASS  1156631  96.8%! 11959 ! 96.0%! 11701 1 96.0%! 12613 ! 96.0%!  51516  ! 96.2% 


TOTAL  PAIL  1 

6021 

2. 5% ! 

382! 

3.1%! 

376  1 

3.1%! 

398! 

3.1%! 

1556  ! 

2.9% 

SETBACK  ACAO! 

32! 

0 . 2% ! 

27! 

0 . 2% ! 

23! 

0 . 2% ! 

271 

0 . 2% ! 

109  I 

0.2% 

OISENROLL  NA! 

110! 

0.7%! 

116! 

0.9%! 

117! 

1 . 0% ! 

1231 

1. 0%  ! 

666  ! 

0.9% 
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This  will  start  the  procedure,  using  VFY  DATA  as  the  Master  data  base,  the 
first  message  asks  the  user  if  he  wants  instructions.  The  response  should  be 
* Y ’ . and  the  display  should  be  as  in  Figure  III-7.  Following  the  display  of 
the  TPF  instructions  and  the  fields,  the  present  run  conditions  are  dis- 
played. If  the  run  conditions  are  not  exactly  as  they  appear  in  Figure  I I 1-7, 
they  should  be  modified  using  the  procedure  outlined  in  the  TPF  Operational 
Procedures.  Basically,  this  involves  deactivating  fields  that  are  set,  but 
not  desired,  by  entering: 

FIELDNAME  DEACT 

and  by  setting  fields  to  the  desired  value  by  entering: 


FIELDNAME  VALUE 

Enter  SHOW  prior  to  running  the  model  to  verify  run  conditions.  Once  the  run 
conditions  are  the  same  as  those  shown  In  Figure  1 1 1-7,  the  command  RUN  should 
be  entered.  This  entry  will  be  followed  shortly  by  the  system  display: 

END  TPF  EXECUTION 

ENTER:  CTRRUN  FOR  CENTER  FORMAT:  CRSRUN  FOR  COURSE  FORMAT 

At  this  time,  the  user  should  enter  the  comnand  CRSRUN,  and  will  receive  a 
response: 

STANDARD  FILE  - 25  LINES 
1 PAGES  IN  FILE 

+ ENTER  PAGE  NUMBER 

Following  this  display,  enter  a carriage  return,  which  should  produce  the 
output  as  shown  In  Figure  II 1-8.  The  message: 

PAGE  1 +PAUSING  - ENTER  NEXT  PAGE  NO. 

should  be  the  last  line  on  the  display.  After  comparing  the  data  for  accuracy, 
enter  DONE  to  terminate  the  display. 

The  school  and  center  outputs  should  be  verified  next.  Enter  CTRRUN  to  call 
the  school  and  center  reports.  The  message: 

STANDARD  FILE  - 21  LINES 
3 PAGES  IN  FILE 


should  be  displayed.  Enter  a carriage  return  to  display  the  school  format 
which  should  be  the  same  as  In  Figure  1 1 1-9.  Followinq  verification  of  the 
school  data,  enter  another  carriage  return  to  display  the  center  summary. 

Again,  following  verification  of  this  display  with  Figure  I I 1-9,  enter  another 
carriage  return  and  verify  that  the  message: 

END  OF  TPF  OUTPUT  1 COURSES  PROCESSED 


Is  displayed.  Enter  DONE  to  terminate  this  system  test. 
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TPF  VERIFY 

INPUT  THIS  RON: 

VERIFY 

ENTtR  CARRIAGE  RETURN  TO  CONTINUE 

TPF  HOOLL  - WANT  INSTRUCTIONS  (Y  OR  N) 
_Y 

ENTER:  FNAME  XXXX  (SET  FNAME  TO  VALUE) 
FNAME  DEACT  (OEACT  FNAME) 

SHOW  (SNOW  RUN  COND) 

RUN  (RUN  MODEL) 


fields: 

FYR 

(NNNN) 

LYR 

(NNNN) 

AO  12  (NNNN) 

CDP 

(AAAA) 

SCI. 

(AAAA) 

FAIL 

(NUNN) 

NOSHO 

(NNNN) 

DMD  (NNNN) 

TREND 

(NNNN) 

CONV 

(NNNN) 

LEN 

(NNNN) 

CAP 

(NNNN) 

SETH  (NNNN) 

RLPORTS: 

CRS 

(N) 

SCHL 

(N) 

CTR  (N) 

PRINT 

(N) 

PRESENT 

RUN  CONDITIONS 

reports: 

CRS 

SCHL 

CTR 

INPUT  = 

10 

FYR  s 

1976 

LYR 

= 1976 

AOB  = 

0365 

ENTER  RUN,  QUIT,  OR  FIELD  TO  BE  CHANGED 

ENTER  REQUEST: 

RUN 

♦END  TPF  EXECUTION 

ENTER:  CTRRUN  FOR  CENTER  SUMMARY;  CRSRUN  FOR  COURSE  OUTPUTS 


f FIGURE  I I 1-7  TPF  TEST  RUN  PROCEDURE 

) 


CRSRUN 

STANOARO  FILE  - 25  L 

INES 

1 PAGES  IN  FILE 

♦ENTER  PAGE  NUMBER 

PAGE  1 

0129  MOTION  PICT 

OPER 

--SCHEDULE 

data 

FY 

FY+1 

FY+2 

CRS  BACKLOG 

ANNUAL  CONVENINGS  51 

0 

0 

1 STU  122 

SCHL  JNO  CATALOG  NO 

NEC 

COURSE  LENGTH  DYS  5.0 

0.0 

0.0 

» WKS  6 

ELEC  01b2  A-S90-0010 

COURSE  CAPACITY 

20 

0 

0 

bUPERS  CAPACITY 

0 

0 

0 

FY+1  WK  29 

P AOB  PFAIL  TYPE 

PRTY 

ANNUAL  DEMAND 

600 

530 

530 

FY+2  WK  0 

7.0  0.06  FI 

20 

BUPERS  DEMAND 

0 

0 

0 

OFFSET  0 

QUARTERLY 

PROJECTIONS 

] ! 1 Q«  FT  7b  I 

2 QR  FT  76  ! 

3 QR 

FY  7b  ! 

6 QK 

FY  76  ! 

ANNUAL  TOTAL 

• CONVENINGS  I 16  ! 

1 

12  ! ! 

1 

! 

0 ! 

! 

27  ! 

CRS  CAPACITYI  2B0  ! 

1 

260  1 1 

20 

1 

0 ! 

! 

560  ! 

UTILIZATION  1 217  ! 

77.56! 

9b  ! 60.06! 

7 

35.06! 

0 ! 

0.06! 

320  ! 59.36 

NO  SHOWS  1 37  1 

16.66! 

17  ! 15.06! 

2 

22.26! 

0 ! 

0.06! 

5b  ! 16.96 

BAKLOG  t/WKSI  0 ! 

0 WKS! 

0 ! 0 WKS! 

0 

0 WKS! 

0 ! 

0 WKS! 

0 ! 0 WKS 

STU  DAYS/ AOB!  100  5 1 

11.9  ! 

600  ! 5.3  ! 

35 

0.4  ! 

0 ! 

0.0  ! 

1600  ! 4.4 

TOTAL  PASS  ! 217  110*1.06! 

9b  1100.061 

7 

100.06! 

0 ! 

0.06! 

320  ! 100.06 

TOTAL  FAIL  1 0 ! 

0.06! 

0 1 0.06! 

0 

0.06! 

0 ! 

0.06! 

0 ! 0.06 

SETBACK  ACAU!  0 ! 

0.06! 

0 ! 0.06! 

0 

0.06! 

0 ! 

0.06! 

0 1 0.06 

DISENROLL  NA I 01 

0.06! 

0 1 0.06! 

0 

0.061 

0 ! 

0.061 

0 ! 0.06 

PAGE  1 ♦PAUSING- 

ENTER 

NEXT  PAGE  NO. 

DONE 

♦DISPLAY  TPF  ENDED 

CSS. 211  05/07/75 

13.30.57 

FIGURE  II 1-8  TPF  TEST  RUN  - COURSE  OUTPUT 
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CTMRUN 

STANDARD  FILE  - 21  LlNLS 
3 PAGES  IN  FILL 

♦ENTER  PAGE  NUMBER 


TPF  MODEL  — FISCAL  TEAR  1976  SUMMARY 
SCHOOL  CODE  ELtL 


tLEC  SCHOOL  SUMMARY  (RUN  (18  127  5) 


! 1 g»  FT  7 L 

2 

FT  76  1 

QK 

FY  70  ! * 0« 

Fv  76  ! 

annual 

TO  T V. 

• CONVENINGS! 

16! 

12! 

1 ! 

i 

0! 

t 

27 

LRS  CAPACITY! 

2bv! 

26R! 

i 

20! 

i 

0! 

j 

560 

UTILIZATION  ! 

217!  //.S'* 

96! 

60.8%! 

7! 

35.0%! 

0! 

8.1’%! 

328 

i'J.i 

NO  SHOWS  ! 

37!  16. b% 

17! 

IS . f % 1 

21 

22.2%! 

0! 

0.06! 

St 

16.9 

bAALOC  1/ WAS I 

8 ! II  WAS 

0! 

t WAS  I 

0! 

0 WAS  I 

0! 

0 WAS! 

0 

t pa! 

STU  DAYS/AOu! 

10t5!  11.9 

680  1 

3.3! 

3 S ! 

0.6! 

0 ! 

0.8! 

1600 

W ,m 

TOTAL  PASS  ! 

21/! 100.0% 

96! 

100.0%) 

7! 

100.06! 

0! 

0.0%! 

321 

180.01 

TuTAL  FAIL  ! 

0 ! 0.0% 

0 ! 

0 . 0%  I 

0! 

0 . 0% ! 

0! 

0.06! 

0 

0.0% 

SET RACK  ACAD! 

0!  0.8% 

0t 

0.061 

0! 

0.06! 

0! 

0 • 0% ! 

0 

0.0. 

DISENROLL  NA! 

0!  0.0% 

01 

0.0»1 

01 

0.06! 

0! 

0.061 

0 

0.0% 

PAGE  1 
2 

PAGE  2 


♦PAUSING-  ENTER  NEXT  PAGE  NO. 


TPF  MODEL  — FISCAL  TEAR  1976  SUMMARY 
««  TOTALS  FOR  TRAPAC  TRAINING  CENTER  *" 


CENTER  CODE  N SUMMARY  (RUN  081275) 


i 

i q« 

FY  7b  ! 

2 QR 

FY  76  ! 

3 QR 

FY  7b  ! 6 

OR 

FY  7b  ! 

ANNUAL 

TOTAL 

1 

1 CONVENINGS! 

16! 

12! 

1 

1! 

! 

0! 

j 

27 

MsA‘ 

CMS  CAPACITY! 

280! 

2 

2601 

1 

20! 

I 

i 

560 

UTILIZATION  ! 

217! 

7/. S%! 

96! 

60.061 

7! 

35.0%! 

0! 

0.06! 

320 

! 59.3% 

NO  SHOWS  ! 

J/! 

16.0%! 

17  ! 

15.06! 

2! 

22.2%! 

0! 

0 . 0% ! 

5b 

! 16.9% 

bMALOG  8/ WAS  I 

0! 

0 WAS! 

0! 

0 WAS! 

01 

0 WAS! 

0! 

0 WAS! 

0 

! 0 WAS 

1 

STU  OAYS/AOU! 

1085! 

n.9! 

600! 

5.3! 

35! 

0.6! 

0! 

0.8! 

1600 

i 6.6 

1 it 

TOTAL  PASS  1 

217! 

100.0%! 

961100.06! 

7 ! 

100.0%! 

0! 

0.06! 

320 

1 100.11% 

TOTAL  FAIL  ! 

0! 

0 . 0% ! 

0! 

0.061 

0! 

0.061 

0! 

0 . 0 % I 

0 

! 0.0% 

SETUACA  ACAD! 

0! 

0 . 0%  ! 

01 

0.061 

0! 

0.06! 

0! 

0 . 0%  I 

0 

! 0.0% 

II 

D 1 SENROLL  NA! 

0! 

M.0%! 

0! 

0.061 

0! 

0.06! 

0! 

0.06! 

0 

I f.0% 

PAGE  2 ♦PAUSING-  ENTER  NEXT  PAGE  NO. 

3 

PAGE  3 

ENU  OF  TPF  OUTPUT  1 COURSES  PROCESSED 
PAGE  3 ♦PAUSING-  ENTER  NEXT  PAGE  NO. 
UUNE 

♦DISPLAY  TPF  ENOEO 
CSS. 211  05/07/75 

13.63.32 


FIGURE  I I 1-9  TPF  TEST  RUN  - SCHOOL  AND  CENTER  OUTPUT 


I I 1-29 


TAEG  REPORT  NO.  36 


SECTION  IV 


SYSTEMS  CAPABILITIES/REQUIREMENTS  AND  RESOURCES  MODEL 
MODEL  DESCRIPTION  AND  USER'S  GUIDE 


SCRR  MODEL  ARCHITECTURE 

The  objective  of  the  Systems  Capabilities/Requirements  and  Resources  (SCRR) 
model  is  to  provide  Navy  training  complex  officials  with  sufficient  physical 
resource  information  (l.e.,  courses,  instructors,  classrooms,  laboratories) 
and  related  analyses  to: 

a.  Assess  the  feasibility  of  meeting  annual  training  requirements  at 
the  training  complex  level. 

b.  Evaluate  alternative  plans  for  meeting  both  short-  and  long-term 
training  requirements. 

c.  Assess  the  utilization  of  existing  resources  in  the  dally  operation 
of  the  training  complex. 

The  SCRR  model  will  derive  the  data  required  to  fulfill  these  objectives 
through  the  solution  and  subsequent  sensitivity  analysis  of  the  following 
linear  programming  problem. 

Determine  the  maximum  student  throughput  based  on  an  optimal  mix  of 
course  convenings  which  a training  complex  can  achieve  In  a specified 
period  of  time,  subject  to  either  existing  or  projected  physical  re- 
source constraints. 

Specifically,  a training  complex  official  will  be  able  to  use  the  SCRR  model  to 
analyze  the  projected  Impact  of  modifications  to  training  demand  or  resource 
availability  on  student  throughput,  course  convenings,  and  resource  utilization. 

The  following  are  presented  as  examples  of  modifications  which  the  SCRR  model 
will  evaluate. 

a.  Courses  can  be  added  to  or  deleted  from  the  training  complex  schedule. 

b.  Course  lengths  can  be  Increased  or  decreased. 

c.  Course  convening  frequencies  can  be  altered. 

d.  Normal  course  capacities  can  be  Increased  or  decreased. 

e.  Course  utilization  percentages  can  be  changed. 

f.  Student/Instructor  ratios  can  be  modified. 

g.  Instructors  can  be  added  or  deleted. 

h.  Instructor  qualifications  can  be  modified. 

1.  Instructor  availability  can  be  Increased  or  decreased. 

j.  Classroom  and  laboratory  availabilities  can  be  Increased  or  decreased. 
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Although  training  system  resource  optimization  Is  the  primary  goal  of  the  SCRR 
model,  the  model  can  also  be  used  to  calculate  the  quantity  and  mix  of  resources 
required  to  achieve  either  the  current  or  a user-specified  course  convening 
schedule.  The  SCRR  model  operating  mode  can  be  changed  from  optimization  to 
calculation  by  executing  the  program  FIXCONV  prior  to  model  execution. 

The  SCRR  model  interfaces  only  with  the  Master  data  base.  The  model  user 
can  optionally  select  data  from  any  organizational  element,  i.e.,  a division, 
department,  or  activity,  for  model  Input.  All  SCRR  model  input  Is  then 
automatically  generated  based  on  the  contents  of  the  Master  data  base  at  the 
time  of  model  execution. 

All  SCRR  model  programs  are  designed  to  be  Interactively  executed  using  tele- 
communication terminals. 

MODEL  DESCRIPTION.  Figure  IV-1  depicts  the  SCRR  model  functional  flow.  The 
components  of  the  functional  flow  can  be  divided  into  three  distinct  cate- 


gories: 

a. 

Data  Base 

b. 

SCRR  Model 

c. 

User  Analysis 

The  SCRR  model  Input  data  Is  generated  based  on  the  data  contents  of  the 
Master  data  base.  After  an  Initial  model  execution  which  creates  the  SCRR 
input  data  matrix,  the  model  user  may  elect  to  modify  the  model  Input  data 
to  represent  projected  training  requirement/resource  relationships,  or  to 
answer  "what  If"  questions  without  destroying  the  data  stored  In  the  DOTS 
Master  data  base.  Although  the  data  base  Is  not  an  Integral  part  of  the 
SCRR  Model,  model  operation  Is  dependent  upon  the  data  base. 

The  five  primary  components  of  the  SCRR  model  are: 

a.  Formulate  LP  objective  function  and  constraint  equations. 

b.  Compute  linear  programming  solution. 

c.  Perform  post-optimal  sensitivity  analysis. 

d.  Format  optimal  solution  and  sensitivity  analysis  output. 

e.  Modify  resource  requirements  and/or  availabilities. 

The  remaining  functional  flow  components  fall  Into  the  user  analysis  cate- 
gory. The  user  must  analyze  the  optimal  solution  and  the  sensitivity  analysis 
results  to  determine  If  that  solution  can  be  Implemented.  If  not,  then  he 
must  consider  the  previous  results  together  with  Information  from  other  sources. 
Including  data  from  the  Training  Process  Flow  (TPF)  and  the  Individualized 
Training  System  Simulation  (ITSS)  models,  to  modify  the  resource  mix,  training 
requirements,  or  other  model  parameters. 
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Design  of  Training  Systems  (DOTS)  Master  Data  Base.  T0e  DOTS  Master  data 
base  provides  a single  data  source  for  the  SCRR  model  and  significantly  reduces 
the  amount  of  data  that  must  be  entered  each  time  the  model  Is  run.  All  Input 
data  required  by  the  SCRR  model,  such  as  course  data  (length,  capacity,  con- 
vening frequency.  Instructor,  classroom,  lab,  and  equipment  requirements), 
instructor  data  (qualifications,  assignments,  availability,  rotate  date),  and 
classroom  and  laboratory  data  (location,  capacity,  availability,  course  assign- 
ments) are  stored  In  the  DOTS  Master  data  base.  The  Master  data  base  Is  updated 
as  changes  occur  to  ensure  that  It  depicts  current  training  requirements  and  the 
resources  available  to  the  training  complex.  This  design  feature  enables  the 
SCRR  model  user  to  obtain  an  analysis  of  current  resources  as  applied  to  current 
training  requirements.  The  resource  analysis  Includes  Instructor,  classroom,  and 
laboratory  utilization  as  a percentage  of  total  availability,  the  total  number  of 
convenings  of  each  course  which  Is  feasible  at  the  current  resource  level,  and 
resource  trade-offs  for  resources  which  are  applied  across  two  or  more  courses. 

A detailed  description  of  the  DOTS  data  base  can  be  found  In  Section  Vof  this 
manual . 

Select  Organizational  Element  to  be  Analyzed.  To  provide  the  model  user  with 
increased  flexibility  In  model  problem  formulation,  data  can  be  extracted 
from  the  Master  data  base  on  the  basis  of  organizational  element,  l.e.,  divi- 
sion, department,  or  activity.  This  feature  will  reduce  both  time  and  costs 
required  to  perform  the  desired  analysis. 

Modify  SCRR  Input  Data  to  Represent  Alternative  System  to  be  Analyzed.  If  the 
so'e  source  of  input  data  for  the  linear  programming  module  was  tne  current 
contents  of  the  Master  data  base,  SCRR  model  application  would  be  rritrlcted 
to  the  analaysls  of  the  Interaction  of  only  those  resources  and  requirements 
described  In  the  data  base.  To  extend  the  range  of  application  of  the  model, 
the  optional  Modify  SCRR  Input  Data  component  has  been  inserted  between  the 
Master  data  base  module  and  the  LP  problem  formulation  module  In  the  func- 
tional flow  depicted  in  Figure  IV— 1 . 

Training  complex  officials  have  the  option  of  selecting  the  organizational 
element  to  be  analyzed  and  then  proceeding  directly  to  the  LP  problem  formula- 
tion module,  thus  generating  an  output  which  describes  the  utilization  and 
interactions  of  current  resource  elements.  However,  the  training  official 
may  elect  to  modify  some  or  all  of  the  SCRR  Input  data  to  determine  the  feasi- 
bility of  a proposed  modification  to  training  demand  or  resource  availability. 
Modifications  to  the  data  base  might  be  made  to: 

a.  Incorporate  data  from  either  the  TPF  or  the  ITSS  models. 

b.  Incorporate  results  of  previous  SCRR  model  runs. 

c.  Answer  "what  If"  questions  posed  by  training  complex,  functional 
command,  or  EDTRACOM  officials. 
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Formulate  LP  Objective  Function  and  Constraint  Equations.  Linear  programming 
deals  with  the  problems  arising  out  of  the  need  to  allocate  limited  resources 
among  competing  activities  to  meet  desired  objectives.  These  problems  are 
characterized  by  the  large  number  of  solutions  that  satisfy  the  basic  conditions 
of  each  problem.  The  selection  of  a particular  solution  as  the  best  solution 
to  a problem  depends  on  some  aim  or  overall  objective  that  Is  Implied  In  the 
statement  of  the  problem.  A solution  that  satisfies  both  the  conditions  of 
the  problem  and  the  given  objective  Is  termed  an  optimum  solution.  The  complete 
mathematical  statement  of  a linear  programming  problem  Includes  a set  of  simul- 
taneous linear  equations  or  Inequalities  which  represent  the  conditions  of  the 
problem,  and  a linear  function  which  expresses  the  objective  of  the  problem. 

The  linear  programming  term  "objective  function"  represents  the  target  of  the 
linear  programming  solution.  The  answer  to  the  problem  must  satisfy  this  re- 
quirement. The  objective  function  must  be  clearly  stated  and  expressed  as  a 
linear  mathematical  function.  The  stated  objective  of  the  SCRR  linear  pro- 
gramming model  Is  to  maximize  the  student  throughput  which  a school  or  train- 
ing complex  can  achieve  in  a specified  time  period  subject  to  existing  physical 
resource  constraints.  This  objective  can  be  expressed  mathematically  as: 

J 

MAXIMIZE  Z C.X. 

J J 

j-1 

which  is  shorthand  notation  for  saying 

"MAXIMIZE  C1X1  + C2X2  + C3X3  + ...  + CjXj". 
where 


Xj  = number  of  annual  convenings  of  course  j. 

Cj  * average  class  size  of  course  j based  upon  the  normal  class 
capacity  and  the  historical  course  utilization  percentage. 

The  LP  problem  formulation  module  constructs  the  objective  function  based  on 
average  class  size  and  reformats  the  function,  to  satisfy  the  input  requirements 
of  the  LP  module. 

Several  conditions  or  contralnts  must  be  considered  In  the  formulation  of  the 
SCRR  linear  programming  problem. 


Course  syllabi  require  a specific  amount  of  classroom  Instruction  time  from  one 
or  more  Instructors  for  each  course  convening.  However,  only  a limited  number 
of  Instructors  Is  qualified  to  teach  each  course.  Therefore,  the  total  amount 
of  time  the  Instructors  have  available  for  classroom  Instruction  limits  the 
number  of  times  the  course  can  be  convened.  The  product  of  the  classroom 
Instruction  time  and  the  number  of  convenings  cannot  exceed  the  total  amount  of 
time  available  from  all  qualified  Instructors. 
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Each  course  syllabus  also  requires  that  classroom  and/or  laboratory  space  be 
available  for  each  convening.  The  amount  of  time  each  facility  Is  available 
also  represents  a limitation  to  the  number  of  times  a course  can  be  convened. 

In  addition  to  the  constraints  Imposed  by  Instructors,  classrooms,  and  labo- 
ratories, most  courses  are  further  restricted  In  that  they  must  be  convened 
some  minimum  number  of  times  to  fulfill  a training  requirement  to  train  a 
minimum  number  of  Individuals. 

These  conditions  can  be  mathematically  stated  by  a set  of  simultaneous  Inequal 
Itles  as  follows: 

(1)  J 

£ ajj  Xj  * TCH.J  1 * 1,  2,  •••  I. 


where 

a^j  ■ number  of  Instructor  contact  hours  required  by  course 

syllabus  for  the  1th  Instructor  for  one  convening  of  course  j. 

TCH-j  ■ total  contact  hours  available  per  year  for  the  1th  Instructor. 

(2)  J 

t bkj  Xj  * TLAk  k « 1,  2,  ...  K. 
j • 1 

where 

« number  of  hours  of  usage  required  from  laboratory  type  k 
for  each  convening  of  course  j. 

TL\  ■ total  hours  per  year  which  laboratory  type  k Is  available 
for  use. 

(3)  J 

r 4mj  xj  s CRA,,,  m - 1,  2,  ...  M. 

J « 1 

where 

dm,  » number  of  hours  of  usage  required  from  the  typa  m classroom 
for  one  convening  of  course  J. 

CRAm  ■ total  hours  per  year  the  type  m classroom  Is  available  for 
use. 

(4)  Xj  > MINj. 


where 

MINj  ■ minimum  number  of  convenings  per  year  for  course  j to  meet 
a minimum  training  requirement. 

— -- — — 
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The  formulation  module  constructs  the  entire  set  of  simultaneous  Inequalities 
described  above,  and  reformats  the  constraints  to  conform  to  the  Input  require- 
ments of  the  LP  module.  The  LP  Input  data  are  compiled  based  solely  on  the  con- 
tents of  the  Master  data  base.  The  model  user's  only  responsibility  Is  to 
ensure  that  the  system  to  be  analyzed  Is  accurately  described  In  the  Master  data 
base.  Once  SCRR  model  execution  has  been  Initiated,  no  further  user  Intervention 
Is  required. 

Compute  Linear  Programming  Solution.  The  linear  programming  module  accepts 
formatted  Input  from  the  LP  problem  formulation  module  and  calculates  either 
the  maximum  student  throughput  and  maximum  convenings  of  each  course  possible 
per  year  subject  to  the  expressed  physical  resource  constraints,  or  the 
quantity  of  resources  required  to  attain  a specified  throughput  or  convening 
schedule.  Since  many  excellent  texts  which  provide  detailed  methodology  for 
linear  programming  computational  procedures  are  available,  these  procedures 
and  associated  mathematical  proofs  will  not  be  Included  In  this  report.  An 
extensive  linear  programming  bibliography  can  be  found  In  Dantzlg.' 

2 

Mathematical  Programming  System  III  Online  System,  MPS  III/OL,  a product 
developed  by  Management  Science  Systems  based  on  IBM's  MPS/360,  and  adapted 
for  Interactive  use  by  National  CSS,  Inc.  Is  utilized  to  perform  the  linear 
programming  computations.  The  MPS  III/OL  linear  programming  procedures  use 
the  bounded  varl able/product  form  of  the  Inverse/revised  simplex  method. 

Perform  Post-Optimal  Sensitivity  Analysis.  The  purpose  of  the  sensitivity 
analysis  module  is  to  provide  Information  concerning  the  range  of  operations 
In  the  neighborhood  of  the  optimum  solution  as  calculated  by  the  LP  module. 

The  sensitivity  analysis  will  provide  Information  relative  to  how  changing 
Instructor,  classroom,  or  laboratory  utilization  affects  the  optimal  student 
throughput,  and  the  range  of  Instructor,  classroom,  and  laboratory  utilization 
hours  for  which  the  solution,  as  originally  stated,  remains  optimal.  The  sensi- 
tivity analysis  will  also  generate  Information  describing  the  effect  of  class 
size  on  the  optimal  solution  as  well  as  the  feasible  range  of  annual  convenings, 
and  the  effect  of  changing  the  number  of  convenings  on  the  optimal  student 
throughput.  The  Information  obtained  from  the  sensitivity  analysis  should 
prove  to  be  as  valuable  as  the  specification  of  the  optimum  solution  Itself. 

There  are  several  reasons  for  performing  a sensitivity  analysis.  Stability  of 
the  optimal  solution  under  changes  of  parameters  may  be  critical.  For  example, 
using  the  old  optimum  solution  point,  a slight  variation  In  the  required  number 
of  convenings  or  In  Instructor  requirements  may  result  In  a large  unfavorable 
difference  In  the  objective  function  (student  throughput),  while  a large 
variation  In  either  of  the  parameters  In  another  direction  may  result  In  only 
a small  difference.  The  training  center  official  may  find  It  desirable  to 
move  away  from  the  optimum  solution  when  variables  such  as  course  demand,  which 
are  not  considered  In  the  SCRR  model,  are  taken  Into  account. 


'G.  B.  Dantzlg,  Linear  Programing  and  Extensions. 
Princeton  University  Press,  1963. 


Princeton,  N.  J.: 

NCSS  Form  978,  February  1974. 
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Instructor,  classroom,  laboratory  requirements  and  availabilities,  minimum  con- 
vening frequencies,  and  class  capacities  are  to  some  extent  controllable,  and  It 
Mould  be  advantageous  to  know  the  effects  which  would  result  from  changing  the 
values  of  these  parameters.  Determination  of  the  range  of  values  for  each  of 
the  parameters  for  which  the  solution  remains  optimum  will  also  Identify  those 
parameters  to  which  the  optimum  solution  Is  extremely  sensitive. 

Format  Optimal  Solution  and  Sensitivity  Analysis  Output.  From  the  operational 
point  of  view,  the  key  component  of  any  model  Is  the  output  module.  Model  out- 
put represents  the  primary  Interface  between  the  model  and  Its  user.  The  SCRR 
model  output  Is  divided  Into  two  segments: 

a.  LP  Optimum  Solution  and  Sensitivity  Analysis  - Resource  Data 

b.  LP  Optimal  Solution  and  Sensitivity  Analysis  - Course  Data. 

LP  Optimal  Solution  and  Sensitivity  Analysis  - Resource  Data.  The  LP  module 
output  and  the  sensitivity  analysis  module  output  have  been  combined  Into  a 
single  output  format  for  all  resource  data.  Instructor  resources  are  Identified 
by  Instructor  name.  Classrooms  and  laboratories  are  Identified  by  building 
and  room  number.  The  resource  data  output  section  lists  the  following  for 
each  resource: 

a.  Annual  non-classroom  hours  (Instructors  only). 

b.  Annual  availability  classroom  contact  hours. 

c.  Annual  requirement  classroom  contact  hours. 

d.  Requirement  vs.  availability  ratio. 

e.  Upper  and  lower  limits  of  resource  utilization  hours. 

f.  Student  throughput  change  per  unit  resource  change. 

g.  Identification  of  variable  which  limits  utilization  range,  and  whose 
value  will  change  as  the  resource  level  Is  modified. 

LP  Optimal  Solution  and  Sensitivity  Analysis  - Course  Data.  As  with  the  resource 
data,  the  output  from  both  the  LP  module  and  the  sensitivity  analysis  module  Is 
presented  In  a single  report  format  for  course  data.  Courses  are  Identified  by 
CDP  numbers.  The  course  data  section  lists  the  following  for  each  course: 

a.  Maximum  number  of  annual  convenings. 

b.  Current  number  of  scheduled  convenings. 

c.  Average  class  size. 

d.  Range  of  annual  convenings. 

e.  Student  throughput  change  per  course  convening  change. 
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f.  Range  of  class  sizes  to  which  indicated  solution  can  be  applied. 

g.  Identification  of  variable  which  limits  convenings  range,  and  whose 
value  will  change  as  the  convening  level  Is  modified. 

Format  Detailed  Instructor  Assignment  Data.  The  LP  resource  data  output  shows 
total  annual  Instructor  requirements  for  each  Instructor.  The  Instructor  assign- 
ment listing  provides  the  model  user  with  a detailed  breakdown  of  the  total  contact 
hour  requirements.  The  Instructor  assignment  listing  contains  the  following  Infor- 
mation for  each  Instructor: 

a.  Course  CDP  Number  for  each  course  contributing  to  the  total  contact 
hour  requirement. 

b.  Average  class  size. 

c.  Number  of  convenings  per  year. 

d.  Number  of  contact  hours  per  course  convening. 

e.  Total  annual  contact  hours  required  per  course. 

f.  Total  annual  contact  hour  requirement  per  Instructor. 

g.  Total  annual  availability  per  Instructor. 

Format  Detailed  Facility  Utilization  Data.  The  LP  resource  data  output  also 
shows  the  total  annual  facility  requirements  for  each  building/room  combination. 

The  facility  utilization  listing  provides  the  model  user  with  a detailed  break- 
down of  the  total  facility  requirements.  The  facility  utilization  listing  con- 
tains the  following  Information  for  each  building/room: 

a.  Course  CDP  number  for  each  course  contributing  to  the  total  requirement. 

b.  Average  class  size. 

c.  Number  of  convenings  per  year. 

d.  Number  of  hours  required  per  course  convening. 

e.  Total  annual  hours  required  per  course. 

f.  Total  annual  hours  required  per  facility. 

g.  Annual  availability  per  facility. 

Review  Model  Output.  After  the  training  complex  official  has  analyzed  the 
linear  programming  optimal  solution  and  the  output  from  the  sensitivity  analysis, 
he  Is  finally  In  a position  to  interpret  and  evaluate  the  model  results.  To 
successfully  Interpret  the  model  results,  the  official  must  be  familiar  with 
the  mathematical  formulation  of  the  linear  programing  problem.  The  objective 
of  this  familiarization  requirement  Is  not  to  understand  the  Internal  mathe- 
matical manipulations  required  to  achieve  the  linear  programming  solution. 
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but  to  be  aware  of  simplifications  and  deviations  from  reality  that  were, 
of  necessity,  built  into  the  initial  linear  programming  solutions.  Model 
results  must  be  interpreted  taking  all  assumptions  and  simplifications 
fully  into  consideration. 


Assuming  that  the  official  either  accepts  the  model  results  or  modifies  the 
model  output,  based  on  his  experience  and  Intuitive  feeling  for  the  situation 
being  analyzed,  his  next  task  Is  to  evaluate  the  results  In  terms  of  Implementa- 
tion feasibility.  If,  because  of  some  physical,  monetary,  or  political  re- 
striction, full  or  partial  Implementation  Is  not  feasible,  the  problem  state- 
ment must  be  reformulated  utilizing  any  new  data  or  Insights  resulting  from  the 
Initial  problem  solution  and  sensitivity  analysis. 


Upon  completion  of  the  model  output  review,  the  model  user  may  decide  that: 

a.  All  alternatives  have  been  evaluated  and  the  analysis  Is  complete, 

b.  The  original  problem  should  be  restructured  Incorporating  results 
from  the  current  model  run. 

c.  A parametric  study  of  resource  requirement  factors  should  be  per- 
formed . 


godlfv  Resource  Requirements  and/or  Availabilities.  Assuming  that  the  basic 
training  system  structure  (number  of  courses.  Instructor  assignments  and  quall- 
flcatlons,  student/instructor  ratios,  etc.)  described  In  the  Master  data  base 
is  feasible,  the  model  user  may  elect  to  perform  a parametric  analysis  of  the 
resource  requirement  and  availability  variables,  to  Investigate  resource  trade- 
par?metr!c  !!!alyf1s  1s  a systematic  study  of  changes  In  resource 

5he  11"ear  Programming  model.  Resource  parameters  capable 
croD,-9  *1ed  us*ng  model  -related  programs  as  opposed  to  modifying  the 
SCRR  input  data  are  course  utilization,  class  capacity,  course  length/  and 
resource  availability. 


Restructure  Training  Resource  Problem  Incorporating  Sensitivity  Analysis  Results. 
when  review  of  SCRR  model  output  Indicates  that  the  basis  training  resource  data 
contained  In  the  Master  data  base  must  be  restructured  to  find  a feasible  solution, 
the  training  complex  official  must  decide  how  to  modify  the  current  sytstem  struc- 
ture.  This  restructuring  could  take  the  form  of  transferring  instructors  between 
schools,  implementing  Instructor  cross-training  programs,  or  modifying  course 
convening  schedules,  for  example.  The  system  restructure  module  (See  Figure 
IV-l)  completes  the  Interatlve  cycle.  Based  on  SCRR  model  results,  experience, 
and  Intuition,  an  official  has  the  ability  to  modify  initial  problem  statements 
or  to  develop  new  potential  alternative  solutions  to  be  evaluated.  At  this 
point,  the  official  need  only  remodify  the  SCRR  Input  data  to  Initiate  an 
additional  cycle  of  the  Interatlve  process. 


! 
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Data  From  Training  Process  How  and  Individualized  Training  System  simulation  Models. 
The  results  of  the  TPF  and  the  lt$S  models  may  Suggest  modifications  to  several 
of  the  SCRR  model  variables;  e.g.: 


a.  Several  courses  should  be  Individualized,  reducing  Instructor  require 
ments  and  calling  for  modifications  to  classroom  and  laboratory  space 
requirements. 


t k 


TAE6  REPORT  NO.  36 


b.  Student/Instructor  ratios  should  be  Increased  for  the  lab  sessions  In 
several  courses  to  reduce  failure  rates. 

c.  Convening  frequencies  should  be  Increased  to  reduce  the  wait  time 
required  to  attend  several  courses. 

d.  Convening  frequencies  should  be  reduced  for  low  utilization  courses. 

The  SCRR  input  data  can  be  modified  to  reflect  changes  such  as  those  listed  above 
prior  to  initiating  the  SCRR  model. 

MODEL  ASSUMPTIONS.  A mathematical  model  of  a system  is  a collection  of  mathe- 
matical relationships  which  characterize  the  feasible  solutions  of  the  system. 

By  feasible  solutions,  is  meant  those  solutions  which  can  be  carried  ou'-  under 
the  system's  limitations.  The  technique  utilized  to  solve  the  SCRR  mathematical 
model  Is  linear  programming.  Linear  programming  establishes  the  optimal  system 
solution  by  Iteratively  evaluating  feasible  solutions  against  an  expressed 
objective.  Before  the  linear  programming  technique  can  be  used,  several  basic 
requirements  must  be  fulfilled.  This  section  will  discuss  these  basic  require- 
ments and  demonstrate  that  these  requirements  are  fulfilled  by  the  SCRR  model 
application.  Also  included  In  this  section  is  a discussion  of  the  real  world 
interpretation  of  a linear  programming  optimal  solution.  Assumptions  and 
limitations  relative  to  the  SCRR  mathematical  model  variables  are  also  discussed. 

Linear  Programming  Basic  Requirements.  As  the  name  "linear  programming"  implies. 
Doth  the  objective  function  and  every  constraint  function  must  be  linear. 
Linearity  Is  a primary  requirement  of  linear  programming.  A linear  relationship 
is  essentially  defined  by  two  properties,  proportionality  and  additivity.  In 
addition  to  these  two  major  characteristics,  three  additional  requirements  must 
be  adhered  to:  nonnegativity;  divisibility;  and  deterministic  coefficients. 

Proportionality.  Linearity  requires  a proportionality  or  a simple  multiplica- 
tive relationship  between  the  units  of  resource  requirements  and  the  number  of 
convenings  of  each  course.  For  example,  if  six  instructor  1 contact  hours  are 
required  to  convene  course  A one  time,  then  12  hours  are  required  for  two  con- 
venings, and  24  hours  are  required  for  four  convenings,  etc.  The  amount  of  re- 
source required  Is  the  same  for  the  n-th  convening  as  it  Is  for  the  first.  This 
Is  an  important  property  of  linearity  from  the  practical  point  of  view.  If,  for 
example.  It  was  the  case  for  some  Instructional  curriculum  that  60  hours  of  a 
given  resource  were  required  to  attain  30  convenings  of  some  course,  but  only  100 
hours  of  the  resource  were  required  to  attain  60  convenings  of  this  course,  then 
the  proportionality  assumption  would  not  hold.  It  Is  obvious,  without  explana- 
tion, that  for  the  SCRR  model  application,  the  resource  requirements  are  propor- 
tional to  the  number  of  course  convenings  and  to  the  student  throughput  for  a 
constant  class  size.  The  objective  function  of  the  current  SCRR  model  formula- 
tion Is  to  maximize  student  throughput  based  on  specified  course  capacities. 
Course  requirements  are  calculated  based  on  the  same  course  capacities. 


Additivity.  The  additivity  property  of  linear  relationships  states  that  the 
measures  of  effect  as  calculated  through  the  objective  function,  and  the  levels 
of  resources  as  expressed  In  the  constraint  equations,  must  both  be  additive. 
The  objective  function  measure  of  effect  Is  student  throughput,  which  Is  calcu- 
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lated  by  multiplying  the  course  capacity  by  the  number  of  convenings.  Thus,  If 
course  A's  capacity  Is  6 and  It  Is  convened  10  times  each  year,  the  annual  through- 
put for  A Is  60,  and  If  course  B has  a capacity  of  20  and  Is  convened  15  times 
per  year.  Its  throughput  Is  300.  The  additivity  property  states  that  the  total 
throughput  for  the  two  courses  Is  then  360.  A similar  example  will  demonstrate 
the  additivity  property's  Involvement  In  the  constraints  of  the  linear  programming 
model.  Instructor  1 teaches  both  courses  A and  B.  Twenty-five  hours  of  his  time 
are  required  for  each  convening  of  course  B.  Since  A meets  ten  times  each  year 
and  B fifteen  times.  Instructor  l's  total  requirement  Is  400  hours  (250  for  A and 
150  for  B).  Like  the  above  example,  all  SCRR  model  resource  requirements  are 
additive  across  all  courses. 


Nonnegativity.  The  nonnegativity  property  states  that  while  any  positive 
multiple  of  course  convenings  Is  possible,  negative  course  convenings  are  not 
possible.  Adherence  to  this  restriction  Is  ensured  through  the  MPSIII/OL  pro- 
gram. The  MPSIII/OL  program  allows  the  user  to  specify  both  upper  and  lower 
bounds  for  the  decision  variables.  If  a lower  bound  Is  not  specified,  the  pro- 
gram assumes  a value  of  zero.  Unspecified  upper  bounds  are  set  equal  to 
infinity.  In  the  case  of  the  SCRR  model  application,  the  LP  problem  formulation 
algorithm  sets  the  lower  bound  for  course  convenings  equal  to  the  number  of 
annual  convenings  (which  is  always  a positive  quantity)  stored  In  the  data  base. 
A negative  number  of  course  convenings  Is  meaningless. 


Divisibility.  The  divisibility  property  requires  that  fractional  levels  of  the 
decision  variables  be  permlssable.  In  many  linear  programming  models,  the  deci- 
sion variables  would  have  physical  significance  only  If  they  have  Integer  values. 
There  Is  no  guarantee  that  the  solution  procedure  utilized  within  the  SCRR  model 
will  yield  an  Integer  solution.  If  an  Integer  solution  Is  required,  the  common 
procedure  Is  to  round  the  non-integer  optimal  solution  down  to  the  nearest  Integer. 
This  course  of  action  could  produce  two  problems.  First,  this  Integer  solution 
need  not  be  feasible.  Second,  even  If  It  Is  feasible,  this  solution  need  not  be 
too  near  optimality.  Since  fractional  values  for  the  number  of  course  convenings 
Is  Interpretable,  the  SCRR  model  application  fulfills  the  divisibility  property 
requirement.  A fractional  course  convening  is  Interpreted  as  a course  which  Is 
convened  but  Is  not  completed  In  a calendar  year.  For  example,  0.5  convenings 
could  be  associated  with  a two  week  course  which  Is  convened  the  last  week  of  a 
calendar  year. 


Deterministic  Coefficients.  All  of  the  coefficients  In  a linear  programming  model 
are  assumed  to  be  known  constants.  In  the  SCRR  model  application,  this  Includes 
class  capacities.  Instructor  and  space  requirements  per  convening,  and  Instructor 
and  space  availabilities.  The  fact  that  any  or  all  of  the  LP  coefficients  may  not 
be  known  constants  does  not  Invalidate  model  results,  but  does  require  the  ex- 
penditure of  additional  effort.  (A  sensitivity  analysis  Is  generally  performed 
to  determine  the  effect  on  the  optimal  solution  If  particular  parameters  take  on 
other  possible  values.)  Sensitivity  analysis  Is  employed  to  determine  the  effect 
of  changing  the  value  of  a single  parameter.  It  Is  often  of  Interest  to  In- 
vestigate making  simultaneous  changes  In  a number  of  parameters  and  to  study 
what  happens  as  the  magnitude  of  these  simultaneous  changes  Increase.  A system- 
atic study  of  such  changes  In  certain  parameters  of  a linear  programming  model 
Is  the  objective  of  parametric  linear  programming.  A post  optimal  sensitivity 
analysis  Is  built  Into  the  SCRR  model.  Sensitivity  analysis  results  are  Included 
In  the  SCRR  model  output.  Parametric  programming  may  be  performed  by  the  model 
user  by  systematically  varying  the  parameters  of  Interest,  rerunning  the  SCRR 
model,  and  comparing  results. 
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Interpretation  of  tP  Optimal  Solution.  The  SCRR  model  can  be  operated  In  two 
different  modes.  The  number  of  course  convenings  can  be  specified  by  the  user. 

The  model  will  then  calculate  the  resources  required  to  achieve  that  number  of 
convenings,  and  compare  the  required  resources  with  present  resource  capabilities. 

On  the  other  hand,  the  SCRR  model  could  be  run  against  the  data  base  which  de- 
picts current  resource  capabilities  and  specifies  a minimum  number  of  course 
convenings.  The  model  will  determine  the  maximum  student  throughput  which  could 
be  attained  with  current  resources.  Model  results  from  the  former  operating  mode 
are  straight-forward  and  require  no  additional  explanation.  Interpretation  of 
model  results  in  the  latter  case  is  more  complex. 

Consider  the  following  example.  Course  A is  currently  scheduled  to  convene  24 
times  per  year.  The  SCRR  model  is  run  to  optimize  throughput  based  on  current 
resources.  Model  results  indicate  that  course  A should  be  convened  93.7  times 
per  year.  Since  the  user  is  aware  that  course  A utilization  is  currently 
averaging  about  70  percent  and  a reduction  in  convening  frequency  Is  being 
considered,  the  model  results  appear  absurd.  However,  the  objective  of  the 
SCRR  model  was  to  maximize  throughput,  which  is  defined  as  course  capacity 
times  the  number  of  convenings,  subject  to  current  resource  capabilities. 

Throughput  can  be  increased  only  by  increasing  convening  frequency.  Convening 
frequency  is  limited  only  by  available  resources.  Capability  to  Increase  con- 
vening frequency  to  nearly  four  times  the  current  schedule  implies  that  present 
course  A resources  are  being  utilized  approximately  25  percent  of  the  available 
time.  Therefore,  the  question  the  SCRR  model  user  should  be  considering  is  not 
should  course  A be  convened  93  times  per  year,  but  how  can  course  A resources 
be  utilized  more  effectively?  Resource  availabilities  stored  in  the  data  base 
should  be  examined.  Perhaps  the  original  availability  estimate  was  too  high. 

Frequent  curricula  updates  may  reduce  the  time  available  for  classroom  instruc- 
tion. Or  the  instructor(s)  could  be  cross-trained  to  instruct  one  or  more 
additional  courses.  The  same  model  output  which  indicated  93.7  convenings  for 
course  A,  may  also  have  pointed  out  other  courses  which  could  not  meet  minimum 
convening  requirements  because  of  lack  of  resources. 

The  user  should  Investigate  all  the  above  possibilities.  Model  Input  parameters 
could  be  modified  and  the  model  rerun  to  assist  in  the  evaluation  of  the  feasible 
alternatives. 

Assumptions  and  Limitations  of  SCRR  Model  Variables.  The  laboratory  and  class- 
room  facilities;  i.e.,  the  number  of  spaces  available  for  course  presentation. 

Lab  equipment,  training  aids,  and  other  major  equipment  Installed  In  these 
spaces,  are  considered  to  be  fixed  in  their  availability  in  the  short  run  (up  to 
two  years),  but  variable  over  longer  time  spans.  Therefore,  a time  lag  of  from 
one  to  two  years  is  assumed  between  a decision  to  procure  major  equipment  or  to 
construct  classroom  or  lab  facilities,  and  the  completion  of  the  Installation  or 
construction. 

Although  short-range  availability  of  classrooms  and  laboratories  Is  considered 
fixed,  an  estimate  of  the  availability  of  Individual  classrooms  or  labs  has  not 
been  attempted.  A uniform  availability  of  40  hours  per  week  for  52  weeks  per 
year  or  a total  of  2080  hours  per  year  has  been  assumed  for  all  classroom  and 
laboratory  spaces.  The  SCRR  model  user  has  three  options  relative  to  space 
availability:  (1)  maintain  the  assumption  of  a uniform  2080  hours  per  year 
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availability;  (2)  establish  the  availability  on  a room  by  room  basis  for  the 
training  complex;  or  (3)  utilize  the  SCRR  model  to  perform  parametric  studies  to 
determine  the  effect  of  facility  availability. 

The  authorized  allowance  of  Instructors  Is  considered  to  be  fixed  In  the  short 
run.  The  actual  on-board  count  of  instructors  Is  considered  variable  In  both  the 
short  and  the  long  run.  In  the  short  run,  variations  In  the  on-board  count  may 
be  caused  by  many  factors  (temporary  additional  duty,  vacations.  Illness,  time 
lag  between  assignment  rotation  and  receipt  of  replacement).  In  the  long  run, 
higher  authorities  can  change  the  Instructor  allowance  as  a function  of  major 
changes  In  curriculum  or  requirements,  changes  in  command  mission,  or  the  general 
level  of  manpower  authorizations. 


On-board  instructor  count  can  be  easily  maintained  within  the  data  base.  How- 
ever, given  on-board  count,  the  key  SCRR  model  variable  becomes  instructor 
availability.  Instructor  availability  is  the  number  of  hours  per  year  an 
instructor  has  available  for  classroom  instruction.  Availability  does  not 
include  supervisory  requirements,  military  duties,  preparation  for  Instruction, 
duties  related  to  Instruction,  annual  leave.  Illness,  special  training,  or 

break-in  time.  Annual  instructor  availability  is  currently  projected  based  on 
historical  activity  profile  data  or,  when  historical  data  is  not  available,  an 
instructor's  or  supervisor's  best  estimate.  This  projection  assumes  that  all  in- 
structor activities  will  be  performed  in  the  same  ratio  throughout  the  year. 
However,  time  expertded  on  several  activities  such  as  curriculum  development,  will 
fluctuate  over  a wide  range  from  year-to-year.  Actual  classroom  Instruction  time, 
on  the  other  hand,  is  nearly  uniform. 

It  is  assumed  that  budget  does  not  constrain  the  SCRR  model  solution  in  the 
short  run.  However,  In  the  long  run,  budget  constraints  of  a capital  nature  may 
alter  the  SCRR  optimal  solution,  In  that  student  throughput  could  be  affected  by 
the  funding  available  for  new  construction  and/or  procurement  of  new  equipment. 

Course  curricula  are  considered  fairly  Inelastic  in  the  short  run.  Drastic 
curriculum  changes  require  a considerable  amount  of  time  to  determine  new  require- 
ments, develop  new  material,  and  secure  headquarters  review  and  approval.  How- 
ever, numerous  minor  changes  to  courses  take  place  frequently,  and  a course  may 
be  dropped  as  a result  of  sustained  low  utilization. 
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Student/ Instructor  ratios  are  generally  a function  of  curriculum  requirements. 
The  generally  accepted  rule  used  In  the  establishment  of  these  ratios  Is  that 
the  ratio  of  trainees  per  Instructor  for  each  Instructional  situation  should 
be  set  at  that  point  which  yields  the  highest  possible  ratio  without  serious 
detriment  to  the  quality  of  Instruction. 

The  optimum  ratio  should  be  based  on  consideration  of  the  type  of  equipment, 
safety,  and  teaching  effectiveness  for  the  particular  teaching  situation.  Since 
no  more  specific  procedures  other  than  the  above  exist,  the  establishment  of 
student/instructor  ratios  remains  highly  subjective,  and  should  be  closely  moni- 
tored by  training  complex  officials.  • 

The  SCRR  model  calculates  all  Instructor  requirements  based  on  historical  course 
utilization.  Calculated  Instructor  requirements  will  be  accurate  for  courses 
with  relatively  uniform  utilization.  Requirements  for  courses  with  Increasing, 
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decreasing,  or  widely  fluctuating  utilization  will  be  either  higher  or  lower 
than  actual  instructor  requirements. 

INPUT  PARAMETERS  DESCRIPTION 


SCRR  model  input  parameters  contained  in  the  DOTS  Master  data  base  are  described 
below. 

a.  CDP  Number  - The  CDP  number  is  a four  position  alphanumeric  field 
used  by  NITRAS  as  a course  identifier.  Each  course  is  assigned  a 
unique  CDP  number.  All  data  elements  contained  in  the  Course  and 
Facilities  files  are  keyed  to  the  CDP  number. 


DATA  BASE  REFERENCE: 


FILE 

LEVEL 

FIELD 

NAME 

COURSE 

1 

CDP 

FACIL 

1 

CDP 

FIELD 

NUMBER 

TYPE 

LENGTH 

1 

A 

4 

1 

A 

4 

b.  Course  delete  flag  - The  delete  flag  is  set  to  one  (1)  for  all  active 
courses.  A value  of  zero  (0)  indicates  that  the  course  has  been  dis- 
established. 

DATA  BASE  REFERENCE: 


FILE 

LEVEL 

FIELD 

NAME 

FIELD 

NUMBER 

TYPE 

LENGTH 

COURSE 

1 

DEL 

3 

A 

1 

c.  Number  of  convenings  per  year  - The  number  of  times  each  course  is 
scheduled  to  convene  over  the  next  twelve  months.  Course  schedules 
are  based  on  course  capacities  and  projected  training  requirements. 


DATA  BASE  REFERENCE: 


FIELD  FIELD 

FILE  LEVEL  NAME  NUMBER  TYPE  LENGTH 


COURSE  1 CON VI  6 I 3 

d.  Class  capacity  - The  planned  maximum  number  of  students  that  can  attend 
any  one  convening  of  the  course.  Capacities  are  based  upon  training 
considerations,  such  as  Instructor  to  student  ration,  availability  of 
training  equipment,  workshop,  laboratories,  and  mock-up  facilities,  as 
well  as  physical  considerations  such  as  classroom  size. 
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e. 


DATA  BASE  REFERENCE: 

FILE  LEVEL 

COURSE  1 


FIELD 

NAME 

CAP! 


FIELD 

NUMBER 

8 


TYPE 

I 


LENGTH 

3 


utilization  ‘ The  ratio  of  the  total  number  of  students  enrolled 
in  the  course  over  a one  year  period  to  the  annual  class  cap«l" 

DATA  BASE  REFERENCE: 


FILE 

LEVEL 

FIELD 

NAME 

FIELD 

NUMBER 

TYPE 

LENGTH 

COURSE 

1 

UCAP 

38 

I 

3 

f.  Student/Instructor  ratio  - A numerical  Index  describing  the  number 
of  trainees  per  Instructor. 

DATA  BASE  REFERENCE: 


FILE 

LEVEL 

FIELD 

NAME 

FIELD 

NUMBER 

TYPE 

LENGTH 

COURSE 

2 

FI 

63 

I 

9 

g.  Contact  hours  - The  number  of  Instructional  contact  hours  taught  at 
a given  ratio  of  trainees  per  Instructor.  A contact  hour  represents 
sixty  minutes  of  Instruction.  This  refers  to  clock  hours  of  curriculum 
time  devoted  to  actual  Instruction,  exclusive  of  breaks,  administrative 
time,  lunch,  medical,  dental,  etc. 

DATA  BASE  REFERENCE: 


FILE 

LEVEL 

FIELD 

NAME 

FIELD 

NUMBER 

TYPE 

LENGTH 

COURSE 

2 

F2 

54 

I 

4 

h. 


Instructor  ID  - The  social  security  number  Is  used  as  a unique  In- 
structor Identification  number  to. facilitate  data  manipulation. 


DATA  BASE  REFERENCE: 


FILE 

LEVEL 

FIELD 

NAME 

FIELD 

NUMBER 

TYPE 

LENGTH 

COURSE 

2 

FI 

53 

I 

9 

INST 

1 

ID 

1 

I 

9 
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i.  Current  assignment  - A value  of  one  (1)  denotes  that  an  instructor  is 
currently  assigned  to  a particular  course.  An  instructor  may  be 
assigned  to  more  than  one  course  In  situations  where  course  lengths 
are  less  than  convening  frequency.  Thus  an  instructor  assigned  to  a 
one  week  course  which  is  convened  the  first  week  of  every  month, 
could  also  be  assigned  to  another  one  week  course  which  is  convened 
the  third  week  of  every  month. 


DATA  BASE  REFERENCE: 


FILE 

LEVEL 

FIELD 

NAME 

FIELD 

NUMBER 

TYPE 

LENGTH 

COURSE 

2 

F3 

55 

I 

1 

j.  Instructor  name  - Instructors  are  Identified  by  the  last  name  in 
addition  to  their  social  security  number. 


DATA  BASE  REFERENCE: 

FILE 

FIELD 

LEVEL  NAME 

FIELD 

NUMBER 

TYPE 

LENGTH 

COURSE 

3 (Virtual)  NME 

56 

A 

16 

INST 

1 NME 

2 

A 

16 

k.  Instructor  activity  profile  data  - Time  is  allocated  on  an  annual 
basis  against  the  following  fourteen  categories. 

CONT  - Hours  Contact  with  Students 

FLET  - Special  Fleet  Assistance 

CDEV  - Curriculum  Development/Task  Analysis 

EQMT  - Equipment/Training  Aid  Maintenance 

PREP  - Preparation  for  Instruction  and  Related  Duties 

MDMT  - Military/Physical  Training/Other 

ADMN  - Supervision/Administration 

ANLV  - Annual  Leave 

SLIB  - Special  Liberty 

SKLV  - Sick  Leave 

FTRN  - Factory  Training 

ISCH  - Formal  Instructor/Supervisor  School 

BKIN  - In-service  Instructor  Training  ("break-in"  time) 

CTRN  - In-service  Instructor  Cross-training  Due  to  Low  Student  Load 

Category  names  are  stored  in  the  data  base  by  the  Indicated  codes; 

• e.g. , CONT,  FLET,  etc. 


DATA  BASE  REFERENCE: 


o 

FILE 

LEVEL 

FIELD 

NAME 

FIELD 

NUMBER 

TYPE 

LENGTH 

INST 

1. 

See 

Above 

13-26 

I. 

4 
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Building  - The  name  or  nuafcer  of  the  building  In  which  a classroom 
or  laboratory  space  Is  located. 


DATA  BASE  REFERENCE: 


LEVEL 


FIELD 

NAME 


FIELD 

NUMBER 


LENGTH 


FACIL  2 BLDG  3 A « 

Room  number  - The  name  or  number  of  a classroom  or  a laboratory  space. 


DATA  BASE  REFERENCE: 


LEVEL 


FIELD 

NAME 


FIELD 

NUMBER 


LENGTH 


FACIL 


Required  hours  - Required  hours  represent  the  number  of  hours  the 
Indicated  space  Is  required  to  convene  one  session  of  the  referenced 
course. 


DATA  BASE  REFERENCE: 


LEVEL 


FACIL 


FIELD 

NAME 

REQHRS 


FIELD 

NUM3ER 


LENGTH 


Facility  available  hours  - The  number  of  hours,  on  an  annual  basis, 
the  space  Is  available  for  Instructional  purposes. 


DATA  BASE  REFERENCE: 


LEVEL 


FACIL 


FIELD 

NAME 

AVHRS 


FIELD 

NUttER 


LENGTH 


OUTPUT  PARAMETERS  DESCRIPTION 

The  SCRR  model  utilizes  a linear  programing  technique  to  optimize  student 
throughput,  subject  to  limitations  of  resources  required  to  convene  training 
courses.  One  of  the  model  output  parameters,  number  of  course  convenings, 
provides  the  basis  for  the  student  throughput  calculation.  The  levels  of  re- 
sources required  to  achieve  the  optimal  student  throughput  are  the  only  other 
model  output  parameters.  One  section  of  model  output  dealing  with  the  LP 
optimal  solution  and  the  sensitivity  analysis  results  Is  devoted  to  each  type 
of  parameter.  The  Instructor  Assignment  Listing  Is  generated  to  provide  the 
model  user  with  a detailed  allocation  of  the  total  Instructor  contact  hour 
requirement.  As  the  name  Implies,. the  listing  depicts  course  assignments  for 
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each  instructor.  Contact  hour  requirements  are  detailed  for  each  course 
assignment.  The  Facility  Utilization  Listing  is  identical  to  the  Instruc- 
tor listing  in  format  but  contains  data  describing  annual  facility  utiliza- 
tion. Both  the  course  and  resource  parameters  will  be  described  through 
an  explanation  of  the  four  SCRR  model  output  listing: 

a.  Instructor  Assignment  Listing 

b.  Facility  Utilization  Listing 

c.  LP  Optimal  Solution  and  Sensitivity  Analysis  - Resource  Data 

d.  LP  Optimal  Solution  and  Sensitivity  Analysis  - Course  Data 

INSTRUCTOR  ASSIGNMENT  LISTING.  A sample  printout  of  the  Instructor  Assignment 
listing  is  presented  in  Figure  IV-2.  The  listing  identifies  all  courses  taught 
by  each  Instructor.  For  example.  Brooks  teaches  both  51 OG  and  536K,  while 
Dorsey  teaches  only  536K.  The  assignment  listing  also  shows  the  average  class 
size,  the  current  number  of  course  convenings  scheduled,  the  contact-hour  re- 
quirement per  convening  for  each  Instructor,  and  the  total  annual  contact- 
hour  requirement  based  on  the  current  number  of  convenings.  For  example,  course 
510G  Is  currently  scheduled  to  convene  6 times  this  year.  The  average  class 
size,  based  on  class  capacity  and  historical  course  utilization.  Is  7 students. 

Based  on  an  average  class  size  of  7 students.  Instructor  Brooks  Is  required  an 
average  of  20  hours  per  convening  or  a total  of  120  hours  per  year  for  course 
51  OG. 

1 

From  Figure  IV-2,  both  Paul  and  Ward  also  teach  course  510G.  Both  Paul  and  Ward 
are  required  an  average  of  20  contact  hours  per  510G  convening.  The  total  510G 
Instructor  requirement  per  convening  Is  60  hours.  If  510G  were  a two  week  course 
(30  hours  per  week).  Brooks,  Paul  and  Ward  could  alternate  teaching  the  course, 
each  Instructor  teaching  the  course  2 times  during  the  year.  If  510G  were  a one 
week  course  which  required  two  Instructors  per  convening  (60  contact  hours  per 
week),  each  of  the  three  Instructors  could  assist  In  teaching  the  course  4 times 
during  the  year.  In  both  of  the  above  examples,  each  of  the  three  Instructors 
taught  51 0G  a total  of  120  hours  during  the  year,  or  an  average  of  20  hours  per 
convening. 

* 

The  Instructor  Assignment  Listing  also  sums  the  annual  course  contact-hour 
requirements  and  shows  the  projected  annual  availability  for  each  Instructor. 


FACILITY  UTILIZATION  LISTING.  A sample  printout  of  the  Facility  Utilization 
Listing  is  shown  in  Figure  IV-3.  The  listing  identifies  all  courses  taught 
in  each  building/room,  the  requirement  per  course  convening  for  each  facility, 
and  the  total  annual  requirement  based  on  the  current  nunber  of  convenings. 


LP  OPTIMAL  SOLUTION  AND  SENSITIVITY  ANALYSIS  - RESOURCE  DATA.  The  linear  pro- 
gramming module  calculates  the  number  of  course  convenings  required  to  maximize 
student  throughput.  This  portion  of  the  SCRR  model  output  specifies  the  level 
of  resources  required  to  attain  the  optimal  number  of  course  convenings.  The 


I 
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INSTRUCTOR 

COURSE 

CLASIZE 

CONV 

HRS/ CONV 

TOT  HRS 

AVAIL  1 

BROOKS 

510G 

7 

6 

20.0 

120.0 

536K 

10 

50 

9.3 

465.0 

TOT 

- 585.0 

1042 

BROWN 

510V 

7 

12 

30.0 

360.0 

536K 

10 

50 

9.3 

465.0 

TOT 

= 825.0 

1041 

DORSEY 

536K 

10 

50 

9.3 

465.0 

1042 

HARRISON 

510W 

3 

24 

18.0 

432.0 

1042 

HUNT 

4b  IV 

2 

12 

42.0 

504.0 

1042 

OBERLE 

5698 

14 

6 

130.0 

780.0 

1002 

PAUL 

51-0G 

7 

6 

20.0 

120.0 

536P 

7 

12 

24.0 

288.0 

TOT 

= 408.0 

1042 

ROHLFING 

5107 

8 

24 

20.0 

480.0 

1042 

SPARKES 

5107 

8 

24 

20.0 

480.0 

1042 

STEWART 

5107 

8 

24 

20.0 

480.0 

1042 

STREIT 

5107 

8 

24 

20.0 

480.0 

1042 

WAGNER 

5698 

14 

6 

130.0 

780.0 

1042 

WARD 

510G 

7 

6 

20.0 

120.0 

536P 

7 

12 

24.0 

288.0 

TOT 

= 408.0 

1042 

INSTRUCTOR  ASSIGNMENT  LISTING 
FIGURE  IV-2 
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BLDO  / RM  COURSE  CLASIZE  CONV  HRS/CONV  TOT  HRS  AVAIL  HRS 


FLTLHOR 

5 10W 

3 

24 

12.0 

2 

N- 30 106 

5100 

7 

6 

33.0 

1' 

N-30107 

5100 

7 

6 

27.0 

1! 

5698 

14 

6 

110.0 

61 

TOT  : 

: 8 

N-30108 

5698 

14 

6 

40.0 

2 

N-30I67 

536K 

10 

50 

20.0 

101 

N— 30 180 

461V 

2 

12 

42.0 

51 

536P 

7 

12 

48.0 

5 

TOT  : 

: 10 

N-30181 

510V 

7 

12 

30.0 

3! 

5 10W 

3 

24 

6.0 

V 

TOT  s 

* 51 

N 19 A 120 

5107 

8 

24 

40.0 

91 

N19A122 

5107 

8 

24 

20.0 

4! 

FACILITY  UTILIZATION  LISTING 

FIGURE 

IV-3 
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output  specifies  the  levels  to  which  each  Individual  resource  can  Increase  and 
decrease  before  It  Is  required  to  rerun  the  SCRR  model.  Also  Identified  Is  the 
Incremental  student  throughput  change  per  unit  Increase  or  decrease  up  to  those 
levels.  This  output  assumes  that  the  rest  of  the  problem  Is  unaltered;  that  Is, 
the  remaining  Input  data  are  left  constant,  and  the  solution  Is  adjusted  as 
necessary  to  maintain  feasibility  and  optimality. 

Resource.  An  example  of  the  LP  Optimal  Solution  and  Sensitivity  Analysis  - 
Resource  Data  output  Is  shown  In  Figure  IV-4.  The  first  column  Identifies  the 
resources  required  by  all  courses  Included  In  the  model  run.  Instructors  are 
Identified  by  the  first  eight  letters  of  their  last  name.  Facilities  are  Identi- 
fied by  building  and  room  number. 

Annual  Non-classroom  Hours.  Column  two  sunrmrlzes  the  total  hours  per  year  spent 
out  of  the  classroom.  Th?s  figure  Is  derived  for  each  Instructor  by  summing  the 
hours  for  each  of  the  following  13  activities  from  the  Instructor  activity  profile 

FLET  - Special  Fleet  Assistance 

CDEV  - Curriculum  Development/Task  Analysis 

EQMT  - Equipment/Training  Aid  Maintenance 

PREP  - Preparation  for  Instruction  and  Related  Duties 

MDMT  - Mllltary/Physlcal  Training/Other 

ADMN  - Supervision/Administration 

ANLV  - Annual  Leave 

SLIB  - Special  Liberty 

SKLV  - Sick  Leave 

FTRN  - Factory  Training 

ISCH  - Formal  Instructor/Supervisor  School 

BKIN  - In-service  Instructor  Training  ("break-in"  time) 

CTRN  - In-service  Instructor  Cross-training  Due  to  Low  Student  Load 

The  Instructor  activity  profile,  which  contains  the  hours  per  year  expended  on  the 
above  activities.  Is  based  on  historical  data  when  available.  When  historical 
data  Is  not  available,  the  activity  profile  Is  estimated  by  either  the  instructor 
or  supervisory  personnel.  The  above  13  activities  plus  the  14th  activity,  instruc 
tor  contact  time,  should  sum  to  2,080  hours  per  year  based  on  a 40-hour  work  week 
(40  hr/wk  x 52  wk/yr). 

Annual  Availability  Classroom  Contact  Hours.  Column  three  In  Figure  IV-4  denotes 
the  number  of  hours  per  year  each  resource  Is  available  to  fulfill  the  specified 
course  convening  requirements. 

Instructor  Availability.  The  Instructor's  availability  for  classroom  Instruction 
Is  also  derived  from  the  Instructor  activity  profile  data. 

Projecting  availability  based  on  historical  or  estimated  annual  hours  assumes 
that  all  activities  will  be  performed  In  approximately  the  same  ratio  during  the 
next  year. 
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ANNUAL 

ANNUAL 

ANNUAL 

REQMT 

RESOURCE 

throughput 

NON- 

AVAIL 

RE*MT 

VS 

UTIL. 

CHANGE 

LIMITING 

resource 

CLASSROOM 

HOURS 

CLASSROOM 

CONTACT 

HOURS 

CLASSROOM 

CONTACT 

HOURS 

AVAIL 

RATIO 

RANGE 

MINIMUM 

MAXIMUM 

PER  UNIT 
RESOURCES 
CHANGE 

VARIABLE 

OPRSFV 

838 

1042 

681 

65 

519.0 

681.0 

-0.688 

NO  CHG 

S10V 

HUNT 

838 

104? 

718 

68 

504.0 

1504.0 

-0.048 

-0.098 

N-30180 

PAUL 

STEWART 

838 

1042 

1040 

99 

480.0 

1040.0 

-0.400 

NO  CHG 

N19A120 

WARD 

838 

1042 

1042 

100 

880.0 

1042.0 

-0.196 
NO  CHG 

PAUL 

BPOWN 

839 

1.141 

1041 

100 

879.0 

1148.0 

-0.922 

0.922 

HUNT 

461V 

PAUL 

838 

1042 

1042 

100 

880.0 

1042.0 

-0.196 

0.196 

HUNT 

WARD 

STRE  IT 

838 

1042 

1040 

99 

480.0 

1040.0 

-0.400 

NO  CHG 

N19A120 

ROHLPING 

838 

1042 

1040 

99 

480.0 

1040.0 

-0.400 

NO  CHG 

N19A120 

BROOKS 

838 

1042 

1042 

100 

935.0 

1204.0 

-0.154 

0.154 

461V 

HUNT 

SPARKES 

838 

1042 

1040 

99 

480.0 

1040.0 

-0.400 

NO  CHG 

N19A120 

HARRISON 

838 

1042 

1042 

100 

432.0 

3120.0 

-0.167 

0.167 

5 10W 

PLTLMG* 

OBERLE 

87R 

1002 

1002 

100 

780.0 

1042.0 

-0.108 

0.108 

5698 

WAGNER 

WAGNER 

838 

1042 

1002 

96 

780.0 

1002.0 

-0.108 
NO  CHG 

OBERLE 

FLTLHC® 

2080 

693 

33 

288.0 

694.7 

-0.250 
NO  CHG 

HAR» I SON 

N-31106 

2080 

596 

28 

419.1 

862.9 

-0.093 

-0.417 

BROOKS 

510V 

N-3^107 

2080 

1333 

64 

1190.7 

1553.9 

-0.114 

-0.510 

BROOKS 

510V 

N-30 108 

2080 

308 

14 

240.0 

308.3 

-0.350 
NO  CHG 

OBERLE 

N-3*167 

2083 

1465 

70 

1116.1 

1464.5 

-0.320 

NO  CHG 

510V 

N-3E181 

2080 

2080 

100 

1866.0 

2404.0 

-0.048 

0.048 

461V 

HUNT 

N- 1 * 1 8 1 

2080 

707 

34 

504.0 

869.3 

-0.500 

-0.688 

HARRISON 

S10V 

N IRA  12  II 

2080 

2080 

100 

960.0 

2084.0 

-0.200 

0.200 

5107 

SPARKES 

N IRA  122 

2080 

1040 

50 

480.0 

1040.0 

-0.400 

NO  CHG 

N19A120 

LP  OPTIMAL  SOLUTION  AND  SENSITIVITY  ANALYSIS  - RESOURCE  DAT/ 

FIGURE  IV-4 
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The  model  user  should  be  aware  of  this  assunptlon  and  should  revise  avail- 
ability either  upward  or  downward  based  on  additional  Information  which  Is  not 
reflected  In  the  activity  profiles.  For  example.  Instructor  B has  been 
Involved  In  curriculum  development  an  average  of  20  hours  per  weex  for  a 6 month 
period.  During  that  time  period  he  has  Instructed  In  the  classroom  an  average 
of  10  hours  per  week.  The  annual  availability  projection  for  Instructor  B would 
be  500  hours.  However,  the  model  user  Is  aware  that  the  curriculum  development 
task  is  nearing  completion  and  that  Instructor  B will  soon  be  available  for 
classroom  Instruction  30  hours  per  week.  Instructor  B availability  should  be 
"dlfled  to  reflect  this  Information.  Thus  a more  realistic  availability  might 
be  1500  hours  per  year  (30  hours/week  X 50  weeks). 

aval  lability  Is  stored  as  a constant  In  the 
RAMIS  facility  file.  Current  data  for  most  classrooms  and  laboratories  reflect 
40  hours  per  week  for  52  weeks  or  2080  hours.  This  figure  should  be  modified 
by  the  model  user  to  reflect  additional  Information  relative  to  a specific 
facility.  For  example,  a trainer  may  require  preventive  maintenance  to  be  per- 
formed one  day  every  week,  reducing  Its  availability  to  32  hours  per  week,  or 
1664  hours  per  year. 


Annual  Requirement  Classroom  Contact  Hours.  The  annual  requirement  (Column  4) 
identifies  the  total  number  of  hours  per  year  each  resource  Is  required  to  achieve 
the  optimal  number  of  course  convenings.  (See  discussion  on  maximum  annual  con- 
venings In  course  data  section.) 

Requirement  Vs.  Availability  Ratio.  Requirement  vs.  availability  ratio  (Column  5) 
Is  the  ratio  of  required  hours  to  available  hours. 


Resource  Utilization  Range.  The  resource  utilization  range  (Column  6)  indicates 
tne  level  to  which  each  resource  may  be  Increased  or  decreased  without  rerunning 
the  SCRR  model.  Changes  In  resource  level  beyond  this  range  will  necessitate 
modifying  the  data  base  to  reflect  the  new  resource  levels,  and  rerunning  the 
SCRR  model.  Resource  utilization  changes  within  the  specified  range  will  affect 
the  value  of  the  optimal  solution  which  Is  stated  In  terms  gf  optimal  student 
throughput.  The  magnitude  of  this  effect  (either  positive  or  neqatlve)  Is 
Indicated  by  the  next  column,  throughput  change  per  unit  resource  change. 

An  example  will  Illustrate  the  above  explanation.  Instructor  Hunt  (from  Figure 
IV- 4)  utilization  range  (Column  6)  Is  504-1504  hours.  Hunt's  optimum  utilization 
level  (the  level  which  maximizes  school  student  throughput)  Is  718  hours.  If 
Hunt's  availability  were  to  decrease  below  504  hours,  the  Indicated  optimal 
solution  would  change.  From  the  Instructor  Assignment  Listing  (Figure  IV-2),  It 
Is  seen  that  Hunt  Instructs  course  461V.  Since  minimum  Instructor  requirements 
for  course  461V  are  504  hours  (42  hours  per  convening  X 12  convenings  per  year). 


TAEG  REPORT  NO.  36 


a decrease  below  504  hours  would  result  In  an  infeasible  solution.  Also,  Hunt’s 
utilization  cannot  be  extended  beyond  1504  hours  without  changing  the  optimal 
solution. 

The  resource  utilization  range  denotes  mathematical  feasibility  only.  Physical 
limitations  are  not  considered  in  the  LP  sensitivity  analysis  output.  Thus  the 
maximum  instructor  utilization  cannot  physically  exceed  2000  hours  (40  hours 
per  week  X 50  weeks  per  year),  even  though  the  top  end  of  the  utilization  range 
shown  In  column  6 may  be  greater. 

A utilization  decrease  In  the  range  504-718  would  decrease  the  Indicated  optimum 
student  throughput  by  0.048  (Figure  IV-4,  Column  7)  for  each  hour  of  decreased 
utilization.  On  the  other  hand,  should  utilization  be  Increased  beyond  the  718 
hour  level,  the  optimal  student  throughput  would  decrease  by  0.098  per  hour  of 
increased  utilization.  This  relationship  between  Instructor  utilization  and 
student  throughput  will  be  examined  In  detail  In  the  following  sections. 

Throughput  Change  Per  Unit  Resource  Change.  This  (Column  7)  Identifies  the 
cnange  in  the  optimal  student  throughput  which  will  result  from  a one  hour  change 
in  resource  utilization.  As  long  as  the  resource  utilization  level  remains  with- 
in the  indicated  utilization  range,  the  SCRR  model  need  not  be  rerun.  The  effect 
of  the  resource  change  can  be  determined  by  a simple  calculation  using  the 
throughput  change  per  unit  resource  change. 

The  sensitivity  analysis  output.  In  particular  the  throughput  change  per  unit 
resource  change  column,  assumes  a continuous  relationship  between  the  parameter 
representing  the  course  convenings  and  the  resource  requirements  parameter.  For 
example.  If  10  contact  hours  are  required  to  convene  a course  one  time.  It  is 
assumed  that  11  contact  hours  will  result  in  1.1  course  convenings,  15.5  contact 
hours  will  net  1.55  convenings,  and  20  contact  hours  will  provide  2 course  con- 
venings. Since  all  convenings  are  stated  In  terms  of  convenings  per  year,  it  is 
possible  to  Interpret  a fractional  convening  as  a course  which  convenes  prior  to 
the  end  of  the  year  but  does  not  conclude  until  the  following  year;  e.g.,  0.5 
convenings  Indicate  that  a course  Is  one-half  complete  at  the  end  of  the  year. 
However,  except  for  this  year-end  Interpretation,  fractional  convenings  have  no 
meaning  in  the  real  world.  Once  a course  Is  convened.  It  Is  always  completed. 
Therefore,  In  reality,  the  convening  resource  relationship,  although  linear.  Is 
not  continuous.  It  Is  Important  that  the  model  user  keep  this  fact  In  mind  when 
Interpreting  the  sensitivity  analysis  output. 

Another  example  from  the  LP  Optimal  Solution  and  Sensitivity  Analysis  - Resource 
Data  output  (Figure  IV-4)  will  be  used  to  demonstrate  the  significance  of  the 
throughput  change  per  unit  resource  change.  Instructor  Hunt’s  utilization 
range  Is  Indicated  to  be  504-1504  hours.  Hunt's  annual  availability  Is  equal 
to  1042  hours.  If  Hunt's  utilization  were  to  decrease  from  718  hours,  the  SCRR 
model  would  not  have  to  be  rerun  since  It  can  be  seen  from  the  throughput  change 
value  (Column  7)  that  student  throughput  will  decrease  by  0.048  for  each  hour  of 
decreased  Instructor  utilization.  However,  since  in  reality,  instructor  re- 
sources are  not  applied  or  reduced  on  an  hour  by  hour  basis,  the  time  consequence 
of  the  above  statements  will  be  examined.  A review  of  Figure  IV-2  Indicates  that 
Hunt  Instructs  Course  461V.  Forty-two  (42)  contact  hours  are  required  for  each 
461V  convening.  Therefore,  the  instructor  resource  will  be  used  In  42  hour 
Increments.  A 42  hour  decrease  In  Hunt's  utilization  will  decrease  total  student 
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throughput  by  2.0  (0.048  per  hour  X 42  hours).  This  is  a logical  result.  Re- 
moving one  461V  convening  from  the  schedule  will  reduce  total  student  through- 
put by  2 students,  since  the  average  class  size  for  461V  Is  2 students  (Figure 
IV-2,  Column  3). 

However,  a 42  hour  Increase  In  Hunt's  utilization  will  decrease  total  student 
throughput  by  4.1  students.  The  addition  of  one  461V  convening  would  be 
expected  to  Increase  student  throughput  by  2 students,  which  Is  course  461V 
average  class  size.  To  determine  why  an  additional  convening  will  decrease 
throughput,  first  examine  the  limiting  variable  column  of  Figure  IV-3.  In- 
structor Ward  Is  Indicated  opposite  the  -0.098  unit  throughput  change  figure. 

The  assignment  listing  (Figure  IV-2)  shows  that  Ward  instructs  courses  510G 
and  536P.  How  then  Is  Ward  related  to  Hunt?  Examination  of  the  Facility  utiliza- 
tion listing  (Figure  IV-3)  shows  that  both  461 V and  536P  utilize  Classroom  180 
In  Building  N-30,  which  Is  available  2080  hours  per  year.  The  LP  resource 
data  output  In  Figure  IV-4  shows  that  N-30180  Is  100  percent  utilized.  There- 
fore, the  only  way  to  Increase  461V  convenings  is  to  decrease  536P  convenings. 

The  net  effect  of  Increasing  461V  convenings  and  decreasing  536P  convenings 
Is  a reduction  In  total  student  throughput. 

The  minimum  Instructor  requirement  for  Course  461V  is  504  hours,  (42  hours  per 
convening  X 12  convenings  per  year).  The  difference  between  the  Hunt's  optimal 
utilization  level  of  718  hours  and  the  minimum  461V  requirements  Is  used  to 
increase  the  number  of  461V  convenings  since  Hunt  Is  not  qualified  to  instruct 
any  other  courses  (Figure  IV-2,  Column  2).  This  increases  student  throughput. 

The  ability  to  Increase  461V  convenings  is  meaningful  only  if  corresponding 
increases  In  demand  for  course  461V  can  be  projected.  If  no  increased  demand 
can  be  projected  for  461V,  then  461V  convenings  should  be  maintained  at  the 
current  level.  If  the  decision  Is  made  to  maintain  the  current  level  of  461V 
convenings,  then  Hunt  will  be  underutilized  538  hours  (1042  hours  availability 
less  the  504  hours  required  for  461V).  These  538  hours  could  then  be  devoted 
to  cross-training  Hunt  to  qualify  to  Instruct  additional  courses  (the  SCRR 
model  can  assist  In  the  Identification  of  courses  which  require  additional 
instructors)  or  to  performing  other  duties. 

Limiting  Variable.  This  column  (Figure  IV-4,  Column  8)  identifies  the  variable 
whose  status  would  change  as  a result  of  either  Increasing  or  decreasing  the 
Indicated  variable.  Resource  variables  have  two  status  levels:  (1)  when 

utilization  Is  equal  to  availability,  the  resource  Is  100  percent  utilized; 

(2)  when  utilization  Is  less  than  availability,  the  resource  Is  not  100  percent 
utilized.  Referring  to  Instructor  resource  Hunt,  the  Limiting  Variable 
column  Indicates  that  as  Hunt's  utilization  level  Is  decreased  from  718  hours 
to  504  hours,  the  utilization  of  Classroom  180  In  Building  N-30  (N-30180)  will 
change  from  status  1 (100  percent  utilized)  to  status  2 (not  100  percent  utilized). 
As  the  Instructor  resource  level  Is  decreased,  the  number  of  course  convenings 
must  also  decrease  since  these  two  variables  are  directly  proportional.  As 
convenings  decrease,  facility  utilization  must  also  decrease.  If  all  other  vari- 
ables are  held  constant. 

Increasing  Instructor  Hunt's  utilization  above  the  718  hour  level  will  cause  In- 
structor Ward  to  change  from  status  level  1 to  status  level  2.  Increasing  course 
461V  convenings  requires  a decrease  In  course  536P  convenings  Since  both  courses 
share  Classroom  180  which  Is  fully  utilized  at  the  Indicated  optimal  Instructor 
utilization  rate.  From  Figure  IV-2,  Ward  teaches  both  course  51 0G  and  536P. 
Decreasing  536P  convenings  will,  of  necessity,  lower  Ward's  annual  utilization. 
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LP  OPTIMAL  SOLUTION  AND  SENSITIVITY  ANALYSIS  - COURSE  DATA.  The  optimal  number 
of  annual  course  convenings  which  will  maximize  student  throughput  is  calculated 
by  a linear  programming  technique.  The  sensitivity  analysis  provides  information 
regarding  the  sensitivity  of  the  optimal  solution  to  changes  In  the  input  data, 
and  the  solutions  that  result  from  such  changes.  The  levels  to  which  the  class 
capacity  and  the  number  of  annual  convenings  can  increase  and  decrease  before 
the  optimal  solution  changes  are  contained  in  the  course  data  section  of  the 
LP  optimal  solution  and  sensitivity  analysis  output.  It  also  gives  the  incre- 
mental change  in  student  throughput  per  unit  increase  or  decrease  in  course 
convenings  up  to  these  levels.  As  with  the  resourse  data  output,  the  course 
data  sensitivity  analysis  assumes  that  variables  are  changed  individually  and 
that  the  rest  of  the  problem  remains  unaltered.  A sample  of  the  LP  Optimal 
Solution  and  Sensitivity  Analysis  - Course  Data  output  is  shown  in  Figure  IV-5. 


Course  CDP  Number.  All  courses  are  identified  by  a four  position  alphanumeric 
field  (Figure  IV-5,  Column  1). 


Maximum  Annual  Convenings.  This  column  (Column  2)  lists  the  optimal  number  of 
annual  course  convenings  for  each  course.  The  optimal  number  of  convenings 
is  that  number  of  convenings  which  maximizes  total  student  throughput  subject 
to  the  resource  limitations  identified  in  the  previous  output  section.  Any 
other  .combination  of  numbers  of  convenings  for  the  same  set  of  courses  is 
either  not  feasible  or  will  result  in  a lower  student  throughput.  As  an 
example,  the  optimal  number  of  convenings  for  course  461V  is  shown  to  be  17.1 
(from  Figure  IV-5).  Since  the  number  of  convenings  is  established  for  a one 
year  period,  fractional  convenings  can  be  interpreted  to  mean  that  the  course 
was  convened  but  not  completed  in  the  same  year.  Therefore,  17.1  convenings 
are  equivalent  to  18  convenings  with  the  last  class  convened  being  ten  percent 
complete  at  the  end  of  the  year. 


Current  Scheduled  Convenings . The  current  number  of  scheduled  convenings 
listed  in  this  column  (Column  3)  is  identical  to  the  number  of  convenings 
stored  for  each  course  In  the  DOTS  data  base.  This  number  Is  established  as 
a lower  bound  for  the  maximum  annual  convening  parameter  discussed  above.  In 
effect,  the  lower  bound  represents  an  additional  constraint  to  the  LP  problem. 
The  constraint  to  the  variable  representing  the  number  of  convenings  for  course 
461V  states  that  461V  convenings  must  be  greater  than  or  equal  to  12. 

Average  Class  Size.  Average  class  size  (Column  4)  is  calculated  by  multiplying 
class  capacity  by  historical  course  utilization.  Data  for  class  capacity  and 
course  utilization  are  stored  In  the  DOTS  data  base.  Class  capacities  are  based 
upon  training  considerations  such  as  student/instructor  ratio;  availability  of 
training  equipment,  workshop,  laboratory,  and  mock-up  facilities;  as  well  as 
physical  considerations  such  as  class  size.  Course  utilization  is  the  ratio 
of  actual  student  enrollments  to  class  capacity. 

The  average  class  size  figure  serves  two  functions.  (1)  Average  class  sizes 
are  the  LP  objective  function  coefficients.  Student  throughput  Is  established 
by  multiplying  the  average  class  size  of  each  course  by  the  optimal  number  of 
convenings  calculated  for  that  course.  (2)  All  instructor  requirements  are 
calculated  based  on  average  class  size.  For  example,  assume  that  a course  has 
a 12:1  student/instructor  ratio  for  a 10  hour  segment  of  the  course.  The  class 
capacity  is  144  students.  If  the  course  utilization  were  100  percent,  12  in- 
structors would  be  required  for  that  10  hour  course  segment  for  a total  of 
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6.1 
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18.1 
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3.9 

BROOKS 
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20.8 

510V 
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73.2 
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LP  OPTIMAL  SOLUTION  AND  SENSITIVITY  ANALYSIS  - COURSE  DATA 

FIGURE  IV-5 
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120  contact  hours.  However,  if  the  course  utilization  were  50  percent,  the 
instructor  requirement  would  drop  to  six  for  the  same  portion  of  the  course 
for  a total  of  only  60  contact  hours. 

Annual  Convenings  Range.  The  annual  convenings  range  (Column  5)  indicates  the 
upper  and  lower  limits  for  the  number  of  annual  convenings  parameter.  The 
current  LP  solution  remains  optimal  for  all  values  of  the  convenings  parameter 
within  this  range.  However,  as  the  number  of  annual  convenings  Is  varied  from 
the  indicated  optimal,  the  maximum  student  throughput  will  either  increase  or 
decrease  by  the  factor  printed  in  the  next  column,  throughout  change  per  course 
convening  change.  The  specified  lower  bound,  which  is  the  number  of  current 
scheduled  convenings,  is  ignored  in  calculating  the  range  of  annual  course  con- 
venings. For  example,  the  range  of  annual  convenings  for  course  536K  is  55.8- 
73.2.  The  solution  which  maximizes  student  throughput  is  73.2  convenings.  The 
current  number  of  scheduled  convenings  is  50  per  year.  If  10  convenings  less 
than  the  optimal  73.2  were  scheduled,  the  total  student  throughput  would  decrease 
by  64  (Column  6).  Note  that  the  student  throughput  drops  only  by  6.4  per  con- 
vening, in  spite  of  the  fact  that  536K  class  size  is  10.  From  Figure  IV-2,  it 
is  seen  that  course  536K  and  510V  utilize  the  same  instructor.  Therefore,  as 
536K  convenings  are  decreased,  additional  convenings  of  510V  can  be  scheduled. 

But  since  510V  uses  more  Instructor  resource  per  convening  and  has  a smaller 
class  size,  less  convenings,  each  with  a smaller  class  size,  can  be  scheduled 
with  the  resources  made  available  by  reducing  536K  convenings. 

The  annual  convenings  range  (Figure  IV-5,  Column  5)  also  provides  an  indication 
of  the  effect  of  class  size  on  the  LP  optimal  solution.  The  current  solution 
will  remain  optimal  for  class  sizes  in  the  range  noted  by  the  class  size  range 
(Coldtnn  7).  As  the  class  size  drops  below  the  capacity  range  minimum,  the 
optimal  number  of  convenings  will  decrease  to  the  convening  range  minimum,  if 
that  quantity  is  greater  than  the  current  number  of  scheduled  convenings.  If 
the  convening  range  minimum  is  less  than  the  current  scheduled  convenings,  then 
the  optimal  number  of  course  convenings  will  be  set  equal  to  the  current  scheduled 
convenings.  For  example,  the  optimal  number  of  convenings  for  course  536P  is  28.4 
based  on  a class  size  of  7 students.  Should  the  class  size  drop  below  2.3  (class 
size  range  minimum),  the  optimal  number  of  convenings  would  decrease  to  21.6  (the 
annual  convening  range  minimum). 

The  optimal  number  of  annual  convenings  for  course  510G  is  18.0  for  a class  size 
of  7.  If  the  class  size  drops  to  3.9  or  less,  the  optimal  convenings  for  that 
course  will  decrease  to  the  annual  convening  range  minimum  (12.7),  rather  than 
the  current  scheduled  convenings  (6.0).  The  student  throughput  for  the  new 
optimal  solution  will  decrease  by  16.4  (decrease  of  5.3  convenings  X 3.1  student 
throughput  decrease  per  convening).  * 

Throughput  Change  Per  Course  Convening  Change.  This  column  (Column  6)  Indicates 
the  change  in  tne  optimal  student  throughput  which  will  result  from  a change  in 
the  number  of  course  convenings.  As  long  as  the  number  of  course  convenings 
remains  within  the  range  Indicated  by  the  annual  convening  range  column,  the 
SCRR  model  need  not  be  rerun.  The  effect  of  a change  In  the  number  of  convenings 
can  be  determined  by  a simple  calculation  using  the  throughput  change  per  course 
convening  change.  Again,  referring  to  Figure  IV-5  (Column  6),  If  course  510V 
convenings  were  to  Increase  from  the  12  per  year  optimal  to  13  per  year,  the 
total  student  throughput  would  decrease  by  20.7.  From  Figure  IV-2,  courses 
510V  and  536K  share  the  same  Instructor  (Brown).  Increasing  510  convenings  from 
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. 12.0  to  13.0  shifts  30  hours  of  Brown's  time  from  536K  to  510V.  This  30  hour 

shift  increses  510V  convenings  by  1.6,  but  reduces  possible  536K  convenings 
by  3.2  (30  * 9.3  hours  per  536K  convening).  Therefore,  student  throughput 
I will  drop  even  though  510V  convenings  are  Increased. 

f Class  Size  Range.  This  column  (Column  7)  indicates  the  range  of  class  sizes 

for  which  the  indicated  optimal  number  of  course  convenings  will  remain  unchanged. 

A decrease  In  class  size  to  below  the  class  size  minimum  will  cause  the  optimal 
number  of  convenings  to  decrease  to  either  the  number  of  current  scheduled  con- 
venings or  the  convening  range  minimum,  whichever  Is  greater.  An  increase  in 
class  size  to  beyond  the  class  size  range  maximum  will  increase  the  number  of 
course  convenings  to  the  convening  range  maximum.  Using  course  461V  from 
Figure  IV-5  as  an  example.  If  the  class  size  were  increased  from  the  current 
level  of  2 to  6.1  or  more,  the  optimal  number  of  convenings  would  increase  to 
24.8  per  year  from  the  current  level  of  17.1. 

Limiting  Variable.  This  column  (Column  8)  identifies  the  variable  which  limits 
the  convenings  range  and  whose  value  will  change  as  a result  of  a variation  from 
the  optimal  convening  level  within  the  course  convening  range.  Several  examples 
from  Figure  IV-5  will  clarify  the  significance  of  this  column.  As  the  number 
of  course  461V  convenings  are  decreased  from  the  indicated  optimum,  N-30180 
utilization  will  decrease  from  the  100  percent  shown  in  the  SCRR  output.  This 
relationship  is  obvious  since  a decline  in  convenings  will  result  in  lower 
resource  requirements. 

As  course  536  convehings  decrease  from  the  optimal,  course  510V  convenings  will 
increase  from  the  Current  Scheduled  Convenings  level.  Instructor  Brown  is 
shared  by  courses  510V  and  536K.  A decrease  in  536K  convenings  will  increase 
the  amount  of  resources  available  for  course  510V.  Decreasing  536K  convenings 
will  reduce  total  student  throughput  by  6.4  per  convening  deleted. 

SCRR  MODEL  OPERATIONAL  PROCEDURES 

This  section  provides  detailed  procedures  for  executing  the  SCRR  model,  generat- 
ing instructor  assignment  listings  and  facility  utilization  listings,  modifying 
resource  availability,  and  modifying  course  parameters  which  directly  impact  instruc- 
tor requirements.  Each  of  these  procedures  is  initiated  by  keying  a single  word  into 
the  system  via  the  terminal  keyboard.  Procedures  which  require  the  user  to  input 
data  are  interactive. 

Figure  IV-6  is  an  overview  of  the  SCRR  model  procedures  which  can  be  invoked  to 
perform  the  functions  noted  above.  As  indicated,  all  SCRR  model  input  data  are 
calculated  based  on  the  contents  of  the  DOTS  Master  data  bass.  No  data  inputs 
are  required  from  the  user.  Once  the  model  has  been  executed,  the  user  has  the 
option  either  to  review  the  model  output  directly  or  to  generate  an  instructor 
assignment  listing  which  details  each  instructor's  requirements  by  course.  Upon 
reviewing  the  model  output,  the  user  may  then  elect  to  either  modify  the  avail- 
ability of  one  or  more  resources,  to  modify  course  parameters  which  determine 
instructor  requirements,  or  to  fix  the  number  of  course  convenings  at  the 
current  level.  After  the  input  data  have  been  modified  by  any  of  the  above 
means,  the  model  is  then  reexecuted. 
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SELECT  ORGANIZATIONAL  ELEMENT  TO  BE  ANALYZED.  Prior  to  executing  the  SCRR 
model,  the  user  must  identify  the  organizational  element,  i.e.,  division, 
department,  activity,  etc.,  for  which  the  model  Is  to  be  run.  The  activity/ 
department  code  is  a four  digit  alphanumeric  code  which  identifies  the 
activity  and  the  organization  within  the  activity  (school,  division,  depart- 
ment, etc.)  which  conducts  the  course.  The  first  position  is  coded  as  follows 

4 - NWTGP 

5 - FI TCP AC 

6 - FLETRACEN 

7 - FCDSTCP 

8 - FASWTCP 

The  remaining  three  positions  will  contain  some  alphanumeric  designation  which 
identifies  the  organizational  unit.  The  activity/department  code  is  stored 
in  the  DOTS  Master  data  base  under  the  fieldname  SCH. 

To  specify  the  activity/department  code  for  the  current  SCRR  model  run,  type: 

SETSCH 


The  system  will  respond: 


EXECUTION: 

ENTER  4 DIGIT  SCHOOL  CODE: 

At  this  point  the  user  must  enter  four  characters.  In  the  event  that  the 
school  code  Is  a two  or  three  digit  code,  i.e.,  6A  or  430,  the  one  or  two 
right-hand  positions  must  be  dollar  signs  ($),  i.e.,  6A$$  or  430$. 

The  dollar  sign  is  also  a mask  character  and  is  used  in  the  SETSCH  reply  to 
select  all  data  associated  with  a higher  organizational  unit.  For  example, 
if  the  school  codes  for  activity  8 were  constructed  as  follows: 

821,  822,  823,  861,  862,  863 

to  select  data  for  organization  861,  enter  861$.  To  select  all  data  for 
organization  86  (which  will  include  861,  862  and  863)  enter  86$$.  To  select 
all  data  for  the  total  activity  (which  will  include  821,  822,  823,  861,  862 
and  863)  enter  8$$$. 

SCRR  MODEL  EXECUTION.  The  SCRR  model  requires  a minimum  core  size  of  320K. 

To  ensure  that  this  requirement  Is  met,  type: 

SET  CORE  320 

All  terminal  entries  should  be  followed  by  a carriage  return.  The  requirement 
to  depress  the  carriage  return  after  each  line  of  terminal  entry  will  not  be 
repeated  In  the  SCRR  Operational  Procedures.  The  system  will  respond  with: 

CSS. 300  06/15/76 
XX. XX. XX 

where  XX. XX. XXI s the  tlme-of-day  in  hours,  minutes  and  seconds. 


IV- 3k 


1 


I 
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To  execute  the  SCRR  model,  type: 

SCRR 

The  SCRR  executive  will  retrieve  the  required  data  elements  from  the  three 
DOTS  Master  data  base  files,  make  additional  computations,  format  resulting 
data  for  linear  programming  (LP)  optimization,  perform  the  LP  optimization, 
and  format  the  LP  results  for  output.  The  system  will  respond  with  the 
following  message: 

THIS  PROGRAM  PERFORMS  THE  LINEAR  PROGRAMMING  OPTIMIZATION 
OF  THE  RESOURCE  DATA  CURRENTLY  STORED  IN  THE  MASTER  DATA  FILES 
FOR  THE  DEPARTMENT  IDENTIFIED  THROUGH  EXECUTION  OF  THE  SETSCH 
COMMAND.  NO  FURTHER  USER  INTERVENTION  WILL  BE  REQUIRED. 

DO  YOU  WISH  TO  PROCEED?  (Y/N) 


At  this  point,  the  user  should  verify,  by  checking  prior  terminal  entries, 
that  the  SETSCH  command  has  been  invoked  and  the  desired  activity/department 
code  has  been  entered.  If  nothing  has  been  overlooked  and  the  user  wishes 
to  proceed,  type: 

Y 


\ 


If  the  user  wishes  to  terminate  model  execution  at  this  point,  type: 

N 


The  system  will  respond  with  the  time-of-day  message. 

If  the  proceed  option  is  answered  affirmatively,  the  system  will  respond  after  a 
short  pause  with  the  following  message: 


MPS  III,  ON-LINE  VERSION,  READY. 
MPS  COMMAND: 

MPS  TERMINATING. 

TO  PRINT  SCRR  MODEL  OUTPUT,  TYPE: 
P SCRR  OUTPUT 


The  MPS  messages  Indicate  first  that  the  Mathematical  Programming  System  soft- 
ware package  has  been  attached  to  the  operating  system,  that  the  LP  optimization 
calculations  are  being  performed,  and  finally  that  the  LP  segment  of  the  model 
is  complete. 
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The  SCRR  executive  does  not  automatically  print  the  model  output.  As  the 
message  Indicates,  the  output  Is  printed  by  typing: 

P SCRR  OUTPUT 

The  SCRR  output  Is  contained  on  a permanent  file.  Printing  the  output  does  not 
erase  the  file.  The  file  SCRR  OUTPUT  will  exist  and  can  be  printed  until  the 
SCRR  model  Is  reexecuted.  Reexecution  of  the  model  will  cause  the  new  output 
to  be  written  on  the  file  SCRR  OUTPUT. 

A sample  SCRR  output  file  follows: 


ANNUAL 

ANNUAL 

ANNUAL 

REOMT 

RESOURCE 

THROUGHPUT 

NON- 

AVAIL 

REOMT 

VS 

UTIL. 

CHANGE 

LIMITING 

Rf  SOURCE 

CLASSROOM 

CLASSROOM 

CLASSROOM 

AVAIL 

RANGE 

RER  UNIT 

VARIABLE 

HOURS 

CONTACT 

CONTACT 

RATIO 

MINIMUM 

RESOURCES 

HOURS 

HOURS 

MAVIMUM 

CHANGE 

oorsfv 

838 

1082 

681 

65 

519.0 

-0.688 

510V 

681.0 

NO  CHG 

HUNT 

838 

104? 

718 

68 

504.0 

-0.048 

N-30110 

1504.0 

-0.098 

RAUL 

STEWART 

838 

1042 

1040 

99 

480.0 

-0.400 

N19A120 

1040.0 

NO  CHG 

WARD 

838 

1042 

1042 

100 

880.0 

-0.196 

RAUL 

1042.0 

NO  CHG 

BROWN 

839 

1041 

1041 

100 

879.0 

-0.R22 

HUNT 

1148.0 

0.422 

461V 

PAUL 

838 

1042 

104} 

100 

880.0 

-0.146 

HUNT 

1042.0 

0.196 

WARD 

STREIT 

838 

1042 

1040 

99 

480.0 

-0.400 

N19A120 

1040.0 

NO  CHG 

ROUL  RING. 

838 

1042 

1040 

99 

480.0 

•0.400 

N19A120 

1040.0 

NO  CHG 

BROOKS 

838 

1042 

104} 

100 

935.0 

-0.154 

461V 

1204.0 

0.154 

HUNT 

SRARKES 

838 

1042 

1040 

99 

480.0 

-0.400 

N19A120 

HARR  I SOty. 

-^1042 

1042-^ 

- 1040.1 

NO  CMC 
-0.167  . 



TAEG  REPORT  NO.  36 


ANNUAL 

THROUGHPUT 

CLASS 

COURSE 

MAXIMUM 

CURRENT 

AVERAGE 

CONVEN 

CHANGE 

SIZE 

LIMITING 

cor  no. 

ANNUAL 

CONVEN 

SCHEDULED 

CONVEN 

CLASS 

SIZE 

RANGE 

MINIMUM 

MAXIMUM 

PER  COURSE 
CONVEN 
CHANGE 

RANGE 

MINIMUM 

MAXIMUM 

VARIABLE 

461V 

17.1 

12 

2 

8.8 

24.8 

-2.8 

-4.1 

8.8 

6.1 

N-38188 

WARD 

5 1IG 

18.1 

6 

7 

12.7 

26.1 

-3.1 

-13.8 

3.9 

28.8 

BROOKS 

518V 

511V 

12.8 

12 

7 

8.4 

17.4 

28.7 

-28.7 

8.8 

27.7 

461V 

HUNT 

518W 

57.9 

24 

3 

8.8 

57.9 

-3.8 
NO  CHG 

8.8 

♦ INF 

HARRISON 

5117 

52.1 

24 

8 

8.8 

52.8 

-8.8 
NO  CHG 

8.8 

♦ INF 

N-19A128 

536K 

73.2 

51 

18 

55.8 

73.2 

-6.4 
NO  CHG 

3.6 
♦ INF 

518V 

536P 

28.4 

12 

7 

21.6 

32.8 

-4.7 

-3.7 

2.3 

18.7 

WARD 

BROOKS 

5698 

7.7 

6 

14 

8.8 

7.7 

-14.8 
NO  CHG 

8.8 

♦ INF 

OBERLE 

INSTRUCTOR  ASSIGNMENT  LIFTING  GENERATION.  To  generate  a detailed  Instructor 
assignment  listing  for  all  Instructors  appearing  In  the  SCRR  OUTPUT,  type: 

ASSIGN 

The  system  will  respond: 

EXECUTION: 

TO  PRINT  INSTRUCTOR  ASSIGNMENTS,  TYPE: 

P ASSIGN  LISTING 

To  print  the  assignment  listing,  type: 

P ASSIGN  LISTING 

As  with  the  SCRR  OUTPUT,  the  ASSIGN  LISTING  Is  a permanent  file  and  can  be 
printed  as  often  as  Is  required  until  the  ASSIGN  executive  is  repeated,  at 
which  time  the  old  listing  file  will  be  replaced  by  the  new  listing  file. 

NOTE:  The  ASSIGN  executive  should  not  be  Invoked  until  either  the  SCRR  model 
has  been  executed  or  the  executive  RAMSCRR  has  been  executed. 
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To  execute  RAMSCRR,  type: 

RAMSCRR 

after  executing  SETSCH.  RAMSCRR  extracts  the  data  required  to  execute  ASSIGN 
from  the  DOTS  Master  data  base.  To  execute  the  SCRR  model  after  executing 
RAMSCRR,  type: 

SCRR3 


FACILITY  UTILIZATION  LISTING  GENERATION.  To  generate  a detailed  facility 
utilization  listing  for  all  facilities  appearing  in  the  SCRR  OUTPUT,  type: 


FACILITY 

The  system  will  respond: 

EXECUTION: 

TO  PRINT  FACILITY  LISTING,  TYPE: 

P FACILITY  LISTING 

To  print  the  facility  listing,  type: 

P FACILITY  LISTING 

As  with  the  SCRR  OUTPUT  and  ASSIGN  LISTING,  the  FACILITY  LISTING  Is  a permanent 
file  and  can  be  printed  as  often  as  is  required  until  the  FACILITY  executive 
is  repeated.  When  the  FACILITY  executive  is  executed  the  previous  listing 
file  stored  will  be  replaced  by  the  current  listing  file. 

NOTE:  The  FACILITY  executive  should  not  be  Invoked  until  either  the  SCRR 
model  has  been  executed  or  the  executive  RAMSCRR  has  been  executed.  To  execute 
RAMSCRR,  type: 


RAMSCRR 
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after  executing  SETSCK.  RAMSCRR  extracts  the  data  required  to  execute  FACILITY 
from  the  DOTS  Master  data  base.  To  execute  the  SCRR  model  after  executing 
RAMSCRR,  type: 


SCRR3 


A sample  facility  utilization  listing  is  shown  below: 


BLDO  / RM 

COURSE 

CLASIZE 

CONV 

HRS/CONV 

TOT  HRS 

AVAIL  HRS 

FLTLHOR 

510W 

3 

24 

12.0 

288.0 

2080 

N- 30 106 

5100 

7 

6 

33.0 

198.0 

2080 

N-30107 

5100 

7 

6 

27.0 

162.0 

5698 

14 

6 

110.0 

660.0 

TOT 

= 822.0 

2080 

N-30108 

5698 

14 

6 

40.0 

240.0 

2080 

N-30167 

536K 

10 

50 

20.0 

1000.0 

2080  j 

N-30180 

461V 

2 

12 

42.0 

504.0 

536P 

7 

12 

48.0 

576.0 

TOT 

= 1080.0 

2080 

N-30181 

510V 

7 

12 

30.0 

360.0 

5 10W 

3 

24 

6.0 

144.0 





— 24 — - 

^^TOT^ 

^^2080 

RESOURCE  AVAILABILITY  MODIFICATION.  To  modify  the  availability  of  an  Instructor 
or  a facility,  type: 

MODAVAIL 


The  system  will  respond: 


EXECUTION: 

ENTER  NAME  OF  INSTRUCTOR  OR  FACILITY: 

At  this  point  the  user  should  enter  the  name  of  an  Instructor  or  a facility 
(building/room)  exactly  as  It  appears  In  the  SCRR  OUTPUT.  The  system  will 
respond: 

ENTER  CURRENT  AVAILABLE  HOURS,  NEW  AVAILABLE  HOURS: 


TAEG  REPORT  NO.  36 


The  user  should  now  enter  the  number  of  available  hours  shown  In  the  SCRR  OUTPUT 
for  the  Instructor  or  facility  named  above,  followed  by  either  a comma  or  a 
space,  and  the  new  availability  figure.  The  number  of  available  hours  must  be 
less  than  9,999.  The  system  will  then  respond  either: 

AVAIL  ID  1 XXXX  ID  2 XXXX 

or 

AVAIL  ID  1 XXXX 

(where  either  ID  1 or  ID  2 Is  the  ID  number  associated  with  the  name  entered 
above  and  XXXX  Is  the  current  availability)  followed  by  either: 

AVAIL  ID  1 XXXX  ID  2 AAAA 

or 

AVAIL  ID  1 AAA 

(where  AAAA)  Is  the  new  availability). 

If  the  name  Is  not  entered  correctly,  the  system  will  respond: 

EOF: 

NO  CHANGE 

If  the  current  available  hour  figure  is  not  entered  correctly,  the  system  will 
respond  either: 

AVAIL  ID  1 XXXX  ID  2 XXXX 


followed  by: 


AVAIL  ID  1 XXXX 


NO  CHANGE 


After  the  status  of  the  first  availability  change  request  has  been  printed,  the 
system  will  respond: 

ANY  MORE  CHANGES?  (YES/NO) 

If  the  respond  Is  YES,  the  program  will  recycle  and  again  request  the  name  of 
the  resource  to  be  changed.  If  the  response  Is  NO,  the  system  will  respond: 

CHANGES  TO  AVAILABLE  HOURS  HAVE  BEEN  INCORPORATED. 

TO  RERUN  SCRR  MODEL,  TYPE:  . SCRR1 

NOTE:  The  MODAVAIL  executive  should  not  be  Invoked  until  after  the  SCRR  model 
has  been  executed. 


CONSTANT  COURSE  CONVENINGS/OPTIMAL  COURSE  CONVENINGS  MODIFICATION.  The  SCRR 
model  can  be  executed  under  two  conditions:  (1)  maximize  the  number  of  course 
convenings  based  on  the  level  of  resources  available;  or  (2)  specify  the  number 
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of  course  convenings  to  be  constant  at  the  current  number  of  convenings 
scheduled.  Executing  the  SCRR  model  under  condition  (2)  will  provide  the 
user  with  an  accurate  sunn ary  of  current  resource  utilization. 

To  execute  the  SCRR  model  under  condition  (1)  as  explained  above,  type: 

MAXCONV 

The  system  will  respond: 

DATA  MODIFIED  TO  OPTIMIZE  COURSE  CONVENINGS. 

TO  RERUN  THE  SCRR  MODEL,  TYPE:  SCRR1 

To  execute  the  SCRR  model  under  condition  (2)  as  explained  above,  first  type: 

FIXCONV 

The  system  will  respond: 

COURSE  CONVENINGS  FIXED  AT  THE  CURRENT  LEVEL. 

TO  RERUN  THE  SCRR  MODEL,  TYPE:  SCRR1 

As  directed  In  th*»  above  message,  to  rerun  the  SCRR  model  after  Invoking  either 
MAXCONV  OR  FIXCONV,  type: 

SCRR1 

After  the  system  response  Is  printed,  type: 

P SCRR  OUTPUT 

to  print  the  SCRR  model  output. 

NOTE:  FIXCONV  or  MAXCONV  should  not  be  Invoked  until  after  the  SCRR  model  has 

been  executed. 


•* 

k 

i 

I 


COURSE  PARAMETER  MODIFICATION.  To  modify  course  utilization,  class  capacity, 
or  course  length,  type: 

REQMT 

The  system  will  respond  with  the  following  message: 

DO  YOU  WISH  INSTRUCTIONS  TO  BE  PRINTED?  (YES/NO) 


If  the  user  responds  NO,  no  directions  will  be  printed.  However,  requests  for 
data  entry  will  be  printed.  If  the  user  responds  YES,  the  following  message 
will  be  printed: 


1 
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r t 


H 


■ ♦ 


I,*  j 
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THIS  PROGRAM  PROVIDES  THE  CAPABILITY  TO  MODIFY  COURSE 
UTILIZATION,  CLASS  CAPACITY,  AND  COURSE  LENGTH  EXPRESSED 
IN  CONTACT  HOURS  TO  ASSESS  THE  IMPACT  ON  TOTAL  INSTRUCTOR 
REQUIREMENTS. 

* TO  INCREASE  UTILIZATION  20  ENTER:  .20 

* TO  DECREASE  UTILIZATION  10  ENTER:  -.10 

* IF  NO  CHANGE  IS  DESIRED  ENTER:  0 
ENTER  UTILIZATION  DELTA 

The  user  should  enter  the  utilization  delta  as  requested.  The  utilization 
percentage  for  all  courses  taught  by  the  organization  Identified  In  the 
SETSCH  executive  will  be  modified  by  the  utilization  delta  entry.  For  example, 
If  the  current  utilization  of  two  courses  Is  .40  and  .60,  and  the  utilization 
delta  entered  Is  .5,  the  new  course  utilizations  will  be  .60  and  .90. 

After  the  course  utilization  delta  has  been  entered,  the  system  will  respond: 

* TO  INCREASE  CLASS  CAPACITIES  20*  ENTER:  .20 

* TO  DECREASE  CLASS  CAPACITIES  10*  ENTER:  -.10 

* IF  NO  CHANGE  IS  DESIRED  ENTER:  0 
ENTER  CLASS  CAPACITY  DELTA: 

* TO  INCREASE  COURSE  LENGTH  20*  ENTER:  .20 

* TO  DECREASE  COURSE  LENGTH  10*  ENTER:  -.10 

* IF  NO  CHANGE  IS  DESIRED  ENTER:  0 
ENTER  COURSE  LENGTH  DELTA: 

The  class  capacity  and  course  length  deltas  should  be  entered  as  requested. 
After  the  last  data  entry  the  system  will  respond: 

REQUESTED  CHANGES  HAVE  BEEN  INCORPORATED. 

TO  RERUN  SCRR  MODEL,  TYPE:  SCRR2 

As  the  above  message  Indicates,  to  rerun  the  SCRR  model  after  executing 
REQMT,  type:  * 


SCRR2 

NOTE:  The  REQMT  executive  should  not  be  Invoked  until  after  the  SCRR  model 
has  been  executed. 


ADDITIONAL  DATA  MODIFICATION.  To  modify  SCRR  Input  data  not  specifically 
addressed  In  either  the  MODAVAIL  executive  or  the  REQMT  executive  requires  the 
use  of  the  VP /CSS  edit  command.  The  edit  command  allows  the  user  to  add. 
delete  or  change  data  stored  in  any  data  file.  The  user  should  refer  to  NCSS 
form  number  108-4  effective  for  release  CSS. 300  for  detailed  directions  on  use 
of  the  edit  command.  The  SCRR  model  Input  data  Is  stored  In  the  file  SCRR  DATA. 

To  modify  any  data  contained  In  SCRR  DATA,  type: 


I 


EDIT  SCRR  DATA 
The  system  will  respond: 


L 


EDIT: 
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An  annotated  listing  of  a SCRR  DATA  file  is  shown  below: 


COP 

NUMBER 


NAME 

HOWS 

N THRUPUT 
L 22034894 
L 24 354049 
L 25260415 
L 26256769 
L 27242371 
L 35032870 
L 35532423 
L 35840358 
L 45066352 
L 46368554 
L 47942474 
L 51234427 
L 52754971 

L RLTLHC.R 

L n- 30106 
L N-30107 
L N-  30 108 
L N-30167 
L N-30180 
L N-30181 
L N19A120 
L N 1 9 A 1 2 2 
COLUMNS 
f 461V 


COP 

NUMBER 


AVAIL 
AVAIL 
AVAIL 
AVAIL 
AVAIL 
AVAIL 
AVAIL 
AVAIL 
AVAIL 
AVAIL 
AVAIL 
AVAIL 
BOUNDS 
EX  SCMCD 
EX  SC  MED 
EX  SC MED 
EX  SC MED 
RX  SCMED 
RX  SC  MED 
RX  SCHED 
RX  SCMEO 
ENDATA 


FTCNORVA 


• INST  ID  NUMBER 


FACIL  BLOO/RM  NUMBER 


24354049 

N-30180 

THRURt/T 

26236760 

45066352 

N-30106 

THRUPUT 

27242371 

N-30181 

THRUPUT 

47942474 

RLTLMOR 

THRUPUT 

25260415 

35840338 

N19A120 

THRUPUT 

22034894 

45066352 

N-30167 

THRUPUT 

26256760 

N-30180 

THRUPUT 

51234427 

N-30107 

THRUPUT 

22034894 

25260415 

27242371 

35532423 

45066332 

47942474 

32754971 

RlTLMOR 

N-30107 

N-301f7 

N-30181 

N19A122 


■INSTREO'O 


1 FACILITY 
RED'D 


y.  INST  RED'D 

FACILITY 

RED'D 


FACILITY 


COP  NUMBER 


35032870 

N-30107 


REO*D  CONTACT  HR/CONVENINC: 
i — INST  ID  243B408S 
Ip  FACILITY  N-30180 

AVO  CLASS 

SIZE  (COP 461V)  U.t 


12.0 

N-30181 

3 

20.0 

35532423 

20.0 

46368554 

40.0 

• 

N 19 A 122 

9.3 

27242371 

9.3 

20.0 

10 

24.0 

35032870 

40.0 

7 

130.0 

32734971 

110.0 

N-30108 

14 

1042 

24334049 

1042 

26236769 

1041 

35032870 

1042 

35840338 

1042 

46368334 

1042 

51234427 

1042 

2080 

N-30106 

2080 

N-30108 

2080 

N-30180 

2080 

N19A120 

2080 

12 

6 

12 

24 

- INST  REO'D 


FACILITY 

RED’D 


REVDCONTACT  HR 
PER  CONVENING: 

6.0 

r-  INST  ID  36632423 

20.0  -» 

20.0  INST  10 46366864 

20.0  -| 

L-  FACILITY  NI8A122 
9.3 


AVG  CLASS 

SIZE  ICOP 6107)  26.0 


■ FACILITY 


1042 

ANNUAL  CONTACT 
HR  AVAILABILITY 

1042 

INST  ID  243B4086 

1042 

1047 

1041 

1002 

2010 

2080 

ANNUAL 

2010 

AVAILABILITY 

2010 

FACILITY  N -30160 

NUMBER  OF  CONVENINGS/YEAR 
CDP  S107 
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Two  examples  of  possible  changes  to  SCRR  DATA  are  presented  below. 
EXAMPLE  1 - Delete  course  5107 


21.52.04  EDIT  SCRR  DATA 
EDIT: 

LOCATE  / 5 1 0 7 / 


5107 

2526*415 

20.0 

35532423 

20.0 

DELETE  4 
LOCATE  / 5 1 0 7 / 

FX  SCHED 

5107 

24 

DELETE  1 
FILE 

21.55.17 


EXAMPLE  2 - Change  Instructor  contact  hour  mix  for  course  5107. 


21.55.30  EDIT  SCRR  DATA 
EDIT: 

LOCATE  75107/ 


5107 

CHANGE  720 

25260415 

.0/35.0/ 

20.0 

35532423 

20.0 

5107 

DOWN 

25260415 

35.0 

35532423 

20.0 

5107 

J5840J58 

20.0 

46368554 

20.0 

CHANGE  /4 

20.0/4 

5 

.0/ 

51*7 

FILE 

21.59.54 

35840558 

20.0 

46368554 

5.0 

• JKrtf 
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INSTRUCTOR  REQUIREMENTS  COMPUTATION 

To  generate  instructor  requirements  based  on  the  computational  technique  outlined 
in  CNTECHTRAINST  5311. 1A  CH-1  and  the  data  currently  stored  in  the  DOTS  data  files, 
type: 


I COMP 


The  system  will  respond: 

TO  CALCULATE  INSTRUCTOR  REQUIREMENTS  FOR: 

***A  SINGLE  COURSE  TYPE:  CDP 

***ALL  COURSES  WITHIN  A DIVISION  OR  DEPT  TYPE:  SCH 

if  CDP  is  entered  the  system  will  respond: 

ENTER  COURSE  CDP  NUMBER: 

Upon  entry  of  the  CDP  number  the  system  will  respond: 

TO  CHANGE  THE  ANNUAL  DEMAND  FOR  COURSE  XXXX  FROM  THE  CURRENT 
LEVEL  AS  STORED  IN  THE  DATA  BASE  TO  A NEW  VALUE, 

TYPE  NEW  DEMAND  VALUE;  ELSE  TYPE  0. 

Upon  entry  of  demand  figure  the  system  will  print  the  computed  instructor  require- 
ments for  the  identified  course. 

If  SCH  is  entered  in  response  to  the  initial  program  data  request  the  system  will 
reply: 


ENTER  DIVISION/DEPT  CODE: 

Upon  entry  of  the  DIVISION/DEPT  CODE  the  system  will  print  the  computed  instructor 
requirements  for  all  courses  in  the  identified  division/dept. 

A sample  instructor  requirement  computation  output  is  shown  below: 


IV-43 
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COMPUTED  INSTRUCTOR  REQUIREMENTS 


CDP 

INSTR 

REOD 

CUP 

OMD 

2252 

.2Jf 

2253 

.62 

2275 

.09 

23«4 

.13 

9338 

.43 

9330 

.11 

9341 

.72 

9342 

.35 

9343 

.44 

9344 

.76 

9345 

.55 

9459 

.09 

9774 

.77 

IV-44 
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SCRR  MODEL  EXECUTION  PROCEDURES  SUMMARY 


MODEL  FUNCTION 

KEYBOARD  ENTRY 

Select  organization 

SETSCH 

Execute  SCRR  model 

SCRR 

Extract  data  from  data  base  to  run 
ASSIGN  or  FACILITY 

RAMSCRR 

Run  SCRR  model  after  RAMSCRR 

SCRR3 

Generate  instructor  assignment  listing 
(SCRR  or  RAMSCRR  must  be  executed  first) 

ASSIGN 

Generate  facility  assignment  listing 
(SCRR  or  RAMSCRR  must  be  executed  first) 

FACILITY 

Modify  resource  (instructor  or  facility) 
availability 

MODAVAIL 

Fix  the  number  of  course  convenings  at  the 
current  level 
(do  not  optimize) 

FIXCONV 

Modify  SCRR  DATA  to  optimize  course  convenings 

MAXCONV 

Rerun  SCRR  model  after  MODAVAIL,  FIXCONV,  or 
MAXCONV 

SCRR1 

Modify  course  parameters 

(course  utilization,  class  capacity,  course 

length) 

REQMT 

Rerun  SCRR  model  after  REQMT 

SCRR2 

Modify  additional  model  input  data 

EDIT  SCRR  DATA 

Instructor  Requirements  Computation 

I COMP 
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SCRR  MODEL  OPERATIONAL  TEST  PROCEDURES 


* 


The  SCRR  operational  test  has  been  designed  to  exercise  all  SCRR  model  software. 
Since,  operationally,  all  SCRR  model  Input  Is  computed  based  on  the  contents  of 
the  DOTS  Data  Base,  a miniature  version  of  the  DOTS  data  base  has  been  created 
to  test  the  model/data  base  Interface  software.  This  Test  data  base  will  pro- 
vide a constant  data  Input  to  the  SCRR  model.  The  operational  test  will  be  con- 
sidered successful  If  the  model  output  which  Is  generated  as  a result  of  follow- 
ing the  procedures  outlined  below.  Is  Identical  to  the  model  output  printed  In 
this  section.  In  addition  to  the  operational  test  procedures  and  the  opera- 
tional test  output,  a description  of  the  Test  data  base  Is  also  Included  below. 


SCRR  TEST  DATA  BASE  DESCRIPTION:  The  Test  data  base  is  identical  to  the  DOTS 
data  base  In  every  way  but  size.  Like  the  DOTS  data  base,  the  Test  base  Is 
divided  Into  three  files:  the  course  file  (TESTC);  the  Instructor  file 
(TESTI);  and  the  facility  file  (TESTF).  To  minimize  storage  costs  and  execu- 
tion time,  most  fields  not  required  for  SCRR  model  Input  have  been  omitted 
\ from  the  Test  data  base.  The  descriptions  of  the  three  Test  data  base  files 

I*  are  presented  below: 


f 


fi 

i 


PAMASTER  DESCRIPTION  FOP 
RAMIS  FILE  NAMED  TESTC 
AT  9.14.45  ON  0 8/27/76 


LIST 

FIELD  NAME 

SYNONVM 

LEV 

Type 

LEN 

SEC 

SFLAG 

1 

CDP 

CDP 

1 

A 

4 

10 

S 

2 

SCH 

SCH 

1 

A 

4 

10 

s 

3 

DEL 

DEL 

1 

A 

1 

10 

s 

4 

CONV1 

CONV1 

1 

I 

3 

10 

< 

5 

CAP1 

CAP1 

1 

I 

3 

10 

s 

6 

UCAP 

UCAP 

l 

I 

3 

10 

s 

7 

FI 

FI 

2 

I 

9 

5 

s 

8 

F2 

F2 

2 

I 

4 

5 

s 

9 

F3 

F3 

2 

I 

1 

5 

s 

10 

NK- 

N*€ 

3 

A 

16 

1 

V 

PAMASTER  DESCRIPTION  FOP 
RAMIS  FILE  NAMED  TEST* 

AT  9 . 19 . 1*7  ON  ,18/27/76 


LIST 

FIELD  NAME 

SYNONYM 

LEV 

TYPE 

LEN 

SEC 

SFLAC 

1 

CDP 

CDP 

1 

A 

4 

10 

S 

2 

SCH 

SCH 

1 

A 

4 

10 

S 

3 

BLDr 

BLOC 

2 

A 

4 

2 

S 

4 

RM 

RM 

2 

A 

4 

2 

s 

5 

RMCAP 

RMCAP 

2 

I 

3 

2 

s 

6 

RMTP 

RMTP 

2 

A 

1 

2 

s 

7 

REOHPS 

REOHRS 

2 

F 

6.1 

2 

s 

8 

AVHPS 

AVHRS 

2 

I 

5 

2 

s 

i 

■ 


< I 
i 

i \ 


! 


i 


J 
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RAMASTER  DESCRIPTION  POR 
RAMIS  FILE  NAFCO  TESTI 
AT  9.16.26  ON  08/27/76 


ST 

FIELD  NAME 

SYNONYM 

LEV 

TYPE 

LEN 

SEP. 

SPLAfi 

••• 

... 

- -- - 

... 

-— — 

----- 

1 

10 

10 

1 

I 

9 

15 

S 

2 

NME 

NF€ 

1 

A 

16 

15 

s 

3 

SCH 

SCH 

1 

A 

4 

15 

s 

4 

ROT 

ROT 

1 

I 

4 

15 

s 

5 

CONT 

CONT 

1 

I 

4 

15 

s 

6 

CDEV 

COEV 

1 

I 

4 

15 

s 

7 

EPMT 

EOMT 

1 

I 

4 

15 

s 

8 

PREP 

PRE" 

1 

I 

4 

15 

s 

9 

BK  IN 

BK  IN 

1 

I 

4 

15 

s 

If* 

CTRN 

CTRN 

1 

I 

4 

15 

s 

11 

FTRN 

FTRN 

1 

I 

4 

15 

s 

12 

MDUT 

MDUT 

1 

I 

4 

15 

s 

13 

I SCH 

I SCH 

1 

I 

4 

15 

s 

14 

FLET 

FLET 

1 

I 

4 

15 

s 

15 

ADW 

ADMN 

1 

I 

4 

15 

s 

16 

ANL  V 

AML” 

1 

I 

4 

15 

s 

17 

SKLV 

SKLV 

1 

I 

4 

15 

s 

18 

SLIB 

SLIB 

1 

I 

4 

15 

s 

To  complete  the  description  of  SCRR  model  data  input  for  the  operational  test, 
the  contents  of  the  three  test  data  files  are  included  on  the  following  pages. 
The  contents  of  the  test  data  files  will  remain  constant. 


FACILITY  FILE  (TESTF) 


CDP 

BLDC 

RM 

RMCAP 

RMTP 

REOHRS 

AVHRS 

461V 

N-30 

180 

10 

3 

42.0 

2080 

510G 

N-30 

106 

12 

1 

33.0 

2080 

107 

18 

2 

27.0 

2080 

510  V 

N-30 

181 

10 

3 

30.0 

2080 

5 10W 

FLTL 

MGR 

10 

2 

12.0 

2080 

N-30 

181 

10 

3 

6.0 

2080 

5107 

N19A 

120 

16 

1 

40.0 

2080 

122 

16 

2 

20.0 

2080 

536K 

N-30 

167 

10 

3 

20.0 

2080 

536P 

N-30 

180 

10 

48.0 

2080 

5698 

N-30 

107 

18 

2 

110.0 

2080 

108 

18 

1 

40.0 

2080 

--  — 


■ ~ - - — 
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COURSE  FILE  (TESTC) 


COP 

CONV1 

CAP1 

UCAP 

N>€ 

ID-SIR 

OUAL-CHRS 

ASN-TVP 

461V 

12 

10 

20 

5 

18 

2 

10 

24 

1 

HUNT 

243540492 

100 

1 

510R 

6 

12 

60 

* 

6 

27 

2 

12 

33 

1 

WARD 

262567698 

100 

1 

PAUL 

350328 700 

100 

1 

BROOKS 

450663526 

100 

1 

51UV 

12 

10 

65 

10 

30 

3 

BROWN 

272423719 

100 

1 

5 10W 

24 

10 

25 

10 

18 

3 

HARRISON 

479424748 

100 

1 

5107 

24 

16 

50 

5 

20 

2 

16 

40 

1 

STEWART 

252604158 

100 

1 

STREIT 

339324236 

100 

1 

ROHLFINR 

358403587 

100 

1 

SPARKES 

463685542 

100 

1 

536K 

50 

10 

95 

5 

8 

2 

10 

12 

1 

DORSET 

220348942 

100 

1 

BROWN 

272423719 

100 

1 

BROOKS 

450663526 

100 

1 

536P 

12 

8 

90 

8 

48 

3 

. 

WARD 

262567698 

100 

1 

BROWN 

272423719 

100 

0 

PAUL 

350328700 

100 

1 

5698 

6 

18 

80 

6 

110 

2 

18 

40 

1 

OBERLE 

512344273 

100 

1 

WARNER 

527549719 

100 

1 
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INSTRUCTOR  FILE  (TESTI) 


10 

NME 

ROT 

CONT 

CDEV 

EOMT 

PREP 

BKIN 

CTRN 

0TRN 

HDUT 

220348942 

DORSEY 

7801 

1 "42 

0 

500 

0 

100 

0 

258 

0 

243540492 

HUNT 

7610 

1042 

0 

500 

0 

100 

0 

238 

a 

252604158 

STEWART 

7907 

1042 

0 

500 

0 

100 

0 

238 

0 

262567698 

WARD 

7711 

1«4? 

0 

500 

0 

100 

0 

23* 

0 

272423714 

BROWN 

7708 

1041 

0 

500 

0 

100 

0 

239 

0 

350328700 

PAUL 

7704 

1042 

0 

500 

0 

100 

0 

239 

0 

355324236 

STRE1T 

7808 

1042 

0 

500 

0 

100 

23* 

0 

358403587 

ROHLRINK 

7811 

1042 

0 

500 

0 

100 

0 

23* 

0 

450663526 

BROOKS 

7611 

1042 

0 

500 

0 

100 

0 

238 

P 

463685542 

SPARKES 

7711 

1042 

0 

500 

0 

100 

0 

238 

0 

474424748 

MARR 1 SON 

7902 

1042 

g 

500 

0 

100 

0 

238 

a 

512344273 

OBERLE 

7612 

1002 

0 

500 

0 

100 

0 

278 

r 

527549714 

WARMER 

7908 

1042 

0 

500 

0 

100 

0 

238 

9 

1 


& 
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OPERATIONAL  TEST  PROCEDURES.  This  section  presents  the  detailed  steps  required 
to  perform  the  SCRR  model  operational  test.  These  procedures  assume  that  the 
user  has  successfully  completed  the  NCSS  login  procedures. 

a)  To  Initialize  the  operational  test,  type: 

SCRRTEST 

followed  by  a carriage  return.  The  SCRRTEST  routine  modifies  the 
SCRR  software  so  that  model  Input  data  are  computed  from  the  Test 
data  files  TESTC.  TESTI,  and  TESTF,  rather  than  the  DOTS  data  base 
files  COURSE,  INST,  and  FACIL. 

Upon  successful  completion,  the  system  will  respond  with  the 
tlme-of-day  In  hours,  minutes,  and  seconds  (XX. XX. XX). 


b)  The  SCRR  model  requires  a minimum  computer  core  size  of  320K.  To 
ensure  that  this  requirement  Is  met,  type: 

SET  CORE  320 

followed  by  a carriage  return.  The  system  will  respond  with 

CSS.  300  06/15/76 
XX. XX.  XX 

c)  To  Initialize  SCRR  model  processing,  type: 


followed  by  a carriage  return.  The  SCRR  executive  will  retrieve 
the  required  data  elements  from  the  three  Test  data  files,  make 
additional  computations,  format  resulting  data  for  linear  pro- 
gramming (LP)  optimization,  perform  LP  optimization,  and  format 
LP  results  for  output.  The  system  will  respond  with  the  following 
message: 

THIS  PROGRAM  PERFORMS  THE  LINEAR  PROGRAMMING  OPTIMIZATION 
OF  THE  RESOURCE  DATA  CURRENTLY  STORED  IN  THE  MASTER  DATA  FILES 
FOR  THE  DEPARTMENT  IDENTIFIED  THROUGH  EXECUTION  OF  THE  SETSCH 
COMMAND.  NO  FURTHER  USER  INTERVENTION  WILL  BE  REQUIRED. 

DO  YOU  WISH  TO  PROCEED?  (Y/N) 

At  this  point,  the  user  should  verify  that  SCRRTEST  has  been  entered 
prior  to  typing  SCRR.  If  SCRRTEST  has  been  entered,  the  user  should 
respond  by  typing: 

YES 

followed  by  a carriage  return.  If  SCRRTEST  was  not  previously 
entered,  the  user  should  reply: 

NO 
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followed  by  a carriage  return.  The  system  will  respond  with  a 
time-of-day  message,  at  which  point  step  a)  of  this  procedure 
should  be  repeated. 

If  the  proceed  option  Is  answered  affirmatively,  the  system  will 
respond  after  a short  pause  with  the  following  messages: 

MPS  III,  ON-LINE  VERSION,  READY. 

MPS  COMMAND: 

MPS  III  TERMINATING. 

TO  PRINT  SCRR  MODEL  OUTPUT,  TYPE: 

P SCRR  OUTPUT 

The  MPS  messages  Indicate  first  that  the  Mathematical  Programming 
System  software  package  has  been  attached  to  the  operating  system, 
then  that  the  optimization  calculations  are  being  performed, 
and  finally  that  the  optimization  Is  complete. 

The  SCRR  executive  does  not  automatically  print  the  model  output. 
As  the  message  Indicates  to  print  the  SCRR  model  output,  type: 

P SCRR  OUTPUT 

Typing  P SCRR  OUTPUT  will  cause  the  following  output  to  appear 
on  the  screen.  Steps  a),  b),  and  c)  of  this  procedure  can  be 
considered  successful  only  If  the  following  output  Is  exactly 
duplicated. 


COURSE 

MAXIMUM 

CURRENT 

AVERA6E 

COP  NO. 

ANNUAL 

CONVEN 

SCHEDULED 

CONVEN 

CLASS 

SIZE 

661V 

17.1 

12 

2 

5116 

16.1 

6 

7 

511V 

12.  0 

12 

7 

5l0w 

57.9 

26 

3 

5117 

52.0 

26 

• 

536X 

73.2 

50 

10 

536P 

21.6 

12 

7 

5696 

6 

16 

ANNUAL 

THROUGHPUT 

CLASS 

CONVEN 

CHANCE 

SIZE 

LIMITING 

RAN6E 

PER  COURSE 

RANGE 

VARIABLE 

MINIMUM 

CONVEN 

MINIMUM 

MAXIMUM 

CHANCE 

MAXIMUM 

0.0 

-2.0 

0.0 

N-30100 

26.0 

-6.1 

6.1 

WARD 

12.7 

-3.1 

3.9 

BROOKS 

26.1 

-13.0 

20.0 

510V 

0.6 

20.7 

0.0 

661V 

17.6 

-20.7 

27.7 

HUNT 

0.0 

-3.0 

0.0 

HARRISON 

57.9 

NO  CHG 

♦ INF 

0.0 

-0.0 

0.0 

N-19A120 

52.0 

NO  CHG 

♦ INF 

55.0 

-6.6 

3.6 

510V 

73.2 

NO  CHC 

♦ INF 

21.6 

-6.7 

2.3 

WARD 

32.0 

-3.7 

10.7 

BROOKS 

0.0 

-16.0 

0.0 

OBERLE 

7.7 

NO  CHG 

♦ INF 
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s 

f 


* 
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ANNUAL 

ANNUAL 

ANNUAL 

REOMT 

RESOURCE 

throughput 

NON- 

AVAIL 

reomt 

vs 

util. 

CHANGE 

LIMITING 

RESOURCE 

CLASSROOM 

HOURS 

CLASSROOM 

CONTACT 

HOURS 

CLASSROOM 

CONTACT 

HOURS 

AVAIL 

RATIO 

RANGE 
MINIMUM 
MAPI  MUM 

PER  UNIT 
RESOURCES 
CHANGE 

VARIABLE 

DORSEY 

• SI 

1042 

681 

65 

519.0 

681.0 

-0.688 

NO  CHG 

510V 

HUNT 

83ft 

1842 

718 

66 

504.0 

1504.0 

-0.048 

-0.098 

N-30180 

PAUL 

STEWART 

838 

1042 

1040 

99 

480.0 

1040.0 

-0.400 

NO  CHG 

N19A120 

WARD 

838 

1042 

1042 

100 

880.0 

1042.0 

-0.196 
NO  CHG 

PAUL 

BPOVRJ 

839 

1041 

1041 

100 

879.0 

1148.0 

-0.922 

0.922 

HUNT 

461V 

PAUL 

838 

1042 

1042 

100 

880.0 

1042.0 

-0.196 

0.196 

HUNT 

WARD 

STREIT 

838 

1042 

1040 

99 

480.0 

1040.0 

-0.400 
NO  CHG 

N19A120 

RO ML  PING 

838 

1042 

1040 

99 

480.0 

1040.0 

-0.400 

NO  CHG 

N19A120 

BROOKS 

83ft 

1042 

1042 

100 

935.0 

1204.0 

-0.154 

0.154 

461V 

HUNT 

SPARKES 

838 

1042 

1040 

99 

480.0 

1040.0 

-0.400 

NO  CHG 

N19A120 

HARRISON 

838 

1042 

1042 

100 

432.0 

3120.0 

-0.167 

0.167 

5 10W 
PLTLHG* 

OBERLE 

878 

1002 

1002 

100 

780.0 

1042.0 

-0.108 

0.108 

5698 

WAGNER 

WAGNER 

838 

1042 

1002 

96 

710.0 

1002.0 

-0.108 
NO  CHG 

OBERLE 

PLTLHGP 

2080 

695 

33 

288.0 

694.7 

-0.250 
NO  CHG 

HARRISON 

2080 

396 

28 

419.1 

862.9 

-0.093 

-0.417 

BROOKS 

510V 

N-30107 

2080 

1333 

64 

1190.7 

1553.9 

•0.114 

-0.510 

BROOKS 

510V 

N-30108 

2080 

308 

14 

240.0 

308.3 

-0.350 

NO  CHG 

OBERLE 

N-38167 

2080 

1465 

70 

1116.1 

1464.5 

-0.320 
NO  CHG 

510V 

N-3C181 

2080 

2080 

100 

1866.0 

2404.0 

-0.048 

0.048 

461V 

HUNT 

N-3«18I 

2080 

707 

34 

504.0 

869.3 

-0.300 

-0.688 

HARRISON 

510V 

N IRA  12(1 

2080 

2080 

100 

960.0 

2084.0 

-0.200 

0.200 

5107 

SPARKES 

N19A122 

2080 

1040 

50 

480.0 

1040.0 

-0.400 

NO  CHG 

N19A12I 

d)  to  generate  a detailed  Instructor  assignment  listing  for  all  In- 
structors appearing  In  the  SCRR  OUTPUT,  type: 

ASSIGN 

fol lowed  by  a carriage  return.  The  system  will  respond: 

EXECUTION:  O 

TO  PRINT  INSTRUCTOR  ASSIGNMENTS,  TYPE: 

P ASSIGN  LISTING 


1 
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Then  type: 

P ASSIGN  LISTING 

Operational  test  procedure  d)  Is  successful  if  the  following  output 
is  duplicated  exactly. 


INSTRUCTOR 

COURSE 

CLASIZE 

CONV 

HRS/CONV 

TOT  HRS 

AVAIL  1 

BROOKS 

5 10G 

7 

6 

20.0 

120.0 

530K 

10 

50 

9.3 

465.0 

TOT 

= 585.0 

1042 

BROWN 

510V 

7 

12 

30.0 

360.0 

536K 

10 

50 

9.3 

465.0 

TOT 

= 825.0 

1041 

DORSEY 

536K 

10 

50 

9.3 

465.0 

1042 

HARRISON 

5 10W 

3 

24 

18.0 

432.0 

1042 

HUNT 

4 fa  IV 

2 

12 

42.0 

504.0 

1042 

0 BE RLE 

5698 

14 

6 

130.0 

780.0 

1002 

PAUL 

510G 

7 

6 

20.0 

120.0 

536P 

7 

12 

24.0 

288.0 

TOT 

= 408.0 

1042 

ROHLFING 

5107 

8 

24 

20.0 

480.0 

1042 

SPARKES 

5107 

8 

24 

20.0 

480.0 

1042 

STEWART 

5107 

8 

24 

20.0 

480.0 

1042 

STREIT 

5107 

8 

24 

20.0 

480.0 

1042 

WAGNER 

5698 

14 

6 

130.0 

780.0 

1042 

WARD 

510G 

7 

6 

20.0 

120.0 

536P 

7 

12 

24.0 

288.0 

TOT 

= 408.0 

1042 
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e)  To  fix  the  number  of  course  convenings  per  year  at  the  current  level, 
type: 


FIXCONV 

' followed  by  a carriage  return.  Upon  successful  completion,  the  system 
will  respond: 


COURSE  CONVENINGS  FIXEO  AT  THE  CURRENT  LEVEL. 

TO  RERUN  SCRR  MODEL,  TYPE:  SCRR1 

As  directed  In  the  above  message  to  return  the  SCRR  model,  type: 

SCRR1 

followed  by  a carriage  return.  After  the  system  response  Is 
printed,  type: 

P SCRR  OUTPUT 

to  print  SCRR  model  output.  Test  procedure  e)  is  successful  If  the 
following  output  Is  duplicated  exactly. 


COURSE 
COP  NO. 

MAXIMUM 

ANNUAL 

COMVCN 

CURRENT 

SCHEDULED 

CONVEN 

AVERAGE 

CLASS 

SUE 

461V 

12.0 

12 

2 

51IC 

7.6 

6 

7 

511V 

12.0 

12 

7 

510W 

57.9 

24 

3 

51X7 

52.0 

24 

• 

536k 

95.7 

50 

10 

536P 

32. a 

12 

7 

569V 

7.7 

6 

14 

ANNUAL 

THROUGHPUT 

CLASS 

CONVEN 

CHANCE 

SIZE 

LIMITING 

RANGE 

PER  COURSE 

RANGE 

VARIABLE 

MINIMUM 

CONVEN 

MINIMUM 

MAXIMUM 

CHANGE 

MAXIMUM 

7.1 

4.1 

0.0 

WARD 

24.0 

-4.1 

6.1 

HUNT 

0.0 

-7.0 

0.0 

BROOKS 

12.7 

-9.8 

• 1C. 8 

510V 

10.9 

14.6 

0.0 

510C 

15.4 

-14.8 

21.8 

WARD 

0.0 

-3.0 

0.0 

HARRISON 

57.9 

NO  CHG 

♦ INF 

0.0 

-8.0 

0.0 

N-19A120 

52.0 

NO  CHG 

♦ INF 

84.7 

-4.6 

5.4 

510V 

95.7 

NO  CHG 

♦ INF 

21.6 

-4.7 

2.3 

461V 

32.8 

NO  CHG 

♦ INF 

0.0 

-14.0 

0.0 

OBERLE 

7.7 

NO  CHG 

♦ INF 
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ANNUAL 

ANNUAL 

ANNUAL 

REQMT 

RESOURCE 

THROUGHPUT 

NON- 

AVAIL 

REOMT 

VS 

UTIL. 

CHANGE 

RESOURCE 

CLASSROOM 

CLASSROOM 

CLASSROOM 

AVAIL 

RANGE 

PER 

UNIT 

HOURS 

CONTACT 

CONTACT 

RATIO 

MINIMUM 

RESOURCES 

HOURS 

HOURS 

MAXIMUM 

CHANGE 

r>r>nerY 

338 

1042 

465 

44 

465.0 

NO 

CHG 

465.0 

NO 

CHG 

HUNT 

838 

1042 

504 

48 

504.0 

NO 

CHG 

504.0 

NO 

CHG 

STEWART 

838 

1042 

480 

46 

480.0 

NO 

CHC 

480.0 

NO 

CHG 

WARD 

838 

1042 

408 

39 

408.0 

NO 

CHG 

408.0 

NO 

CHG 

P«*OVN 

831 

1041 

825 

79 

825.0 

NO 

CHG 

825.0 

NO 

CHG 

"AHL 

838 

1042 

408 

39 

408.0 

NO 

CHG 

408.0 

NO 

CHG 

ST°E  IT 

838 

1042 

480 

46 

480.0 

NO 

CHG 

480.0 

NO 

CHG 

RPHLGING 

838 

1042 

480 

46 

480.0 

HO 

CHG 

480.0 

NO 

CHG 

BROOKS 

838 

1042 

585 

56 

585  .-0 

NO 

CHG' 

585.0 

NO 

CHG 

SPARKES 

838 

1042 

480 

46 

480.0 

NO 

CHG 

480.0 

NO 

CHG 

HARRISON 

838 

1042 

432 

41 

432.0 

NO 

CHG 

432.0 

NO 

CHG 

OPCRLE 

878 

1002 

780 

77 

780.0 

NO 

CHG 

780.0 

NO 

CHG 

WAGNER 

838 

1042 

780 

74 

780.0 

NO 

CHG 

780.0 

NO 

CHG 

FLTLMrp 

2080 

288 

13 

288.0 

NO 

CHG 

288.0 

NO 

CHG 

N-301*6 

2080 

108 

9 

198.0 

NO 

CHG 

198.0 

NO 

CHG 

11-311117 

2080 

822 

39 

822.0 

NO 

CHG 

822.0 

NO 

CHG 

N-31108 

2080 

240 

11 

240.0 

NO 

CHG 

240.0 

NO 

CHG 

N-301P7 

2080 

1000 

48 

1000.0 

NO 

CHG 

1000.0 

NO 

CHG 

n-l^lRd 

2080 

1080 

51 

1080.0 

NO 

CHG 

1080.0 

NO 

CHG 

N-3HR1 

2080 

504 

24 

504.0 

NO 

CHG 

504.0 

NO 

CHG 

N19A120 

2080 

960 

46 

960.0 

NO 

CHG 

960.0 

NO 

CHG 

N19A122 

2080 

480 

33 

480.0 

NO 

CHG 

410.0 

NO 

CHG 

LIMITING 

variable; 
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f)  To  modify  the  availability  of  an  Instructor  or  a facility,  type: 

MODAVAIL 

followed  by  a carriage  return.  The  system  will  respond: 

EXECUTION: 

ENTER  NAME  OF  INSTRUCTOR  OR  FACILITY: 

Then  type: 

BROWN 

& 

followed  by  a carriage  return.  The  system  will  respond: 

ENTER  CURRENT  AVAILABLE  HOURS,  NEW  AVAILABLE  HOURS: 

Then  type: 

1041  1250 

followed  by  a carriage  return.  The  system  will  respond: 

AVAIL  27242371  1041  35032870  1042 

AVAIL  27242371  1250  35032870  1042 

to  Indicate  that  the  availability  change  has  been  made.  The  SCRR 
OUTPUT  shown  In  step  c)  Indicates  that  the  greatest  Improvement  In 
total  student  throughput  can  be  achieved  by  Increasing  BROWN'S 
availability.  Therefore,  before  generating  a new  SCRR  OUTPUT  listing, 
BROWN'S  availability  Is  changed  from  the  current  1041  hours  to  the 
Indicated  minimum  requirement  of  1250  hours. 

The  system  will  then  ask: 

ANY  MORE  CHANGES?  (YES/NO) 

Type: 

NO 

followed  by  a carriage  return.  The  system  will  respond: 

CHANGES  TO  AVAILABLE  HOURS  HAVE  BEEN  INCORPORATED. 

TO  RERUN  SCRR  MODEL,  TYPE:  SCRR1 

As  directed  In  the  above  message,  to  rerun  the  SCRR  model  type: 

SCRR1 

followed  by  a carriage  return.  The  system  will  respond: 

MPS  III,  ON-LINE  VERSION,  READY. 

MPS  COMMAND: 

MPS  III  TERMINATING. 

TO  PRINT  SCRR  MODEL  OUTPUT,  TYPE: 

P SCRR  OUTPUT 
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To  print  the  SCRR  OUTPUT  which  now  includes  the  availability  change 
made  above,  type: 

P SCRR  OUTPUT 

Test  procedure  f)  is  successful  if  the  following  output  is  dupli- 
cated exactly. 


1 f ) 


ANNUAL 

ANNUAL 

ANNUAL 

REOMT 

RESOURCE 

THROUGHPUT 

NON- 

AVAIL 

REOMT 

VS 

UTIL. 

CHANGE 

L IMITING 

RESOURCE 

CLASSROOM  CLASSROOM 
HOURS  CONTACT 

HOURS 

CLASSROOM 

contact 

HOURS 

AVAIL 

RATIO 

RANGE 

MINIMUM 

MAXIMUM 

PE»  UNIT 
RESOURCES 
CHANGE 

VARIABLE 

DORSEY 

838 

1092 

890 

85 

788.0 

890.0 

-0.492 
NO  CHC 

510V 

HUNT 

838 

1842 

504 

48 

504.0 

1504.0 

NO  CHG 
-0.098 

461V 

STEWART 

838 

1042 

1040 

99 

480.0 

1040.0 

-0.400 

NO  CHG 

N19A120 

WARD 

838 

1042 

940 

90 

671.0 

1042.0 

-0.196 

-0.492 

461V 

51"V 

DROV.’N 

839 

1250 

1250 

100 

1148.0 

1282.0 

-0.725 

0.725 

PAUL 
5 10G 

PAUL 

838 

1042 

940 

90 

671.0 

1042.0 

-0.196 

-0.492 

461V 

510V 

STREIT 

838 

1042 

1040 

99 

480.0 

1040.0 

-0.400 
NO  CHG 

N19A120 

ROHLPING 

838 

1042 

1040 

99 

480.0 

1040.0 

-0.400 

NO  CHG 

N19A120 

BROOKS 

838 

1042 

1042 

100 

1010.0 

1144.0 

-0.350 

0.350 

510G 

PAUL 

SPARKES 

838 

1042 

1040 

99 

480.0 

1040.0 

-0.400 

NO  CHG 

N19A120 

HARRISON 

838 

1042 

1042 

100 

432.0 

3120.0 

-0.167 

0.167 

510W 

pltlhgr 

OBERLt 

878 

1002 

1002 

100 

780.0 

1042.0 

-0.108 

0.108 

5698 

WAGNER 

WAfiNEP 

838 

1042 

1002 

96 

780.0 

1002.0 

-0.108 
NO  CHG 

OBERLE 

PLTLHGR 

2080 

695 

33 

288.0 

694.7 

-0.250 
NO  CHG 

HARRISON 

N-30106 

2080 

251 

12 

148.0 

419.1 

-0.212 

-0.298 

BROOKS 

510V 

N- 30 107 

2080 

1053 

50 

865.2 

1190.7 

-0.127 

-0.364 

OBERLE 

510V 

M-30108 

2080 

308 

14 

240.0 

308.3 

-0.350 
NO  CHG 

OBERLE 

N-30167 

2080 

1914 

92 

1694.6 

1914.0 

-0.229 
NO  CHG 

510V 

N-30180 

2080 

2080 

100 

1080.0 

2284.0 

-0.146 

0.146 

536P 

PAUL 

N-30181 

2084 

707 

34 

504.0 

809.3 

-0.500 

-0.442 

HARRISON 

510V 

N19A120 

2080 

2080 

100 

960.0 

2084.0 

-0.200 

0.200 

5107 

SPARKES 

N 19A122 

2080 

1040 

50 

480.0 

1040.0 

-0.400 

NO  CHG 

N19A120 
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ANNUAL 

Throughput 

CLASS 

COURSE 

MAXIMUM 

CURRENT 

AVERAGE 

CONVCN 

change 

SIZE 

LIMITING 

CDP  NO. 

ANNUAL 

CONVCN 

SCHEDULED 

CONVEN 

CLASS 

SIZE 

RANCC 

MINIMUM 

MAXIMUM 

PER  COURSE 
CONVEN 
CHANGE 

RANGE 

MINIMUM 

MAXIMUM 

VARIABLE 

4blV 

12.0 

12 

2 

0.0 

24.8 

-2.0 

2.0 

0.0 

♦ INF 

HUNT 

510G 

0.0 

6 

7 

0.0 

28.8 

-7.0 

7.0 

0.0 

♦ INF 

BROOKS 

sir* 

12.0 

12 

7 

0.0 

26.2 

-7.0 

7.0 

0.0 

♦ INF 

BROWN 

510W 

24.0 

24 

3 

0.0 

57.9 

-3.0 

3.0 

0.0 

♦ INF 

HARRISON 

5107 

24.0 

24 

8 

0.0 

52.0 

-8.0 

8.0 

0.0 

♦ INF 

N-19A120 

530K 

50.0 

50 

10 

0.0 

95.7 

-10.0 

10.0 

0.0 

♦ INF 

BROWN 

536P 

12.0 

12 

7 

0.0 

32.8 

-7.0 

7.0 

0.0 

♦ INF 

N-30180 

5098 

0.0 

6 

14 

0.0 

7.7 

-14.0 

14.0 

0.0 

♦ INF 

OBERLE 

Before  proceeding  to  the  next  step,  type: 

MAXCONV 

followed  by  a carriage  return.  Upon  successful  completion,  the  system  will 
respond : 


DATA  MODIFIED  TO  OPTIMIZE  COURSE  CONVENINGS. 
TO  RERUN  THE  SCRR  MODEL,  TYPE:  SCRR1 


g)  To  Initialize  the  requirement  modification  routine  for  the  opera- 
tional test,  type: 

TESTREQ 

followed  by  a carriage  return.  Upon  successful  completion,  the 
system  will  respond  with  the  tlme-of-day. 

h)  To  modify  training  system  requirements,  type: 

REQMT 

followed  by  a carriage  return.  The  system  will  respond  as  follows 
00  YOU  WISH  INSTRUCTIONS  TO  BE  PRINTED?  (YES/NO): 


followed  by  a carriage  return 
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The  system  will  respond: 

THIS  PROGRAM  PROVIDES  THE  CAPABILITY  TO  MODIFY  COURSE  UTILIZATION, 
CLASS  CAPACITY,  AND  COURSE  LENGTH  EXPRESSED  IN  CONTACT  HOURS  TO 
ASSESS  THE  IMPACT  ON  TOTAL  INSTRUCTOR  REQUIREMENTS. 

* TO  INCREASE  UTILIZATION  20*  ENTER:  .29 

* TO  DECREASE  UTILIZATION  10*  ENTER:  -.10 

* IF  NO  CHANGE  IS  DESIRED  ENTER:  9 
ENTER  UTILIZATION  DELTA: 

Type: 


followed  by  a carriage  return.  The  system  will  respond: 

* TO  INCREASE  CLASS  CAPACITIES  20*  ENTER:  .20 

* TO  DECREASE  CLASS  CAPACITIES  10*  ENTER:  -.10 

* IF  NO  CHANGE  IS  DESIRED  ENTER:  0 
ENTER  CLASS  CAPACITY  DELTA: 

Type: 

0 


followed  by  a carriage  return.  The  system  will  respond: 

* TO  INCREASE  COURSE  LENGTH  20*  ENTER:  .20 

* TO  DECREASE  COURSE  LENGTH  10*  ENTER:  -.10 

* IF  NO  CHANGE  IS  DESIRED  ENTER:  0 
ENTER  COURSE  LENGTH  DELTA: 

Type: 

0 

followed  by  a carriage  return.  Upon  successful  completion,  the 
system  will  respond: 

CHANGES  HAVE  BEEN  INCORPORATED. 

TO  RERUN  SCRR  MODEL,  TYPE:  SCRR2 
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To  verify  that  the  REQMT  routine  executed  successfully,  the  user 
should  now  rerun  the  ASSIGN  program  (see  test  procedure  step  d)). 
Test  procedure  h)  Is  successful  If  the  following  output  Is  dupli- 
cated exactly. 


INSTRUCTOR 

COURSE 

CLASIZE 

CONV 

HRS/ CONV 

TOT  HRS 

AVAIL 

BROOKS 

5 10G 

4 

6 

20.0 

120.0 

536K 

5 

50 

6.7 

335.0 

TOT 

= 455.0 

1042 

BROWN 

510V 

3 

12 

30.0 

360.0 

536K 

5 

50 

6.7 

335.0 

TOT 

= 695.0 

1041 

DORSEY 

536K 

5 

50 

6.7 

335.0 

1042 

HARRISON 

510W 

1 

24 

18.0 

432.0 

1042 

HUNT 

461V 

1 

12 

42.0 

504.0 

1042 

OBERLE 

5698 

7 

6 

75.0 

450.0 

1002 

PAUL 

510G 

4 

6 

20.0 

120.0 

536P 

4 

12 

24.0 

288.0 

TOT 

= 408.0 

1042 

ROHLFING 

5107 

4 

24 

15.0 

360.0 

1042 

SPARKES 

5107 

4 

24 

15.0 

360.0 

1042 

STEWART 

5107 

4 

24 

15.0 

360.0 

1042 

STREIT 

5107 

4 

24 

15.0 

360.0 

1042 

WAGNER 

5698 

7 

6 

75.0 

450.0 

1042 

WARD 

5 10G 

4 

6 

20.0 

120.0 

536P 

4 

12 

24.0 

288.0 

TOT  = 408.0  1042 


O 
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1)  The  final  step  of  the  SCRR  operational  test  is  to  reset  the  SCRR  soft- 
ware so  that  model  Input  data  are  again  computed  from  the  DOTS  data 
base  files.  This  Is  accomplished  by  typing: 

TESTOFF 

followed  by  a carriage  return.  The  system  will  respond  with  the  tlme- 
of-day.  Then  type: 

TEST RE QO 

followed  by  a carriage  return.  The  system  will  respond  with  the  tlme- 
of-day. 


SCRR  MODEL  OPERATIONAL  TEST  PROCEDURE  SUMMARY 


Keyboard  Entry 

Operator  Action  Required 

SCRRTEST 

None 

SET  CORE  320 

None 

SCRR 

Respond  to  Program  Queries 

P SCRR  OUTPUT 

Review  Output  for  Accuracy 

ASSIGN 

None 

P ASSIGN  LISTING 

Review  Output  for  Accuracy 

FIXCONV 

None 

SCRR1 

None 

P SCRR  OUTPUT 

Review  Output  for  Accuracy 

MAXCONV 

None 

MODAVAIL 

Respond  to  Program  Queries 

SCRR1 

None 

P SCRR  OUTPUT 

Review  Output  for  Accuracy 

TESTREQ 

None 

REQMT 

Respond  to  Program  Queries 

ASSIGN 

None 

P ASSIGN  LISTING 

Review  Output  for  Accuracy 

TESTOFF 

None 

TESTREQO 

None 

SECTION  V 


DOTS  DATA  BASE 
PROGRAM  DESCRIPTIONS 


INTRODUCTION 

Documentation  relative  to  the  software  elements  developed  for  the  maintenance 
of  the  three  files  of  the  DOTS  data  base  is  included  within  this  section. 

This  includes  software  for  the  NCSS  timesharing  computer  and  the  WANG  computer 
system. 

First,  are  the  RAMIS  data  management  system  file  descriptions  and  the  executives 
established  for  their  control.  A description  follows  covering  the  types  of 
maintenance  activities  available.  Next,  the  WANG  computer  system  software  is 
discussed,  followed  by  the  NCSS  software  developed  for  DOTS  data  base  mainte- 
nance. 

The  NCSS  executives  contained  herein  are  termed  "executive  sequences,"  since 
most  are  several  individual  VP/CSS  executives  in  sequence.  Due  to  the  inter- 
active attributes  of  the  DOTS  system,  executives  are  documented  by  reference 
to  the  root  executive,  or  that  to  be  invoked  by  the  user  at  the  terminal . 

Program  documentation  contains  a functional  description  of  the  task  to  be 
performed,  input/output  data  formats  (where  applicable),  and  program  source 
code  listings. 

Interaction  of  the  user  with  the  data  base  maintenance  software  on  both  the 
WANG  and  NCSS  systems  is  covered  in  detail  in  SECTION  II  of  this  manual  and 
is  not,  in  general,  reproduced  in  any  detail  within  this  section. 

GENERAL  SYSTEMS  PROCEDURES 

The  implications  associated  with  the  following  RAMIS  file  descriptions  and 
VP/CSS  executive  sequences  presupposes  a rather  detailed  knowledge  on  the 
part  of  the  user  with  basic  services  provided  by  the  National  CSS  (NCSS) 
time-sharing  vendor.  These  services  are  formally  documented  by  NCSS  and  are 
not  reproduced  within  this  manual.  To  assist  those  who  are  unfamiliar  with 
the  NCSS  documentation,  the  following  references  are  mentioned: 
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System  Function 

Typing  Conventions,  Login,  Logout 

System  Interruptions 

CSS  Commands  Summary 

CSS  File  Creation  and  Maintenance 

Data  Base  Maintenance  Functions 
Data  Base  Report  Generation 
RAMIS  System  RUN  PROCEDURES 

VP/CSS  Executive  Language 


NCSS  Reference 

A Guide  to  the  National  CSS  Computer 
System  for  Application  Product  Users 
(NCSS  Form  991)  Section  1 

A Guide  to  the  National  CSS  Computer 
System  for  Application  Product  Users 
(NCSS  Form  991)  Section  7 

A Guide  to  the  National  CSS  Computer 
System  for  Application  Product  Users 
(NCSS  Form  991)  Appendix  B 

A Guide  to  the  National  CSS  Computer 
System  for  Application  Product  Users 
(NCSS  Form  991)  Section  3 

VP/CSS  Edit  Conmand  (NCSS  Form  108) 

RAMIS  Users'  Manual  (Mathematlca, 
1976  Edition) 


VP/CSS  Executive  Language  (EXEC) 
(NCSS  Form  109) 
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RAMIS  DATA  MANAGEMENT  SYSTEM  FILE  DESCRIPTIONS 

DOTS  DATA  BASE  : Facilities 

RAMIS  NAME  : FACIl 

RAMIS  DESCRIPTION  : Filename  = FACIL 

Filetype  = DESC 

The  tree-structure  of  the  DOTS  Facilities  file  is  as  depicted  on  the  diagram 
following: 


LEVEL  1 LEVEL  1 


DOTS  FACILITIES  FILE  - HIERARCHIC  STRUCTURE 

FIGURE  V-l 


! 


The  key  field  controlling  the  highest  level  segment  is  course  CDP.  The 
level  2 segment  is  keyed  by  building  number. 

1 

The  RAMIS  file  description  which  was  used  to  establish  and  support  the 
above  structure  is  as  follows.  This  is  the  NCSS  card- image  format. 
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* 


Listing  of  Filename  » FACIL,  Filetype  « DESC 


ERASE* 

FILE  FACIL 

ENO 

INPUT 

FILE  RAMASTEp 

1*FACIL*1  1<?*C0P*CUP*  A***vS 
5 = SCH * SCH  • A * A * » 

?=2  * S 1 5 * HL  Oft  » HLIJbt  <4 » <►  * .% 

5=RM  * A • 4 * » 

5 = RMCAP  « PmC AP  t I » J ♦ » 

5 = PMTp«KMrP«A»  i «'$ 

5 = RFWHHS»HF.UHp5*F*b,  1 * + 

5 = AVHPS » AVHPS  * I • b * » 

ENO 


After  using  the  above  to  establish  the  Facilities  file  description  internal 
to  RAMIS,  the  following  printout  was  obtained.  This  Is  the  RAMIS  listing 
of  the  file  format  as  obtained  from  a single  run  of  the  executive  FACIL  with 
the  INDEX  option. 


PAMASTER  DESCRIPTION  FOP 
RAMIS  FILE  NAMED  FACIL 
AT  15.48.35  ON  09/10/76 


5T 

FIELD  NAME 

SYNONYM 

LEV 

TYPE 

LEN 

SEO 

SFLAO 

- — 

..... 

... 

... 

1 

COP 

CDP 

1 ' 

A 

4 

12 

S 

2 

SCH 

SCH 

1 

A 

4 

12 

S 

3 

BLOC 

BLDO 

2 

A 

4 

5 

S 

4 

RM 

RM 

2 

A 

4 

5 

S 

5 

RMCAP 

OMCAP 

2 

I 

3 

5 

S 

6 

PMTP 

PMTP 

2 

A 

1 

5 

s 

7 

reohrs 

PEOHRS 

2 

r 

6.1 

5 

s 

8 

AVHRS  • 

AVHPS 

2 

r 

5 

5 

s 

A RAMIS  dump  function 

produces  a dump  file 

In  card-image  format. 

This 

same  80-byte  format  Is  maintained,  regardless  of  the  Internal  RAMIS  file 
record  size.  In  the  case  of  the  Facilities  file,  a total  of  33  bytes  are 
required  to  contain  a single  Internal  record.  Thus,  the  Facilities  dump 
file  will  contain  card  Images,  using  the  first  33  bytes  and  blanking  the 
remaining  47  bytes. 
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Execution  of  a RAMIS  DUMP  results  in  a RAMIS  system  printout  of  the  format 
of  the  dump  records.  For  the  Facilities  file,  the  following  results: 


DUM* 

FILE  FACIL 

PRINT  AVHRS  AND  SAVE 
IF  SCH  IS  6S55 
END 

EBCDIC  RECORD  LENGTH  80  CHARACTERS 


FIELD  NAME 

FORMAT 

length 

CDP 

A 

4 

4 

SCH 

A 

4 

4 

BLDC 

A 

4 

4 

PM 

A 

4 

4 

R MC  AP 

I 

3 

3 

»MTP 

A 

1 

1 

PECHRS 

F6 

.1 

6 

AVHRS 

I 

5 

5 

NUMBEP  OF 

RECORDS 

DUMPED::  1 

*. 

i 


The  Facilities  file  data  field  contents  and  related  maintenance  details  are 
itemized  in  the  following  table.  Complete  field  definitions  for  the  fields 
found  in  the  Facilities  file  is  covered  in  SECTION  II  of  this  manual. 

FACILITIES  FILE 

Maintenance 

Field  Name  (Mnemonic),  Data  Type  Responsibility  Notes 


Course  CDP  Number  (CDP),  A4 

Trng. 

School  Code  (SCH),  A4 

Trng. 

Building  Number  (BLDG),  A4 

Trng. 

Room  Number  (RM),  A4 

Trng. 

Room  Capacity  (RMCAP),  13 

Trng. 

Room  Type  (RMTP) , A1 
1 = Lecture;  2 = Lab;  3 = Both 

Trng. 

Required  Hours  (REQHRS),  F6.1 

Trng. 

Available  Hours  (AVHRS),  15 

Trng. 

V-5 

Activity 

From  Internal 

records 

Activity 

From  Internal 

records 

Activity 

From  Internal 

records 

Activity 

From  Internal 

records 

Activity 

From  Internal 

records 

Activity 

From  internal 

records 

Activity 

From  internal 

records 

Activity 

From  internal 

records 
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DOTS  DATA  BASE 
RAMIS  NAME 


: Instructor 
: INST 


RAMIS  DESCRIPTION  : Filename  = INST 

Filetype  = DESC 


The  following  diagram  Indicates  plctorially  the  hierarchic  (tree)  structure 
of  the  DOTS  Instructor  file: 


LEVEL  1 


TAEG  REPORT  NO.  36 


The  RAMIS  description  supporting  the  above  structure  follows: 
Listing  of  Filename  = INST,  Filet.ype  « DESC 


erase* 

FILE  INST 

ENO 

INPUT 


1 = INST*1  » *>.  100 

. I[>«  1') 

S = NME«NMf  • A 

« lb»  V 

5= I N • I h « a ♦ c 

• * 

5 = P AT t « P A It 

* A 

% T>  * i> 

5=SCH,SCH, A 

♦ A 

* » 

5 = PF.  P»WFP»  I 

* A 

♦ b 

5 = POT»PuT»  I 

♦ A 

* » 

S=PNEC«c'NtC 

« A 

« 4 * * 

5 = SnEC  »SNEC 

♦ A 

» A » 'h 

5=nECj*NEC3 

* A 

» A « t> 

5=NtCA*NfcCA 

* A 

* A O 

5=NECb»*ECb 

* A 

» A » * 

5 = CON  T ♦ COnT 

*] 

♦ At1* 

5 = CDEV  »CDEV 

* I 

* A t D 

5 = EQM  T « F.OM  T 

« I 

• A * -n 

5=PwEP • PPEP 

« I 

» A « > 

5 = 0* In  « OK  I N 

♦ I 

* A « S 

5 = CTRim»CTP* 

• I 

♦ A « J> 

5=FTRN » F TKN 

. I 

♦ A « s 

5=MDUT»PDUT 

* I 

♦ A ♦ S. 

5= ISCm  » I SCM 

» I 

» At  * 

5 = FLET  »FLET 

* I 

« A » «. 

5 = aomn « AOMN 

» I 

t A * V 

5 = ANLV  * ANLV 

. I 

• A * *fc 

5 = SKLV  « SKL V 

* I 

♦ A»  S 

5 = SL I ri ♦ SL  I 3 

END 

« I 

*A*}i 

The  internal  RAMIS  format  established  as  a result  of  the  above  description 
is  shown  below.  This  listing  results  from  a run  of  executive  INST  with  an 
INDEX  option: 
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RAMA STEP  DESCRIPTION  FOR 
RAMIS  FILE  NAMED  INST 
AT  15.50.48  ON  09/10/76 


LIST 

FIELD  NAME 

SVNONYM 

LEV 

TYPE 

LEN 

SEG 

SFLAG 

1 

ID 

ID 

1 

I 

9 

100 

S 

2 

NME 

NME 

1 

A 

16 

100 

S 

3 

IN 

IN 

1 

A 

2 

100 

S 

4 

RATE 

RATE 

1 

A 

5 

100 

S 

5 

SCH 

SCH 

1 

A 

4 

100 

S 

6 

REP 

REP 

1 

I 

4 

100 

S 

7 

ROT 

ROT 

1 

I 

4 

100 

S 

8 

PNEC 

PNEC 

1 

A 

4 

100 

S 

9 

SNEC 

SNFC 

1 

A 

4 

100 

s 

10 

NEC  3 

NEC  3 

1 

A 

4 

100 

s 

11 

NFC  4 

NEC  4 

1 

A 

4 

100 

s 

12 

NFC  5 

NEC  5 

1 

A 

4 

100 

s 

13 

CONT 

CONT 

1 

I 

4 

100 

s 

14 

CDE  V 

CDE  V 

1 

I 

4 

100 

s 

15 

EOMT 

EOMT 

1 

I 

4 

100 

s 

16 

PREP 

PREP 

1 

i 

4 

100 

s 

17 

BK  IN 

BK  IN 

1 

i 

4 

100 

s 

18 

CTP.N 

CTPN 

1 

i 

4 

100 

s 

19 

FTPN 

rTRN 

1 

4 

100 

s 

20 

MDUT 

MDUT 

1 

i 

4 

100 

«: 

21 

I SCH 

I SCH 

1 

i 

4 

100 

S 

22 

FLET 

FLET 

1 

i 

4 

100 

s 

23 

ADMN 

ADMN 

1 

i 

4 

100 

s 

24 

ANLV 

ANLV 

1 

4 

100 

s 

25 

8KLV 

SKI.'/ 

1 

i 

4 

100 

s 

26 

St  IB 

SLIB 

1 

i 

4 

100 

s 

The  dump  file  formed  by  a RAMIS  DUMP  function  directed  at  the  Instructor 
file  will  contain  two  card-image  dump  records  per  Internal  RAMIS  record.  As 
seen  from  the  following  listing,  the  first  of  the  card- Image  pairs  Is  com- 
pletely used  (no  padding  required).  Only  40  bytes  are  required  on  the  second 
of  the  card- Image  pair  to  complete  the  Internal  record  dump. 

DUMP 

FILE  INST 

PRINT  SLIB  AND  SAVE 
IF  SCH  IS  6$$$ 

END 

EBCDIC  RECORD  LENGTH  80  CHARACTERS 


FIELD  NAME 

FORMAT 

LENGTH 

ID 

I 

9 

9 

NME 

A 

16 

16 

IN 

A 

2 

2 

RATE 

A 

5 

5 

SCH 

A 

4 

4 

REP 

I 

4 

4 

ROT 

I 

4 

4 

PNEC 

A 

4 

4 

SNEC 

A 

4 

4 

NEC  3 

A 

4 

4 

INSTRUCTOR  FILE  DUMP  (Cont'd) 

NEC  4 
NEC  5 
CONT 
CDE  u 
ECif'T 
PREP 


BKIN 
CTPN 
cjPM 
MDl/T 
ISCH 
FLET 
ADMN 
ANL  V 
SKLV 
SLIP 
NUMBER 


A 

A 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


4 

4 

4 

4 

4 

4 

0 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


OF  RECORDS  DIJMPED  = 


211 


The  following  table  indicates  the  contents  of  the  Instructor  file  data  fields 
and  the  related  maintenance  responsibility.  Complete  details  on  the  meanings 
and  usage  of  these  fields  was  outlined  in  Section  II  of  this  manual  and  will 
not  be  duplicated  in  this  section. 


INSTRUCTOR  FILE 

Field  Name  (Mnemonic),  Data  Type 

Maintenance 

Responsibility 

Notes 

Instructor  Social  Security 

Trng.  Act. 

Pers. 

Dept. 

From  BUPERS  reports 

Number  (ID),  A9 

Instructor  Surname  (NME),  A16 

Trng.  Act. 

Pers. 

Dept. 

From  BUPERS  reports 

Instructor  Initials  (IN),  A2 

Trng.  Act. 

Pers. 

Dept. 

From  BUPERS  reports 

Rate/ Rating  (RATE),  A5 

Trng.  Act. 

Pers. 

Dept. 

From  BUPERS  reports 

School  (SCH),  A4 

Activity 

4 

Reporting  Date  (REP),  A4,  YYMM 

Trng.  Act. 

Pers. 

Dept. 

From  BUPERS  reports 

Rotation  Date  (ROT),  A4,  YYMM 

Trng.  Act. 

Pers. 

Dept. 

From  BUPERS  reports 

Primary  NEC  (PNEC),  A4 

Trng.  Act. 

Pers. 

Dept. 

From  BUPERS  reports 

Secondary  NEC  (SNEC).  A4 

Trng.  Act. 

Pers. 

Dept. 

From  BUPERS  reports 

m 
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: 

INSTRUCTOR  FILE  (Cont'd) 

bi 

Maintenance 

lb 

Field  Name  (Mnemonic),  Data  Type 

Responsibility 

Notes 

■ | 
I l 

Third  NEC  (NEC3),  A4 

Trng. 

Act.  Pers.  Dept. 

From  BUPERS  reports 

■ • 

Fourth  NEC  (NEC4) , A4 

Trng. 

Act.  Pers.  Dept. 

From  BUPERS  reports 

► 

Fifth  NEC  (NEC5),  A4 

Trng. 

Act.  Pers.  Dept. 

From  BUPERS  reports 

■ 

r‘i 

Contact  Hours  (CONT),  14 

Trng. 

Activity 

From  internal 

records 

I Curriculum  Time  (CDEV),  14 

Trng. 

Activity 

From  internal 

records 

Equipment  Time  (EQMT),  14 

Trng. 

Activity 

From  internal 

records 

• 

Preparation  Time  (PREP),  14 

Trng. 

Activity 

From  Internal 

records 

Breakin  Time  (BKIN),  14 

Trng. 

Activity 

From  Internal 

records 

h 

f 

Cross-Training  Time  (CTRN),  14 

Trng. 

Activity 

From  Internal 

records 

? 

1 

Factory  Time  (FTRN),  14 

Trng. 

Activity 

From  internal 

records 

Formal  Training  Time  (ISCH),  14 

Trng. 

Activity 

From  internal 

records 

« 

Military  Time  (MDUT) , 14 

Trng. 

Activity 

From  internal 

records 

Fleet  Training  Time  (FLET),  14 

Trng. 

Activity 

From  Internal 

records 

r 

Administrative  Time  (ADMN),  14 

Trng. 

Activity 

From  internal 

records 

| | 

Annual  Leave  (ANLV),  14 

Trng. 

Activity 

From  Internal 

records 

E 

Sick  Leave  (SKLV),  Ir 

Trng. 

Activity 

From  Internal 

records 

ii 

Special  Liberty  Time  (SLIB),  14 

Trng. 

Activity 

From  internal 

records 
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DOTS  DATA  BASE — : Course 


RAMIS  NAME 


COURSE 


ft 

L i 

■ 4 


RAMIS  DESCRIPTION  : Filename  = COURSE 

Filetype  = DESC 


ft 


Following  is  the  diagram  depicting  the  structure  of  the  DOTS  Co*  se  file: 


1 


■ t 

p 

fi 


; 


» j 


r 


LEVEL  1 


LEVEL  2 


COURSE  CODE 
SCHOOL  COOE 
DELETE  FLAG 
CATALOG  NO. 

COURSE  NO. 
CONVENING  1 
LENGTH  1 
CAPACITY  1 
BUREAU  CAP  1 
OEMANO  1 
BUREAU  OEMANO  1 
OFFSET 
% FAIL 
% NADIS 
% NOSHOW 
SETBACK 
BACKLOG 
CONVENING  2 
LENGTH  2 
CAPACITY  2 
BUREAU  CAP  2 
DEMAND  2 
BUREAU  DEMAND  2 
CHG  WEEK  2 
CONVENING  3 
LENGTH  3 
CAPACITY  3 
BUREAU  CAP  3 
OEMANO  3 
BUREAU  OEMANO  3 
CHG  WEEK 3 
PLANNED  A OB 
PLANNED  FAILURE 
PRIORITY 
COURSE  TYPE 
PRIMARY  NEC 
X UTILIZE  CAP 
% UTILIZE  DEMAND 
FTC  PRIORITY 
REVISION  DATE 
HISTORICAL  SETBACK 
TOTAL  INSTR  REQ*D 
CCMM 

STUDENT  UIC 
MAX  CAPACITY 
MIN  CAPACITY 
OPTIONAL  FIELD  1 
j OPTIONAL  FIELD  2 
OPTIONAL  FIELDS 
EQUIPMENT  CAPACITY 
SPACE  CAPACITY 
PSPS  CAPACITY 


STUO/INSTR 

RATIO 

CONTACT  HRS 
LAB/LECTURE 


INSTRUCTOR  ID 
X QUALIFY 
ASSIGNED 


DOTS  COURSE  FILE  - HIERARCHIC  STRUCTURE 
FIGURE  V-3 


V-ll 
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Tne  card-image  description  used  to  establish  the  structure  of  the  DOTS  Course 
file  Is  Indicated  below: 

Listing  of  Filename  = COURSE.  Flletype  « DESC 

ERASE* 

FILE  COURSE 

END 

INPUT 

FILE  PAMAbThN 

l*COUPSE*  I *S*  100*CUH»LUR* 

S=SCH«SCH*A»4*  * 

5=DEL  *UFL  * A * I * i 
5aCTH»*CTLU*A*  I u » 

5=CRS*CKS*A* ib»* 

5=C0N\/1  *CONVl  ♦ 1 * J*  t 
5=LEN1 « LtNl * I *4*  * 

5=CAPi«CA*-l*I«J»i 
5*RCAP 1 *HCA*“'l  * I * 3*  ■*> 

5=0*01  »D*Ul  * I * S » 4 
5*HDMUl  * I *s«  b 

5*0F  :»r*0FST*I*2*4 
5aPFAIL«PFAlL*F«*». 

5=NAD  I S * NAD  1 5 ♦ F • 5 • .1 » > 

5aNOSMOW*NOSHOW*Fo.3*» 

5aSETH»SETH»Fo«Ji  » 

5=RKLG*BKLG* It  4*4 
5=mAj(CAP*MAACAP» I *4* % 
bsCONV2*CONV?» I «3tS 
5=LEN2  *LRN2  * I * 4 « Ji 
5aCAP2«CAP2*It 3*4 
5*PCAP2*PCAP2* I«3*» 

5 a DM02 • DMU2 * I «S»  * 

5aRDM02*MuMD2* I *5*  t 
5*CM4K?«CHWK2» I «3*» 

5aC0NV3»CUNV3» I * J«% 

5aLEN3*LEN3*I*4** 

5aCAP3*CAH3* 1.3*4 
5aRCAP3.HLAP3.  I*3*S 
5aDM03«0Mu3« I tbt % 

5*RDMU3*H0MU3*  l *5*  * 
baCHWK3»CHW«3* I « j»  > 

5=M INCAP «M INCAP*  1*4*4 
5aAFAIL*AFAlL*F*s.3*» 

5*PRT  Y * PR  TY*I*2*4 
5aCTVPE.CTYPE*A*2,«. 

5aPNEC*PNtC*A,4,* 
b«UCAR,UCAP* I»3*> 

5*UDEM*UDtM* I*3*% 

5aFPRTY*FpRTY.I.2*» 

5aRDTt*PDTE*I*6»» 

5=hSET  W*hSETR*  F *S.  J*  % 

b«TlN5TR*TlNSlH*F*4.1*% 
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COURSE  OfcSC  (Cont'd) 


5 = SUIC.SUIC*A.*>.S 
b=CCMM«CCMY»  A* 1 o « 4 
5=0PT1  *OPU  ♦ 

^=npr<?«opr?«  A.t,.T 

S=OPTJ*OPT  1» 

5=ECaP»ECam* 1 « 3* i 
b = SC«P»bCA^» 1*3*  h 
5=PC«iJ*t-’C‘»P*  Nit*. 

S=PAOU  « I * ‘t  • ■» 

2=2  *S*S*rl«Fi*l**#*,.» 

5=F2«F2» I « 4 « * 

5=F3*hR*I«l*S 

2=3* V*  1 »l'«Mh«NMt.  *A«lh«tKl*l;vST*ti  1 * * 
tNO 

Execution  of  the  executive  COURSE  with  an  INDEX  option  produces  the 
following  listing  of  the  internal  RAMIS  format  of  the  Course  file: 


OAMASTER  DESCRIPTION  FOP 
RAMIS  FILE  NAMED  COURSE 
AT  15.54.48  OH  09/10/7G 


ST 

FIELD  NAME 

synonym 

LE'/ 

TYPE 

LFN 

SEG 

SFLAO 

1 

CDP 

CDP 

1 

A 

4 

100 

S 

2 

SCM 

SCM 

1 

A 

4 

100 

S 

3 

DEL 

DEL 

1 

A 

1 

100 

s 

4 

CTLO 

CTLO 

1 

A 

10 

100 

£ 

5 

CP.S 

CP.S 

1 

A 

16 

100 

£ 

6 

CON 'a 

corivi 

1 

I 

3 

100 

s 

7 

LF.N1 

LEN1 

1 

I 

4 

100 

s 

8 

CAP  1 

CAP  1 

1 

3 

100 

s 

9 

BCAP1 

BCAP1 

1 

I 

3 

100 

s 

10 

DMD 1 

DMD  1 

1 

5 

100 

s 

11 

BDMD  1 

BDMD  1 

1 

I 

5 

100 

s 

12 

0 FST 

OFST 

1 

I 

2 

100 

s 

13 

PFAIL 

PFAIL 

1 

F 

5.3 

100 

s 

14 

NAD  IS 

NAD  I S 

1 

F 

5.3 

100 

s 

15 

NO SHOW 

NO SHOW 

1 

F 

5.3 

100 

s 

16 

SETU 

SETB 

1 

F 

5.3 

100 

s 

17 

BKLG 

BKLO 

1 

I 

4 

100 

s 

18 

MAXCAP 

MAXCAP 

1 

I 

4 

100 

s 

19 

CONV2 

CONV2 

1 

I 

3 

100 

s 

20 

LEN2 

LEN2 

1 

I 

4 

100 

s 

21 

CAP2 

CAP2 

1 

I 

3 

100 

s 

22 

BCAP2 

BCAP2 

1 

I 

3 

100 

s 

23 

DMD  2 

DI02 

1 

I 

5 

100 

s 

24 

BDMD  2 

BDMD2 

1 

I 

5 

100 

s 

25 

CMWK2 

CMV/K2 

1 

I 

3 

100 

s 

26 

COMV  3 

CONV3 

1 

I 

3 

100 

s 
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PACE 


PAMASTER  DESCRIPTION  FOP 
RAMIS  FILE  NAMED  COURSE 
AT  15.54.48  ON  09/10/76 


M i j 


I I 


ST 

FIELD  NAME 

SYNONYM 

LEV 

TVPE 

LEN 

27 

LEN3 

LEN3 

1 

I 

4 

28 

CAP  3 

CAP  3 

1 

T 

3 

29 

BCAP3 

BCAP3 

1 

I 

3 

30 

0MD3 

DMD3 

1 

I 

5 

31 

BDMD3 

BDM03 

1 

I 

5 

32 

CHWK3 

CHWK3 

1 

I 

3 

33 

MINCAP 

MINCAP 

1 

I 

4 

34 

afail 

AFAIL 

1 

F 

5.3 

35 

PRT* 

PRTY 

1 

I 

2 

36 

CTVPE 

CTVPE 

1 

A 

2 

37 

PNEC 

PNEC 

1 

A 

4 

38 

UCAP 

UCAP 

1 

I 

3 

3° 

(.'DEM 

UDEM 

1 

I 

3 

40 

FPRTV 

FPRTY 

1 

I 

2 

41 

RDTE 

RDTE 

1 

I 

6 

42 

HSETB 

HSETB 

1 

F 

5.3 

43 

TINSTR 

TINSTR 

1 

F 

4.1 

44 

sine 

SUIC 

1 

A 

5 

45 

CCMM 

CCMM 

1 

A 

10 

46 

OPT  1 

OPT  1 

1 

A 

6 

47 

OPT  2 

OPT2 

1 

A 

6 

48 

OPT  3 

OPT3 

1 

A 

6 

49 

ECAP 

ECAP 

1 

I 

3 

50 

SCAP 

SCAP 

1 

I 

3 

51 

PCAP 

PCAP 

1 

I 

3 

52 

PAOB 

PAOB 

1 

I 

4 

53 

FI 

FI 

2 

I 

9 

54 

F2 

F2 

2 

I 

4 

55 

F3 

F3 

2 

I 

1 

56 

NME 

NME 

3 

A 

16 

SEC, 


100 


SFLAO 


S 


100  S 
100 
100 
100  S 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
5 
5 
5 
1 


S 

S 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

V 


o 
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The  card-image  dump  file  resulting  from  the  execution  of  a RAMIS  dump 
directed  at  the  Course  file  will  contain  three  card  images  per  internal  RAMIS 
file  record.  The  internal  format  is  such  that  all  three  cards  are  filled 
exactly  (80  bytes)  without  blank  padding.  The  following  shows  the  layout 
of  the  dump  records: 


DUMP 

FILE  COURSE 
PRINT  F3  AND  SAVE 
IF  SCM  IS  6555 
END 


EBCDIC  RECORD 

LE.Nr.TH 

80  CHARACTERS 

PI  ELD  NAME 

FORMAT 

LENGTH 

CD  p 

A 

4 

4 

SCH 

A 

4 

4 

DEL 

A 

1 

1 

CTLC 

A 

10 

10 

CRS 

A 

lb 

lb 

CON''l 

I 

3 

3 

LEN1 

I 

4 

4 

CAP  1 

I 

3 

3 

BCAP1 

I 

3 

3 

DMD1 

I 

5 

5 

BDMD1 

I 

5 

5 

OFST 

I 

2 

2 

PFA I L 

F5 

.3 

5 

NAD  IS 

F5 

.3 

5 

NO  SHOW 

P5 

.3 

5 

SETS 

P5 

.3 

5 

X 0 

BKL  0 

I 

4 

4 

MAXCAP 

I 

4 

4 

CONV2 

I 

3 

3 

LEN2 

I 

4 

4 

CAP2 

I 

3 

3 

BCAP2 

I 

3 

3 

DMD2 

I 

5 

5 

BDMD2 

I 

5 

5 

CHVK2 

I 

3 

3 

CONV3 

I 

3 

3 

LEN3 

I 

4 

4 

CAP3 

I 

3 

3 

BCAP3 

I 

3 

3 

DMD3 

I 

5 

5 

BDMD3 

I 

5 

5 

CHWK  3 

I 

3 

3 

M INCAP 

I 

4 

4 

A FAIL 

F5 

.3 

5 

PRT  v 

I 

2 

2 

CTVOE 

A 

2 

2 
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COURSE  FILE  DUMP  (Cont'd) 


PNEC 

A 

4 

4 

WCAP 

I 

3 

3 

X 0 

UDEM 

I 

3 

3 

FPRTV 

I 

2 

2 

RDTE 

I 

6 

6 

HSETB 

F5 

.3 

5 

TINSTR 

F4 

.1 

4 

SIJIC 

A 

5 

5 

CCMM 

A 

10 

10 

OPT  1 

A 

6 

6 

OPT  2 

A 

6 

6 

OPT  3 

A 

6 

6 

ECAP 

I 

3 

3 

SCAP 

I 

3 

3 

PCAP 

I 

3 

3 

PAOB 

I 

4 

4 

FI 

I 

9 

9 

P2 

I 

4 

4 

F3 

I 

1 

1 

NUMBER  OF  RECORDS  DUMPEO=  611 


The  following  table  links  maintenance  responsibility  with  the  data  fields 
of  the  Course  file.  See  SECTION  II  of  this  manual  for  a detailed  explana- 
tion of  the  data  field  content.  This  explanation  will  not  be  repeated  here. 

COURSE  FILE 


Field  Name  (Mnemonic),  Data  Type 

Maintenance 

Responsibility 

Notes 

Course  CDP  Number  (CDP),  A4 

Trng.  Activity 

School  Code  (SCH),  A4 

Trng.  Activity 

• 

Course  Delete  Flag  (DEL),  A1 
1 ■ Course  Active 
0 - Course  Deleted 

COMTRAPAC 

Change  to  0 when  course 
Is  disestablished 

Course  Catalog  Number  (CTLG) , A10 

Trng.  Activity 

From  NITRAS  Form  17 

Course  Title  (CRS),  A16 

Trng.  Activity 

From  NITRAS  Form  17 

Convenings  Number  1 (C0NV1),  13 

Trng.  Activity 

From  NITRAS  Form  17 

Course  Length  #1  (LEN1),  14 

Trng.  Activity 

From  NITRAS  Form  17 

Capacity  #1  (CAP1 ),  13 

Trng.  Activity 

From  NITRAS  Form  17 

BUPERS  Capacity  #1  (BCAP1) , 13 

Trng.  Activity 

From  CNTECHTRA  Annual 
Training  Plan 
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COURSE  FILE  (Cont'd) 


Field  Name  (Mnemonic),  Data  Type 


Demand  #1  (DMDl),  15 

BUPERS  Demand  #1  (BDMD1),  15 

Offset  (OFST) , 12 

Failure  Rate  (PFAIL),  F5.3 

NONAC  Disenrollment  (NADIS),  F5.3 

No-Show  Rate  (NOSHOW),  F5.3 

Percent  Setbacks  (SETB),  F5.3 

Number  Backlogs  (BKLG),  14 

Maximum  Class  Capacity  (MAXCAP), 
14 

Convenings  Number  2 (C0NV2),  13 

Course  Length  #2  (LEN2),  14 

Capacity  #2  (CAP2),  13 

BUPERS  Capacity  #2  (BCAP2) , 13 

Demand  #2  (DMD2) , 15 

BUPERS  Demand  #2  (BDHD2) , 15 

Change  Week  #2  (CHUK2) , 13 

Convenings  Number  3 (C0NV3),  13 

Course  Length  #3  (LEN3),  14 

Capacity  #3  (BCAP3),  13 

Course  Demand  #3  (DMD3) , 15 

BUPERS  Demand  #3  ( BDM03 ) , 15 

Change  Week  #3  (CHWK3) , 13 

Class  Minimum  Capacity  (MINCAP), 
14 


Maintenance 

Responsibility 

Trng.  Activity 

Trng.  Activity 

Maint.  not  req'd 

Trng.  Activity 

Trng.  Activity 

COMTRAPAC 

Trng.  Activity 

COMTRAPAC 

Trng.  Activity 


Trng.  Activity 
Trng.  Activity 
Trng.  Activity 
Trng.  Activity 
Trng.  Activity 
Trng.  Activity 
Maint.  not  req'd 
Trng.  Activity 
Trng.  Activity 
Trng.  Activity 
Trng.  Activity 
Trng.  Activity 
Maint.  not  req'd 
Trng.  Activity 


Notes 


From  CNTECHTRA  Annual 
Training  Plan 

TPF  Model  Parameter 
From  NITRAS  Form  1204 
From  NITRAS  Form  1204 
From  Quota  Cont.  Sys. 
From  NITRAS  Form  1204 
From  Quota  Cont.  Sys. 
From  internal  records 


From  NITRAS  Form  17 
From  NITRAS  Form  17 
From  NITRAS  Form  17 
From  NITRAS  Form  17 

From  NITRAS  Form  17 

From  CNTECHTRA  Annual 
Training  Plan 

TPF  Model  Parameter 
From  NITRAS  Form  17 
From  NITRAS  Form  17 
From  NITRAS  Form  17 

From  NITRAS  Form  17 

From  CNTECHTRA  Annual 
Training  Plan 

TPF  Model  Parameter 
From  internal  records 
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COURSE  FILE  (Cont'o) 

Meld  Name  (Mnemonic),  Data  Type 

Maintenance 

Responsibility 

Academic  Failures  (AFAIL),  "E.3 

COMTRMv: 

Course  Priority  (PRTY) . 12 

Trng.  Activity 

Course  Type  (CTYPE),  A? 

Trng.  Activity 

Primary  NEC  (PNEC) , A4 

Trng.  Activity 

- Capacity  Utilized  (UCAP>.  13 

Trng.  Activity 

S Demand  Utilized  (UDEM),  13 

Maint.  not  rea'd 

FTC  Priority  (FPRTY) , 12 

Maint.  not  req'd 

Review  Date  (ROTE),  16 

Trng.  Activity 

Historical  Setback  (HSETB),  F5.3 

COMTRAPAC 

Total  Instructors  Required 
(TINSTR) , F4.1 

Maint.  not  req'd 

Staff  UIC  (SUIC),  A5 

Trng.  Activity 

Course  CCMM  (CCMM),  A10 

Trng.  Activity 

Optional  Field  #1  (OPTI),  A6 

Trng.  Activity 

Optional  Field  *2  (0PT2),  A6 

Trng.  Activity 

Optional  Field  *3  (OPT3),  A6 

Trng.  Activity 

Equipment  Capacity  (ECAP),  13 

Trng.  Activity 

Space  Capacity  (SCAP),  13 

Trng.  Activity 

Personnel  Class  Capacity  (PCAP),  13 

Trng.  Activity 

Planned  AOB  (PAOB),  14 

Maint.  not  req'd 

Notes 

From  NITRAS  H'Pf 
(quarterly) 

From  NITRAS  MCRF 
(quarterly) 

From  NITRAS  MCRF 
(quarterly) 

From  NITRAS  Ml  RF 
(quarterly) 

Calc,  from  NITRAS  data 
Generated  by  TPF  node! 


From  CNTF.CHTRA  Inst..  . 
Computation  Form  5311-1 

From  NITRAS  MCRF 

From  NITRAS  MCRF 


» i on  M TRAS  MCRF 
From  NITRAS  MCRF 
From  NITRAS  MCRF 
Calc,  from  data  base 


V- 1 8 


TAEG  REPORT  NO.  36 


COURSE  FILE  (Cont'-d).. 


Field  Name  (Mnemonic),  Data  Type 
**  STUDENT/ INSTRUCTOR  RATIO  SEGMENT 


Maintenance 

Responsibility 


Student/Instructor  Ratio  (FI),  19  Trng.  Activity 


Instructor  Contact  Hours  (F2),  14  Trng.  Activity 


Course  Type  (F3),  A1 


Trng.  Activity 


Notes 


From  Course  Master 
Schedule  - CNTECHTRA 
Form  1540-1 

From  Course  Master 
Schedule  - CNTECHTRA 
Form  1540-1 

From  Course  Master 
Schedule  - CNTECHTRA 
Form  1540-1 


**  INSTRUCTOR  SEGMENT 
Instructor  SSN  (FI),  19 


Instr.  % Qualified  (F2),  14 

Instr.  Assign  Flag  (F3),  A1 
1 = assigned 
0 = not  assigned 


Trng.  Activity 


Trng.  Activity 
Trng.  Activity 


From  internal  records 
(list  all  qualified) 

From  internal  records 

From  internal  records 


TYPES  OF  MAINTENANCE  ACTIVITIES 

The  general  flow  of  maintenance  in  the  DOTS  system  is  shown  in  Figure  1-1. 

Table  V-l  lists  the  distinct  types  of  maintenance  activities  that  can  be  di- 
rected at  the  three  files  of  the  DOTS  system.  As  shown  in  Figure  1-1,  all 
maintenance  transactions  originate  at  the  user  site  as  constructed  by  the  Trans- 
action Prompting  Program  running  in  the  WANG  computer. 

Each  unique  maintenance  activity  type  is  identified  by  a format  number.  All 
transactions  of  all  types  are  accumulated  at  the  WANG  computer  and  sorted  into 
ascending  order  by  format  type  before  transmsslon  to  the  NCSS  computer  system. 

A single  transaction  tape  may  be  constructed  on  the  WANG  system  with  single 
or  multiple  transactions  of  any  one  or  all  formats. 

Following  Table  V-l  are  the  programming  descriptions  of  both  the  WANG  processing 
program  and  the  NCSS  processor.  Much  of  Table  V-l  will  be  meaningful  only 
after  reading  the  program  descriptions.  A preliminary  key  to  the  meaning  of 
certain  columns  in  Table  V-1  follows  the  table. 
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DOTS  DATA  BASE  MAINTENANCE  TRANSACTION  TYPES 


Format 

Description 

Files 

Sing./ 

Mult.. 

Step 

Seq. 

Output 

Name 

File 

Type 

2 

Change  a Facility  File  level  2 
non- key  field 

F 

S 

17 

DSC 

RAM 

3 

Change  an  Instructor  file 
level  1 non-key  field 

I 

S 

18 

DSC 

RAM 

6 

Change  a Course  file  level  1 

C 

s 

19 

DSC 

RAM 

7 

Change  a Course  file  student/ 
Instructor  ratio  (SIR)  segment 
non-key  field 

c 

s 

20 

DSC 

RAM 

8 

Change  a Course  file  Instructor 
segment  non- key  field 

c 

s 

21 

DSC 

RAM 

11 

Delete  a Course  CDP  number 

FC 

s 

1 

DSA 

RAM 

12 

Delete  a student/ Instructor 
ratio  (SIR)  segment  from  the 
Course  file 

C 

s 

2 

DSA 

RAM 

13 

Delete  an  Instructor  ID 

IC 

M 

5 

M13EXA 

EXEC 

14 

Delete  a building/room  segment 
from  the  Facilities  file 

F 

S 

3 

DSA 

RAM 

15 

Delete  a school  code  from 
all  files 

FIC 

M 

6 

M15EXA 

EXEC 

16 

Change  a course  CDP  number 

FC 

M 

7 

M16EXA 

EXEC 

17 

Change  a student/instructor 
ratio  In  the  Course  file 

C 

M 

8 

M17EXA 

EXEC 

18 

Change  an  Instructor  ID 

IC 

M 

9 

M18EXA 

EXEC 

19 

Change  a building/room  number 
In  the  Facilities  file 

F 

M 

10 

M19EXA 

EXEC 

20 

Change  a school  code  In  all  files 

FIC 

M 

11 

M20EXA 

EXEC 

21 

Add  a new  course  CDP  to  the 

FC 

S 

12 

DSB 

RAM 

Course  and  Facilities  files 


TABLE  V-l 
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Format 

Description 

Files 

Sing./ 

Mult. 

Step 

Seg. 

Output 

Name 

File 

Type 

23 

Add  a new  student/instructor 
ratio  (SIR)  segment  to  the 
Course  file 

C 

S 

13 

DSB 

RAM 

24 

Add  a new  instructor  seg- 
ment to  the  Course  file 

C 

S 

14 

DSB 

RAM 

25 

Add  a new  building/room 
segment  to  the  Facilities 
file 

F 

S 

15 

DSB 

RAM 

26 

Add  a new  instructor  seg- 
ment to  an  existing  course 

C 

S 

16 

DSB 

RAM 

27 

Delete  an  instructor  seg- 

C 

S 

4 

DSA 

RAM 

ment  from  an  existing  course 


TABLE  V-1  (Cont'd) 


Table  V-1  Key 

Files  - Identifies  the  DOTS  file(s)  to  be  modified  by  the  maintenance  action. 
"F"  = Facilities  file;  "I"  - Instructor;  "C"  = Course. 

Single/Multiple  Step  - At  the  NCSS  computer,  some  of  the  transactions  can  be 
processed  by  executing  a single  RAMIS  maintenance  function;  some 
require  multiple  RAMIS  functions. 


Sequence  - A given  maintenance  run  may  include  additions  of  new  data,  changes 
of  existing  data,  or  deletion  of  existing  data.  Since  some  maintenance 
activities  are  related,  the  following  sequence  is  mandatory:  all 
deletions,  all  changes,  all  additions.  If  a maintenance  run  were  to 
Include  transactions  of  all  formats,  the  sequence  number  Indicates  the 
absolute  order  that  would  be  followed  in  their  execution. 


Output  File  - As  shown  in  Figure  1-1,  the  NCSS  Transaction  Processing  Program 
may  produce  several  output  files  in  response  to  transaction  Input. 

The  construction  of  each  file  is  conditional;  if  the  specific  trans- 
action format(s)  that  is  related  to  a given  file  is  absent  In  the  in- 
put, no  output  file  is  written.  To  maintain  the  execution  sequence 
discussed  above,  use  of  the  contents  of  the  output  files  Is  in  the 
following  order: 
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F i 1 ename/ F i 1 etype 

DSA 

RAM 

M13EXA 

EXEC 

M15EXA 

EXEC 

M16EXA 

EXEC 

M17EXA 

EXEC 

M18EXA 

EXEC 

M19EXA 

EXEC 

M20EXA 

EXEC 

OSB 

RAM 

DSC 

RAM 
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MAINTENANCE  DATA  ENTRY  PROGRAM 

The  data  base  maintenance  data  entry  program  DBPROMPT  is  written  in  BASIC  for 
the  WANG  2200.  DBPROMPT  requires  a single  tape  cassette  drive  and  16K  of 
memory  to  run.  A blank  tape  cassette  is  required  to  record  the  maintenance 
data. 


DBPROMPT  first  requests  that  a data  cassette  be  mounted  and  then  positions 
the  cassette  tape  to  record  the  first  maintenance  transaction.  Next,  a menu 
of  maintenance  transactions  is  presented  to  the  user.  Upon  selection  of  a 
maintenance  action  the  user  is  prompted  for  the  data  necessary  to  make  the 
indicated  change  in  the  NCSS  RAMIS  data  base  files.  The  data  is  stored  in 
segments  of  an  alphanumeric  string  variable  until  all  data  has  been  entered. 
After  the  last  required  data  element  has  been  entered,  the  alphanumeric  string 
is  recorded  on  the  cassette  tape  in  100  byte  blocks.  This  cycle  is  repeated 
until  either  the  data  cassette  is  full  (approximately  650  100  byte  blocks) 
or  all  maintenance  data  has  been  entered.  If  additional  data  is  to  be  appended 
to  the  data  cassette  at  some  time  in  the  future,  a 256  type  end-of-file  trailer 
record  is  written  on  the  cassette. 
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DBPROMPT  VARIABLE  DEFINITIONS 

VARIABLE 

NAME 

DEFINITION 

c$ 

Character  (usually  to  Indicate  the  maximum  number  of  char- 

acters to  be  entered  In  the  data  entry  subroutine  (105). 

C2$ 

Course  CDP  Number. 

E 

Automatic  return  indicator  in  the  data  entry  subroutine  (105). 
If  E=0  sub  105  is  not  exited  until  a RETURN  is  keyed.  If  E*1 
sub  105  is  exited  after  last  character  has  been  keyed. 

G$() 

Constant.  Contains  the  characters  "END."  The  last  record 
written  on  the  cassette  tape  before  it  is  transmitted  to  the 
DBM. 

I 

Index  counter  used  in  subs  0,  20,  59,  60,  91,  102,  105. 

1$ 

A one  byte  variable  used  to  store  character  data  in  keyin 
routines. 

10$ 

Instructor  ID  number. 

n$ 

Single  character  variable  used  to  key  edit  checks  in  data  entry 
routine  (105). 

19$ 

i.  t 

! f 

r Identifies  both  the  type  and  number  of  characters  to  be  prompted 
J for  in  the  data  entry  subroutine  (105).  If  198  = "#"  then  the 

edit  check  will  accept  only  numeric  characters.  If  198  = " a " 
then  the  edit  check  will  accept  only  alpha  characters.  If 
198  = " " the  edit  check  will  accept  either  alpha  or  numeric 
characters. 

J 

Index  counter  used  in  subs  31,  85,  and  105. 

J$ 

Used  to  construct  the  data  base  field  name  for  fields  that  have 
FY+1  and  FY+2  as  part  of  the  field  name,  l.e.,  C0NV2.  These 
field  names  may  be  included  in  type  6 or  type  21  transactions. 

J9 

Length  of  19$  or  the  number  of  characters  to  be  prompted  for 
by  the  data  entry  routine  (105). 

K$ 

Course  Identification  Number  (CIN). 

M$ 

Subroutine  argument  for  subs  33  and  35.  Used  to  print  the 
variable  portion  of  a standard  message  to  the  user. 

TAEG  REPORT  NO.  36 


t.  i 


tl 


DBPROMPT  VARIABLE  DEFINITIONS 


VARIABLE 

NAME 


DEFINITION 


Used  to  specify  block-size  equal  100  bytes  in  the  DATA  SAVE  BT 
commands.  Also  used  as  a subroutine  argument  in  subs  30,  31, 

32,  36,  42,  44,  55,  and  56  to  position  cursor  on  desired  line 
of  display. 

Subroutine  argument  for  subs  30,  33,  34,  35,  40,  and  72.  Used 
to  print  the  variable  portion  of  a standard  message  to  the  user. 
Also  used  in  subs  39,  43,  88,  100,  and  101  as  the  data  base 
field  name,  which  is  included  in  the  transaction  alphanumeric 
string  variable  +$. 

Multiple  use  variable.  Used  for  student/ instructor  ratio, 
instructor  name  and  initials,  and  for  building/room  number  in 
the  construction  of  the  maintenance  transaction. 

One  byte  variable  used  to  store  character  data  in  keyin  routines. 

Subroutine  argument  for  cursor  positioning  sub  102.  Used  for 
vertical  cursor  positioning. 

Alphanumeric  string  variable  used  in  keyin  routines.  If  the 
keyin  character  passes  the  edit  checks  it  is  entered  into 
Q1$. 

Subroutine  argument  for  cursor  positioning  sub  102.  Used  for 
horizontal  cursor  positioning. 

Subroutine  arguments  for  subs  38  and  40.  Used  as  a flag  to 
differentiate  between  add  and  changes  transaction  types  in 
sub  38.  Used  to  position  cursor  on  desired  line  of  display  in 
sub  40. 

Maintenance  transaction  type. 

Activity/dept  code. 

Each  maintenance  transaction  is  stored  in  this  string  variable 
until  it  is  recorded  on  the  cassette  tape. 

Loop  Index  counter. 

Constant  - "AJKSX."  Used  to  edit  check  CIN  entry. 

Input  variable  used  to  control  branching. 


DB PROMPT  SUBROUTINE  DEFINITIONS 


SUBROUTINE 

NUMBER 

DEFINITION 

0 

Abort  subroutine;  prints  "ABORT"  then  displays  MENU  page. 

3 

Calls  sub  105  with  fixed  arguments  198  * "###,"  C8  * 
and  E = 0. 

4 

Calls  sub  105  with  fixed  arguments  198  = " 
C8  = and  E a 0. 

5 

Calls  sub  105  with  fixed  arguments 

198  = " C$  * and  E * 0. 

19 

Prints  eight  dashes,  eight  backspaces,  then  calls  sub  60. 

20 

Date  (form  * YY/MM/DD)  entry  subroutine  with  built-in  edit 
checks. 

21 

Prints  user  Instructions. 

30 

Prints  display  title. 

31 

Prints  request  to  enter  instructor  ID  number  then  calls  sub  59. 

32 

Assign  flag  data  entry  subroutine. 

33 

Prints  user  Instructions. 

34 

Creates  type  8 transaction,  then  writes  transaction  on  cassette 
tape. 

35 

Prints  display  title. 

36 

Building/room  number  data  entry  subroutine. 

37 

Prints  facility  data  menu. 

38 

Facility  data  entry  subroutine;  differentiates  between  change 
data  (R*l)  and  new  data  (Ra0). 

39 

Creates  type  2 transaction;  then  writes  transaction  on  cassette 
tape. 

40 

Prints  display  heading;  calls  subs  55  and  56. 

— 
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DBPROHPT  SUBROUTINE  DEFINITIONS 

1 j 1 

Ir* 

SUBROUTINE 

NUMBER 

DEFINITION 

I t 
pi 
if- 

41 

Prints  CDP  Number  In  display  heading. 

H 

42 

Contact  hour  data  entry  subroutine;  differentiates  between 
change  data  (N-l)  and  new  data  (N=0). 

II! 

' !: 

43 

Creates  type  7 transaction;  then  writes  transaction  on 
cassette  tape. 

A ! 

44 

Student/ ins true tor  ratio  data  entry  subroutine. 

Il ! 

50 

Prints  maintenance  menu. 

fl! 

55 

CDP  Number  data  entry  subroutine. 

■* 

56 

Activity/dept  code  data  entry  subroutine. 

59 

Instructor  ID  data  entry  subroutine. 

’« 

60 

CIN  data  entry  subroutine. 

: f 

72 

Prints  course  data  field  names. 

* 

1 i 

80 

Prints  user  instructions  for  first  half  of  course  data; 
specifies  subroutine  branch  on  user  reply. 

> 

81 

Data  entry  subroutine  for  first  3 lines  (18  data  fields)  of 
course  data;  calls  sub  101  upon  data  entry. 

1 

i > 
1 ! 

85 

Data  entry  subroutine  for  decimal  numbers  in  the  form  NN.N%. 

86 

Creates  first  three  fields  (transaction  type,  CDP  Number, 
activity/dept  code)  of  every  transaction  record. 

87 

Writes  transaction  on  cassette  tape  in  100  byte  block  format. 

88 

Creates  transection  type  3,  then  writes  transaction  to 
cassette  tape. 

L t 

■ 

F i • 

90 

Prints  user  instructions  for  second  half  of  course  data;  specifies 
subroutine  branch  on  user  reply. 

HR 

1 3 

91 

Prints  keyin  character  if  edit  check  is  successful;  adds  keyin 
character  to  keyin  string. 

i 
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SUBROUTINE 

NUMBER 

DEFINITION 

92 

100 

101 

102 

105 

124 

222 

• 

Prints  ID  Number  and  name  in  display  heading. 

Creates  transaction  type  6,  then  writes  transaction  to  cassette 
tape. 

Creates  transaction  type  6 for  fiscal  year  dependent  fields, 

; then  writes  transaction  on  cassette  tape. 

Cursor  positioning  subroutine. 

General  data  entry  subroutine  with  built-in  edit  checks. 

Prints  Instructor  data  menu. 

Prints  course  data  menu. 

j 
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PROGRAM  LISTING  - DBPROMPT 


PACE  1 


n 


10  DIM  C2*A,S1*A,Q1*20,T*A0, 10*9, Nl*18, N*30, 1*1 , 19*20, 11*1, G* (1)50 
•.SELECT  PRINT  005 (SA) 

: o-o 

:f?EWIND 
SPRINT  HEX (03) 

:STOP  ";  MOUNT  DATA  CASSETTE;  THEN  KEY  CONTINUE." 

: PRINT  HEX (03), "START  NEW  TAPE?( Y/N) " 

; INPUT  I* 

: TF  1*0 "N"  THEM  AO 
:SKIP  END 
AO  COSUB  '50 

: COSUB  80 
.*  GOTO  AO 
50  DEFFN ' 50 

: PRINT  HEX (03) 

: PR I NT  T AB ( 1 7 ) ; " DOTS  DATA  BASE  MAINTENANCE  MENU" 

••PRINT  TAB  (59);  "ADD  CHANGE  DELETE" 

IR"; TAB (30); "51  IS  11" 


SPRINT 

II 

CDP  NUMBER " ; TAB ( 30 ) ; " 2 1 

IS 

11" 

SPRINT 

II 

ACTIVITY/DEPT 

NO.  * 

20 

SPRINT 

II 

COURSE  DATA"  *,  TAB  ( 31  ) ; " * 

S 

SO  PRINT  " 

STUD/ INST  RATIO" 

;tab(30);"23 

17 

12 

SPRINT 

ft 

CONTACT  HOURS" 

STAB (31);"* 

7 

•*» 

SPRINT 

II 

INSTRUCTOR  ID" 

STAB (30); “2A 

18 

13 

; PRINT  " INSTRUCTOR  DATA" ; TAB ( 31 ) ; "*  3 *" 

70  PRINT  " INSTRUCTOR  ASSGNMT  2S  8 *" 

: PR  I NT  " BLDG /ROOM  NUMBER "; TAB ( 30 );" 25  19  1A" 

SPRINT  " BLDG/ROOM  DATA"; TAB (31 >; "*  2 *■ 

: RETURN 

80  COSUB  ' 1 02 ( A , 13) 

SPRINT  "KEY  NUMBER  INDICATING  ACTION  TO  BE  TAKEN." 

SPRINT  "(IF  NO  ADDITIONAL  MAINTENANCE  REQUIRED,  KEY  RETURN)  "; 
S J-0 

S INPUT  J 

SON  JGOSUB  100  ,2350  , 20A0  , 100  , 100  , 590  , 1A20  ,2120  , 100 
, 100  ,2370  ,2380  , 2A20  ,2390  , 100  ,2A30  ,2A50  , 2AAO  , 2AS0  , 

2 A 70  , 530  , 100  , 1400  ,1570  ,2330  ,2080  , 2A00 
TOO  IF  J-0  THEN  110 
S RETURN 

110  PRINT  HEX (03) , "DATA  TAPE  COMPLETE? ( Y/N' " 

S INPUT  I* 

S IF  I *= " Y"  THEN  120 
1 DATA  SAVE  END 
120  C*  ( .1  ) “"END" 

S DATA  SAVE  BT  (N’l  00 ) G*  ( ) 

SEND 

130  DEFFN ' 60 
S T-0 
1AC  T - 1 +•  1 

150  KEYIN  I*,  170  , ISO 

: com  l so 

ISO  COS!  ip  '0 

170  IF  I'll  THEM  180 


MU 
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PACE  2 


190 

ISO 


i ;»0 

I *-y> 
200 

=>10 

220 
3"  Vi 


1 IF  I4=HEX<08)  THEM 
: TP  I40HEX <0D>  THEM 
: RETURN 

JE  I4=HEX  (03)  THEN  190 
: IF  I4=HEX<0D>  THEN  .1  50 
GOTO  220 

:f  jm  then  aoo 
:COTO  180 

PRINT  HEX<OS2r>OP) ; 

5TF  1*3  THEN  210 
: Tp  I “7  THEM  2! 0 
: l=l-l 
: CPT0  150 

“RIMT  HEX ' 082D08  > ; 

: 1=1-2 

: coin  1 50 

ON  iCOTO  230  , 100  , P.80 
280 


260  . 260 


100  , 260 


260 


PV 


250 


260 


270 


280 


290 


"•  FOP  W-l  TO  5 

: JF  I 4 -STR < W* , W , 1 ) THE M 210 

:mext  w 

: GOTO  1 50 
PRINT  I*;--"; 

:BTR(F4.,  I ) = I4 

:BTP<K4,  r + i ) 

: I =.1+2 

: i F I 4 <HEX (40)  THEN  1 50 
• I BTR  'K4* 3,1)="  " 

:r0T0  150 

IF  I4<>M  " THEN  260 
: PRINT  I*; 

SBTR(K4, I ) =14 
ICOTO  140 

IF  14>HEX  <5A)  THEM  150 
UK  I4<HEX(  30)  THEN  150 
; IF  I4<HEX(3A)  THEM 
: IF  It: HEX (40)  THEN 
: GOTO  1 50 
IF  1=5  THEN  240 
: PRINT  14; 

:=>fR(K4,  I ) = 14 
ICOTD  140 
PR  TNT  14; 

I STR (K4, 1 ) = 14 
: GOTO  1 40 
DEFFN ' 1 06 ( T 94 , C4 , E ) 

: SE’LEC“r  PRINT  005(132) 

:014=” 

;.T=1 

;.J9=LEN<  194 ' 

.■‘-"OR  1 = 1 TO  J9 


270 

270 


260 


ifti 
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: PF i NT  C$; 

snext  i 

: FOR  i-t  ro  J3 
: l'P]  MT  HEX  (OS) s 
: NEXT  I 
1 GOTO  375 
3 10  PHI NT  Q$; 

SSTP'Ql*, J, 1>=Q* 

: IF  J>-J9  THEN  330 
s J-  J-*  1. 

: GOTO  375 
330  J-T+l 

S IF  E-0  THEN  340 
: GOTO  370 

340  KEVIN  0$,  350  , 160 
:GOTO  340 

350  IF  HEX (00) 004  THEN  360 
: GOTO  370 

360  IF  04OHEX  (08)  THEN  340 
: GOTO  480 

370  SELECT  PRINT  005(64) 

: RETURN 

375  I 14~STR ( 19*, J, 1 ) 

380  KEVIN  04,  400  , 160 
: GOTO  380 

400  IF  04OHEX  ( 08 ) THEN  410 
: GOTO  480 

MO  IF  QfOHEX(OD)  THEN  480 
: COTO  370 

4?0  IF  Il*="t"  THEN  310 

: IF  II*^#"  THEN  450 
440  IF  <39<HEX<41 ) THEN  375 

: IF  0*>HEX(5A)  THEN  375 
!COTO  310 

450  IF  Q$<HEX (30)  THEN  375 

: IF  04>HEX(39)  THEN  375 
: GOTO  310 

480  IF  J=1  THEN  380 

SSTR(Q14, J-l, 1)="  " 
s J=J-l 

: print  hex(08);c*;hex(08); 

: GOTO  380 

490  DEFFN' 105(01,05) 

SPRINT  HEX (01) 

SIF  05=0  THEN  500 
SFOR  1=1  TO  05 
SPRINT  HEX(OA)*, 

SNEXT  I 

500  IF  01=0  THEN  510 
SFOR  1=1  TO  01 
SPRINT  HEX(09)J 
SNEXT  I 
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510  RETURN 
515  DEFFN' 19 

: PRINT  " U;HEX< 08080808080808080808 ) ; 


:GOSUB  '60 
: RETURN 

550  DEFFN ' 35 ( M* , N$ ) 

'.PRINT  HEX (03) 

:GOSUB  '105(5,3) 

: print  ■*  ";m*i"  the  following  "in* 

: RETURN 

530  GOSUB  '35("ADD", "COURSE" ) 


PRINT 
PRINT  " 

CDP  NUMBER 

PRINT 
PRINT  " 

CIN  NUMBER 

PRINT 
PRINT  " 

CRS  SHORT  TITLE... 

PRINT 
PRINT  " 

ACTIVITY/DEPT  CODE 

PRINT 

5A0  GOSUB  '105(24,5) 

JGOSUB  ' 105( "tttt","-",0) 
:IF  Ql$="  " THEN  5A0 
IC2*=Q1* 

ISTR(TS,7)=Q1* 

:GOSUB  '105(54,7) 

.GOSUB  '19 
ISTR(T*, 11)*K* 

I PRINT  HEX(OC) 

550  GOSUB  '102(24,9) 

IGOSUB  '5 

IIF  Gl**"  " THEN  550 
ISTR(T*,21)=Q1* 

550  GOSUB  '102(24,11) 

IGOSUB  '105("tt+t","-",0) 
:IF  Ql*="  " THEN  560 

isi*=qi* 

ISTR(T*,3,4)=Q1* 

ISTR(T*,1,2)="21" 

IGOSUB  '87 
: GOSUB  '525 
: RETURN 
570  DEFFN '0 

.•SELECT  P9 
: PRINT  HEX(03)J 
IFOR  1*1  TO  15 
IPRINT  " ABORT" ; HEX (OA); 
INEXT  I 
I SELECT  P 
IGOTO  40 
580  DEFFN ' 40  ( R , N* ) 

IPRINT  HEX (03) 
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IGOSUB  ' 102(4, R) 

:PRINT  "*" ;N*; “ DATA  FOR  THE  FOLLOWING  COURSE" 

IGOSUB  ' 55(R+2) 

:GOSUB  '56(R+4) 

: RETURN 

5*90  GOSUB  '40(5,  "CHANGE  COURSE") 

IGOSUB  '222 
: RETURN 

GOO  DEFFN ' 55 ( N ) 

: GOSUB  ' 102(5, N) 

: PRINT  "CDP  NUMBER 
IGOSUB  ' 105 ( " t##t O ) 

: IF  Ql*="  " THEN  GOO 
SC2*=Q1* 

: RETURN 

G10  DEFFN' 5G(N) 

: PRINT 

: GOSUB  ' 102( 5, N) 

‘.PRINT  " ACTIVITY/DEPT  CODE  " 

: PRINT  " (IF  SAME  AS  PREVIOUS  TRANSACTION  ( " ; SI*; " > , KEY  RETU 

RN.  ) " 

G20  GOSUB  ' 102(24, N) 

:GOSUB  ' 105 ( "tt+t","-",0) 

: IF  Ql*="  " THEN  G30 
SS1*=Q1* 

G30  IF  Sl*="  " THEN  620 
I RETURN 

G40  DEFFN ' 72 (N*) 

ZPRINT  N*;":  CONVEN/LENGTH/CAP/BCAP/PLN  INPUT/PLN  B-INPUT" 

:print  tab(23);-/  / / / /" 

: RETURN 

650  DEFFN '222 

:print  hex(03) 

SPRINT  " ***********  COURSE  CDP  # ";C2*;"  ***********" 

SGOSUB  '72( "01  CURRENT  YEAR") 

S GOSUB  ' 72 ( " 02  CUR  YEAR  +1") 

SGOSUB  '72( "03  CUR  YEAR  +2") 

65 1 PRINT  "04  STUDENT  CLASS  CAPACITIESS" 

SPRINT  TAB(8); "MAX=  MIN=  PERS=  EQUIP=  SPACE=" 

SPRINT  "05  HISTORICAL  CRS  RATESS " 

SPRINT  " FAILURE*  NONAC  DIS=  NOSHOW*  SETBACK 

s N 

660  GOSUB  '80 

SPRINT  HEX (03) 

SPRINT  " ***********  COURSE  CDP  # "SC2*S " ***********" 

SPRINT  "06  ACT/DEPT*  CIN=" ;TAB(34) ; "CRS  TITLE*" 

SPRINT 

SPRINT  "07  COURSE  UTILIZATION*  PLANNED  AOB*  BACKLOG*" 

670  PRINT 

SPRINT  "08  DATE  NEXT  COURSE  REVIEW=YY/MM/DO  STAFF  UIC*" 

SPRINT 

SPRINT  "09  CCMM=";TAB(20); "PRIORITY  CODE*" 


I 
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PRINT 

PRINT  "10 
PRINT 

COURSE  TYPE= 

NEC  AWARDED^" 

PRINT  "11 
GOSUB  '90 
RETURN 

OPT I ONAL 1 = 

OP T I ON ALE = 

OPTIONAL 3= " 

£80  DEFFN'21 

IGOSUB  '102(0,12) 

: PR I NT  "KEY  LINE  NUMBER  CONTAINING  DATA  TO  BE  ENTERED  OR  CHANGED 

M 

SPRINT  "TO  SKIP  A DATA  ITEM  ON  A LINE  KEY  RETURN;  CURSOR  WILL  AD 
VANCE  TO" 

SPRINT  "THE  NEXT  DATA  ITEM.  "J 
S RETURN 
£90  DEFFN'80 
700  GOSUB  '21 

SPRINT  "TO  EDIT  REMAINING  COURSE  DATA,  RETURN  "; 

: INPUT  Y 

S CONVERT  Y TO  J*, (#) 

SON  YGOSUB  710  , 800  , 820  ,1040  , 880 
SIF  Y<6  THEN  700 
S RETURN 

710  GOSUB  '102(17,2) 

S GOSUB  '81 
S RETURN 

720  DEFFN'101(N*> 

S GOSUB  '8€>(  "06"  ) 

SSTR(T*, 11)=N* 

SSTR(T*, 11+LEN(N*) )=J* 

SSTR(T*, 17)=Q1* 

S GOSUB  '87 
S RETURN 
730  DEFFN'81 

S GOSUB  ' 3 

SIF  Ql*="  " THEN  740 
S GOSUB  ' 101 ( "CONV" ) 

740  GOSUB  ' 102(24, Y*2) 

S GOSUB  '4 

SIF  Ql*= " " THEN  750 
S GOSUB  ' 101 ( "LEN" ) 

750  GOSUB  ' 102(31, Y*2) 

S GOSUB  '3 

SIF  Ql*="  " THEN  760 
S GOSUB  '101 ("CAP") 

760  GOSUB  ' 102(35, Y*2) 

S GOSUB  '3 

SIF  Ql*="  " THEN  770 
S GOSUB  ' 101 ( "BCAP" ) 

770  GOSUB  ' 102(40, Y*2) 

S GOSUB  ' 105( "#####" , " ,0) 

SIF  Ql*="  " THEN  780 


O 


r*  1 


j I >. Ji  ll ,UI ,p.Wl  » 
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:GOSUB  ' 101 ( “DMD“ ) 

780  GOSUB  ' 102(50, Y*2) 

:GOSUB  ' 105 ("#####"," -m,0) 

: IF  Ql*="  M THEN  790 
: GOSUB  ' 101 < "BDMD” ) 

790  RETURN 

800  GOSUB  '102(17,4) 

810  GOSUB  '81 
: RETURN 

820  GOSUB  '102(17,6) 

IGOTO  810 
830  DEFFN'3 

: GOSUB  '105( "###“, "-",0) 

: RETURN 
840  DEFFN'4 

JGOSUB  ' 105( " tM+","-“,0) 

: RETURN 
845  DEFFN'5 

: GOSUB  ' 105("+++M+t  + t+ttfttt",“-",0) 
: RETURN 

850  DEFFN'86(R*> 

JSTR(T*, 1,2)=R* 

:STR(T*,3,4)=S1* 

:STR(T*,7,4)=C2* 

: RETURN 
860  DEFFN'87 

:G*(1)=T* 

:data  save  bt  (n=ioo)g*o 
:T*,G*(1)=“  • 

: return 

870  DEFFN'100(N*> 

: GOSUB  '86( ”06" ) 

:STR(T*,11)=N* 

:STR(T*, 17)=Q1* 

: GOSUB  '87 
: PRINT 
: RETURN 

880  GOSUB  '102(11,10) 

: GOSUB  '85 

:IF  LEN(Q1*)=1  THEN  890 
: GOSUB  ' 100( "PFAIL" ) 

890  GOSUB  '102(28,10) 

:GOSUB  '85 

: IF  LEN(Q1*)=1  THEN  900 
•.GOSUB  ' 100(  "NADIS"  ) 

900  GOSUB  '102(42,10) 

: GOSUB  '85 

!IF  LEN(QK)  = 1 THEN  910 
IGOSUB  ' 100 ( "NOSHOW" ) 

910  GOSUB  '102(57,10) 

* rnci  id  * qc 

:IF  LEN ( Q 1 0 = 1 THEN  920 
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:GOSUB  'lOOCSETB"  ) 

920  RETURN 
930  DEFFN ' 85 

:STR<Q1*, 1)  = ".  " 

: J=l 

'.PRINT  " — . -X " ; HEX < 0808080808 ) ? 
940  KEYIN  Q*,  950  , 160 
: GOTO  940 

950  IF  J<4  THEN  960 

: IF  Q*=HEX(08)  THEN  960 
: IF  Q*OHEX(OD)  THEN  940 
: RETURN 

960  IF  QSOHEX  (08)  THEN  970 
SGOTO  1020 

970  IF  Q*OHEX(OD)  THEN  980 
: PRINT 
: RETURN 

980  IF  Q*<HEX  < 30)  THEN  940 

: IF  QOHEX  ( 39 ) THEN  940 
: PRINT  0%; 

:STR<Q1*, J+l, 1 )-Q$ 

: IF  J=2  THEN  990 
: J=J+1 
JGOTO  940 
990  PRINT 

• :j=j+i 

: GOTO  940 

1020  IF  J=1  THEN  940 

: IF  J=3  THEN  1030 
:STR(Q1*, J, 1)=“  " 

: J=J-i 

: PRINT  HEX ( 082D08 ) ; 

: GOTO  940 

1030  STR(Q1$, J, 1)="  H 
: J=J-1 

: PR I NT  HE  X < 08082D2E0808 ) ; 

: GOTO  940 

1040  GOSUB  '102(12,8) 

IGOSUB  '3 

: IF  Ql*="  " THEN  1050 
: GOSUB  ' 100( "MAXCAP" ) 

1050  GOSUB  '102(21,8) 

: GOSUB  '3 

:IF  Ql*=“  " THEN  1060 
‘.GOSUB  'lOOCMINCAP"  ) 

1060  GOSUB  '102(31,8) 

: GOSUB  '3 

:IF  Ql*="  " THEN  1070 
: GOSUB  ' 100 ( "PCAP" ) 

1070  GOSUB  '102(42,8) 

S GOSUB  '3 

:IF  Q1S="  " THEN  1080 


m...  _ ^ . 
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: GOSUB  ' lOOC'ECAP"  > 

1080  GOSUB  '102(53,8) 

: GOSUB  '3 

: IF  Ql$="  " THEN  1090 
: GOSUB  ' 100 ( "SCAP" ) 

1090  RETURN 
1100  DEFFN'90 
1110  GOSUB  '21 

: PRINT  "IF  NO  MORE  EDITING  REQ'D, KEY  RETURN. 

:y=o 

! INPUT  Y 

:0N  Y-5G0T0  1120  ,1130  ,1310  ,1330  ,1350  ,1370 
: IF  YOO  THEN  1110 
: RETURN 

1120  GOSUB  '102(12,1) 

: GOSUB  ' 4 

: IF  Ql*="  M THEN  1121 
! GOSUB  ' 100 ( "SCH" ) 

1121  GOSUB  '102(22, IK 

: GOSUB  '19 

:gi$=k* 

•.GOSUB  ' 100 ( "CTLG"  ) 

: GOSUB  '102(44,1) 

: GOSUB  '5 

: IF  Gl*="  M THEN  1110 
: GOSUB  ' 100( "CRS" ) 

IGOTO  1110 

1130  GOSUB  '102(22,3) 

: PRINT  "—Z"; HEX (08080808): 

: GOSUB  '3 

: IF  Ql*="  ■ THEN  1140 
: GOSUB  ' 1 00 ( " UC AP " ) 

1140  GOSUB  '102(40,3) 

: GOSUB  '4 

:IF  QH="  " THEN  1150 
: GOSUB  ' 100( "PAOB" ) 

1150  GOSUB  '102(54,3) 

: GOSUB  '4 

: IF  Ql*="  “ THEN  1110 
: GOSUB  ' 100 ( "BKLG" ) 

:goto  mo 

1160  DEFFN ' 20 
: 1 = 1 

:Q1*=H  " 

1170  KEYIN  Q* ,11 80  , 160 

:goto  1170 

1180  IF  I <7  THEN  1190 

: IF  Q*=HEX (08 ) THEN  1190 
: IF  Q*OHEX  (00)  THEN  1170 
: RETURN 

1190  IF  QSOHEX  (08 ) THEN  1200 
:GOTO  1290 


V-37 
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1200  IF  Q<<MHEX<OD ) THEN  1210 
: RETURN 

1210  IF  1 = 1 THEN  1220 

: IF  1=3  THEN  12 AO 
: IF  1=5  THEN  1250 
: IF  Q«HEX<30>  THEN  1170 
: IF  QOHEX  (39)  THEN  1170 
: IF  1=6  THEN  1230 
: GOSUB  '91 
: PRINT 
-.GOTO  1170 

1220  IF  QOHEX  (37)  THEN  1170 

:IF  QOHEX  (39)  THEN  1170 

1230  GOSUB  '91 

•.GOTO  1170 

12A0  IF  QOHEX  (30)  THEN  1170 

: IF  QOHEX  (31)  THEN  1170 
:G0T0  1230 

1250  IF  Q<<HEX(30>  THEN  1170 

: IF  QOHEX  (33)  THEN  1170 
:G0T0  1230 

1260  DEFFN'91 

‘.PRINT  Q<; 

:STR(Q1*,I,1)=Q< 

: 1 = 1 + 1 

: RETURN 

1290  IF  1=1  THEN  1170 

: IF  1=3  THEN  1300 
: IF  1=5  THEN  1300 
:STR(Q1<, 1-1,1)="  " 

: 1 = 1-1 

: PR I NT  HEX (082008); 

:C0T0  1170 

1300  STR(Q1*, 1-1,1)="  " 

; 1=1-1 

: PR I NT  HEX ( 0808202F 0808 > ; 

ICOTO  1170 

1310  GOSUB  '102(27,5) 

Z GOSUB  '20 
■PRINT  HEX (OC ) 

: IF  Ql*="  " THEN  1320 
; GOSUB  ' 100< "RDTE" ) 

1320  GOSUB  ' 102( A9, 5) 

: GOSUB  ' 105( "#####" , " , 0) 

:IF  Ql*="  " THEN  1110 
: GOSUB  'lOOC’SUIC") 

‘.GOTO  1110 

1330  COSUB  '102(8,7) 

: GOSUB  ' 1 05 ("t+tttttftt",  “-",0) 

: IF  Ql<="  " THEN  1 3A0 
; COSUB  ' 100 ( "CCMM" ) 

1 3A0  GOSUB  '102(34,7) 
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: GOSUB  ' 

: IF  Ql<^"  ■ THEN  1110 
: COSUB  ' 100( "PRTY" ) 

‘ GOTO  1110 

1350  COSUB  ' 1 02 (15,9) 

: cosub  ' 1.05 ( " tr , "-B ,o) 

: IF  01 " THEN  1360 
: GOSUB  ' 100( "CTYPE” ) 

1360  COSUB  '102(31,9) 

: COSUB  '4 

: IF  Qll-H  “ THEN  1110 
: COSUB  ' 100 ( "PNEC" ? 

: GOTO  1110 

1370  COSUB  '102(13,11) 

: c osub  ' l os  < " i * * 1 t ♦ " , ••  - " , o ) 

1 IF  0 1 1 ~ " - THEN  1780 
: COSUB  MOO  ("OPT!") 

'■  380  COS'  m '102(31,11) 

rCOSUB  ' 1 05 ("  ,0) 

: IF  Ql*="  " THEN  1390 
: GOSUB  ' 1Q0( "OPTS" ) 

1 390  GOSl  m ' 1 02  ( 4 9 ,11) 

:C0SU3  ' 1 05 ("ftf+tf","-",G) 

: IF  Ql<="  " THEN  1110 

: ensue  'ioo("OPT3"> 

JCOTO  1110 

1400  COSUE  '40(5, "ADD  STUDENT/ INSTRUCTOR  RATIO") 

14 10  COSUB  '41 

rCOSUB  '86 ("23") 

: GOSUB  '44(3) 

:STR<T$, ll )-ni$ 

: GOSUB  '42(0) 

: COSUB  '87 

: 'CCSUB  ' 33 ( "RATIO  DATA"  ,"  COURSE"  ) 

: IF  Y=1  THEN  1410 
: RETURN 

1420  GOSUB  '40(5, "CHANGE  CONTACT  HOUR") 

1430  COSUB  '41 

: GOSUB  '44(3) 

: COSUB  '42(1) 

’.GOSUB  ' 33 ( "CONTACT  HOUR  CHANGES"  , "COURSE"  ) 

: IF  Y”1  THEN  1430 
: RETURN 
1440  DEFFN ' 4 1 

: PRINT  HEX (03) 
rCOSUB  '102(4,1) 

! PRINT  "CDP#";C2* 

: RETURN 

1450  DEFFN' 44 (N) 

: GOSUB  ' 102(7, N) 

: PR  I NT  "STUDENT/ INSTRUCTOR  RATIO  * /l" ; HEX (0808080808) 

: GOSUB  '3 
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: IF  Q1$*H  " THEM  1450 
:Nlt~Ql* 

: RETURN 

1460  DEFFN ' 42 ( N ) 

1470  GOSUB  '102(7,5) 

•PRINT  “CONTACT  HOURS  AT  THIS  RATIO  * "J 
:GOSUB  '4 

:IF  01*="  " THEN  1480 
ICOTO  1490 

1480  IF  N=0  THEN  1470 
:COTO  1510 

14-50  IF  NOO  THEN  1500 
:STR(T*, 14) =01* 

:GOTO  1510 
1500  GOSUB  '43( "F2" ) 

1510  GOSUB  '102(7,7) 

: PRINT  “RATIO  TYPE  = " 

! PRINT  TAB (9) ; " 1=LECTURE" 

: PR I NT  TAB ( 9 ) J " 2=LAB " 

: PRINT  TAB ( 9 ) ; " 3=C0MB  LEC/LAB" 

: GOSUB  '102(20,7) 

IGOSUB  ' 105( "#" , ,0) 

:IF  01*="  " THEN  1520 
:GOTO  1530 

1520  IF  N=0  THEN  1510 
: RETURN 

1530  IF  NOO  THEN  1540 
:STR(T*, 18)=Q1* 

•.RETURN 

1540  GOSUB  '43( "F3" ) 

: RETURN 

1550  DEFFN ' 43 (N*) 

: GOSUB  ' 86 ( " 07 " ) 

:STR(T*,11)=N1* 

:STR(T*, 14)=N* 

: STR (T*, 20) =01* 

: GOSUB  '87 
: RETURN 

1560  DEFFN' 31 (N) 

IGOSUB  ' 102(5, N) 

: PR I NT  "INSTRUCTOR  ID(SSN)  

IFOR  J=1  TO  11 
IPRINT  HEX(08); 

:next  j 

: GOSUB  ' 59 

:IF  Ql*="  " THEN  1560 
: I0*=Q1* 

: PRINT 
: RETURN 

1570  GOSUB  '35("ADD", "INSTRUCTOR" ) 

:N1*="  " 

: GOSUB  '31(5) 
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SGOSUB  ' 102(5,7) 

: PRINT  “LAST  NAME" 

1580  gosub  '102(16,7) 

SGOSUB  ' 105(“+ttMtttMMtMV , ,0) 

:IF  Ql*-"  “ THEN  1580 
SSTR(N1*,3)=Q1* 

: PRINT 

: PRINT  " FIRST, MIDDLE  INITIALS" 

1590  GOSUB  '102(27,8) 

: GOSUB  ' 105< "tt",“-",0) 

:IF  Q1S*“  “ THEN  1590 
SSTR(N1*, 1,2)=Q1* 

1500  COSUB  '102(5,10) 

! PRINT  “RATE, RANK  = “; 

: GOSUB  '105(“++ttt",“-",0) 

: IF  Ql*=“  " THEN  1500 
SSTR(T*, 16, 5) =01* 

:GOSUB  '102(5,12) 

: PRINT  "ASSIGNED  T0“ 

: PRINT 

:GOSUB  '55(13) 

: GOSUB  '8G( “24" ) 

SSTR(T*,7,9)=I0* 

:STR(T*,21)=N1* 

SGOSUB  '87 
: GOSUB  ' 124 
: RETURN 
1510  DEFFN'59 
: 1 = 1 

:Ql*=“  “ 

1520  KEYIN  G*, 1530  , 150 
SGOTO  1520 

1530  IF  I<10  THEN  1540 

: IF  Q*=HEX(08>  THEN  1540 
! IF  G*OHEX(OD)  THEN  1520 

• RETURN 

1540  IF  QSOHEX  (08)  THEN  1550 
■.GOTO  1590 

1550  IF  04 CHE X ( 30)  THEN  1520 

: IF  G$>HEX ( 39)  THEN  1520 
*.IF  1=3  THEN  1550 
: IF  1=5  THEN  1550 
1G0SUB  '91 
•.GOTO  1520 
1550  GOSUB  '91 

SPRINT  *-"! 

SGOTO  1620 

1690  IF  1*1  THEN  1520 

SIF  1=4  THEN  1700 
SIF  1=6  THEN  1700 
SSTR(Q1*, 1-1)*"  “ 

Sl-I-l 
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:print  hex(082D08): 

:GOTO  1650 

1700  STR(Q1*, 1-1)*"  " 

: 1=1-1 

: PRINT  HEX ( 080B5D08 ) ; 

IGOTO  1650 
1710  DEFFN'88(N$ > 

!GOSUB  '86( "03" ) 

SSTR(T*,7)=I0* 

SSTR(T*, 16)=N* 

SSTR(T*,55)=Q1* 

S GOSUB  '87 
: RETURN 
1750  DEFFN'95 

SPRINT  HEX < 03) 

JPRINT  " ID  = ";STR(I0*,1,3);“-";STR(I0*,A,S);--";STR(I0*,6,A 
);•  NAME  = " ;STR<N1*«  3,16) 

: RETURN 

1730  DEFFN'ISA 

IGOSUB  '95 
: PRINT 

: PRINT  -01  NAME" ;TAB(57)J" INITIALS" 

: PRINT 

SPRINT  -05  RATE  TAB (57) ;- ACT/DEPT  «" 

SPRINT 

1735  PRINT  "03  REPORT  DATE  = YY/MM/DD  ROTATE  DATE  = YY/MM/DO" 

SPRINT 

SPRINT  "OA  PRIMARY  NEC  * SECONDARY  NEC  =" 

SPRINT 

SPRINT  "05  ADDITIONAL  NECS  =" 

17A0  GOSUB  '51 

SPRINT  "TO  EDIT  REMAINING  INST  DATA,  RETURN 
S Y*6 


[ L S INPUT  Y 

SON  YGOTO  1750  ,1770  ,1780  ,1800  ,1850  ,1850 
SGOTO  17A0 
1750  GOSUB  ' 105(8,5) 

* S GOSUB  '5 

SIF  Ql*="  " THEN  1760 
S GOSUB  '88( "NME" ) 

1760  GOSUB  7 105(36,5) 

S GOSUB  '105("M","-",0) 

SIF  Ql*="  " THEN  17A0 
S GOSUB  '88( " IN" ) 

SGOTO  17A0 

1770  GOSUB  '105(10, A) 

S GOSUB  ' 105  ( "Mft+","-",0) 

SIF  Ql$*-  - THEN  1775 
S GOSUB  '88( "RATE" ) 

SGOTO  1775 

1775  GOSUB  '105(38, A) 

S GOSUB  'A 


V-42 
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I IF  Ql*="  " THEN  1740 
IGOSUB  '88( "SCH" ) 

IGOTO  1740 

1780  GOSUB  '102(17,6) 

IGOSUB  '20 

!IF  Ql*="  " THEN  1790 
IQ1*=STR(Q1«, 1,4) 

: GOSUB  ' 88  < " REP " ) 

IPRINT  HEX (OC ) 

:GOTO  1790 

1790  GOSUB  '102(43,6) 

: GOSUB  '20 

: IF  Ql*=”  “ THEN  1740 
IG1$=STR(Q1$, 1,4) 

: GOSUB  '88( "ROT" ) 

•.PRINT  HEX  (OC ) 

:GOTO  1740 

1800  GOSUB  '102(17,8) 

I GOSUB  '4 

: IF  Ql$="  " THEN  1810 
.•GOSUB  ' 88 ( " PNEC " ) 

1810  GOSUB  '102(39,8) 

• rnts  n '4 

•IF  Ql*-"  " THEN  1740 
: GOSUB  '88( "SNEC" ) 

-.GOTO  1740 

1820  GOSUB  '102(21,10) 

IGOSUB  '4 

I IF  Ql*="  " THEN  1830 
IGOSUB  '88( "NEC3" ) 

1830  GOSUB  '102(28,10) 

IGOSUB  '4 

I IF  QHS"  " THEN  1840 
IGOSUB  '88( "NEC4" ) 

1840  GOSUB  '102(35,10) 

IGOSUB  '4 

I IF  Ql*="  " THEN  1740 
IGOSUB  '88( "NEC5" ) 

IGOTO  1740 
1850  GOSUB  '92 
I PRINT 

•.PRINT  " **N0TEI  ALL  INSTRUCTOR  ACTIVITY  DATA  ARE  HOURS/YEAR" 

I PRINT 

I PRINT  "06  STUDENT  CONTACT  » CURRICULUM  DEVELOPMENT  » 


c 


1860 


I PRINT  "07  CLASS  PREP /RELATED  DUT« 

PRINT  "08  EQUIP-TRNG/MAINT  » 

SPRINT  "09  FORMAL  INST  SCH  • 

SPRINT  "10  SPEC  FLEET  ASSISTANCE- 


INST  TRNG( BREAK -IN)  = — 
CROSS  TRNG ( LOW  STUD  LOAD)- 
FACTORY  TRNG/NK SHOPS  - - 
MIL  DUT/PHYS  TRNG /OTHER 
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1870  PRINT  "11  SUPERVISION/ AOMIN  » ANNUAL  LEAVE  = — 

SPRINT  "12  SICK  LEAVE  = SPECIAL  LIBERTY 

1880  GOSUB  '21 

SPRINT  "IF  NO  MORE  EDITING  REQUIRED, KEY  RETURN."; 

SY=0 

S INPUT  Y 

SON  Y-SGOTO  1890  ,1910  ,1930  ,1950  ,1970  ,1990  ,2010 
SIF  Y>0  THEN  1880 
S RETURN 

1890  GOSUB  '102(21,4) 

S GOSUB  '4 

SIF  011s"  " THEN  1900 
S GOSUB  '88< "CONT" ) 

1900  GOSUB  '102(57,4) 

S GOSUB  '4 

SIF  Ql*«"  " THEN  1880 
S GOSUB  '88( "CDEV" ) 

S GOTO  1880 

1910  GOSUB  '102(26,5) 

S GOSUB  '4 

SIF  Ql*«"  " THEN  1920 
S GOSUB  '88( "PREP" ) 

1920  GOSUB  '102(54,5) 

• cnca n 'a 

SIF  Ql*»"  " THEN  1880  . 

S GOSUB  '88( "BKIN" ) 

SGOTO  1880 

1930  GOSUB  '102(22,6) 

S GOSUB  '4 

SIF  Ql$«*  " THEN  1940 
S GOSUB  '88CEQMT") 

1940  GOSUB  '102(58,6) 

• rnc | c /a 

SIF  Qll*"  " THEN  1880 
S GOSUB  '88( "CTRN" ) 

SGOTO  1880 

1950  GOSUB  '102(21,7) 

S GOSUB  '4 

SIF  Ql*»"  " THEN  1960 
S GOSUB  '88( " ISCH" ) 

1960  GOSUB  '102(55,7) 

S GOSUB  '4 

SIF  Ql*«"  " THEN  1880 
S GOSUB  '88( "FTRN" ) 

SGOTO  1880 

1970  GOSUB  '102(26,8) 

S GOSUB  '4 

SIF  Ql*«"  " THEN  1980 
S GOSUB  '88( "FLET" ) 

1980  GOSUB  '102(58,8) 

S GOSUB  '4 
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: IF  Q1$=H  M THEN  1880 
TGOSUB  ' 88  < " MDUT  M ) 

!GOTO  1880 

1990  GOSUB  7 102(23,9) 

: GOSUB  '4 

: IF  Ql$="  H THEN  2000 
: GOSUB  ' 88 ( " ADMN " ) 

2000  GOSUB  ' 102(47,9) 

: GOSUB  '4 

: IF  Ql*=“  " THEN  1880 
: GOSUB  '88( " ANLV" ) 

:GOTO  1880 

2010  GOSUB  '102(16,10) 

: GOSUB  '4 

: IF  Ql*="  M THEN  2020 
: GOSUB  '88( “SKLV" ) 

2020  GOSUB  '102(50,10) 

: GOSUB  '4 

: IF  Ql*="  u THEN  1880 
: GOSUB  '88( "SLIB" ) 

:GOTO  1880 
2030  DEFFN ' 30  ( N,  N$ ) 

:PRINT  HEX (03) 

: GOSUB  ' 102( 5, N) 

: PR I NT  N*; " DATA  FOR  THE  FOLLOWING  INSTRUCTOR:" 

: RETURN 

2040  GOSUB  '30(4," CHANGE " ) 

: GOSUB  '31(6) 

: GOSUB  '56(8) 

:ni*="  " 

: GOSUB  '124 
: RETURN 

2050  DEFFN' 32 (N) 

: GOSUB  ' 1 02 ( 5 , N ) 

: PRINT  "ASSIGN  FLAG  =" 

: PRINT  " (ENTER  0 IF  NOT  TEACHING  ABOVE  COURSE;  ELSE  ENTER  1 

)" 

: GOSUB  ' 102( 19, N) 

:GOSUB  ' 1 05 0 ) 

: RETURN 

2060  DEFFN ' 33 (N*,M*) 

:GOSUB  '102(5,13) 

: PRINT  "TO  ENTER  ADDITIONAL  " ;N*;"  FOR  THE  ABOVE" 

SPRINT  TAB(5);M*;"  TYPE  1,  ELSE  KEY  RETURN"; 

: Y=0 

: INPUT  Y 
: RETURN 

2070  DEFFN ' 34 (N*> 

S GOSUB  ' 86 ( " 08 " ) 

:STR(T*, 11)=I0* 

:STR(T*,20)=N* 

;STR(T<,26)=Q1« 


JbM: 
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IGOSUB  '87 
: RETURN 

8080  COSUB  '30(0, "ADD  INSTR  ASSIGNMENT" > 

*.GOSUB  '31(8) 

8090  PRINT  HEX(OC) 

' JGOSUB  '108(38,8) 

SPRINT  "IS  X QUALIFIED" 

SPRINT  " TO  INSTRUCT  IN  THE  FOLLOWING  COURSES" 

8100  GOSUB  ' 108(41 ,8) 

• rnq  d o 

SIF  Ql*="  " THEN  8100 
SSTR(T*,80)=Q1$ 

S GOSUB  '55(5) 

S GOSUB  '56(7) 

8110  GOSUB  '38(10) 

SIF  Ql$*"  " THEN  8110 
SSTR(T*,84)=Q1* 

S GOSUB  '86( "86" ) 

SSTR(T*,11,9)=I0* 

S GOSUB  '87 

S GOSUB  '33( "COURSE  ASSIGNMENTS" ," INSTRUCTOR" ) 

SIF  Y=1  THEN  8090 
S RETURN 

8180  GOSUB  '30(0, "CHANGE  ASSIGNMENT") 

S GOSUB  '31(8) 

SPRINT  HEX(OC) 

8130  GOSUB  '55(3) 

S GOSUB  '56(4) 

S GOSUB  '108(5,7) 

SPRINT  "NEW  ASSIGNMENT  DATAS ■ 

SPRINT  " X QUALIFIED  = —X"  S HEX (08080808) ; 

S GOSUB  '3 

SIF  Ql*="  " THEN  8140 
S GOSUB  ' 34 ( "F2" ) 

8140  GOSUB  '38(10) 

SIF  Ql$="  " THEN  8150 
S GOSUB  ' 34 ( "F3" ) 

8150  COSUB  ' 33 ("CHANGES", "INSTRUCTOR" ) 

SIF  Y=  1 THEN  8130 
S RETURN 

8160  DEFFN ' 36 ( N ) 

S GOSUB  '108(5, N) 

SPRINT  "BUILDING /ROOM  NUMBER  = r / ■; HEX ( 080808080808080808 

>; 

S GOSUB  '4 

SIF  Ql*="  " THEN  8160 
SSTR(T*,  U)=Q1* 

SN1*=Q1* 

8170  GOSUB  ' 108(33, N) 

S GOSUB  '4 

SIF  Ql*="  " THEN  8170 
SSTR(T*, 15) =Q1$ 
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HOURS  REQ'D  PER  ";C2*;“  CONV  *■ 


:STR(N1*,5)'Q1* 

: RETURN 
2 IPO  DEPTH ' 37 

:GOSUB  '105(5,9) 

: PR I NT  “ROOM  CAPACITY ( ttSTDT ) ~ ROOM  TYPE  ; 

: PRINT  TABOO) : " ( 1 =LEC , 2=LAB , 3=B0TH,  4-TRNER  ) " 

: PRINT 

:PRINT  " HOURS  REQ'D  PER  ";C2*;“  CONV  = — 

A.R* “ 

: RETURN 

5190  DEFFN ' 3S  ( R > 

5500  GOSUB  '105(56,9) 

: GOSUB  O 

: IF  Ql$<>"  " THEN  5510 
: IF  R=0  THEN  5500 
IGOTO  5530 

3210  IF  ROO  THEN  2550 
:STR(T*, 19) "Ql< 

:GOTO  2230 

5520  GOSUB  ' 39 ( " RMCAP " ) 

2230  GOSUB  '102(44,9) 

:GOSUE  ' 105( ,0) 

:IF  Ql«<>"  " THEN  2240 
: IF  R~0  THEN  2230 
: GOTO  2260 

22'iO  IF  ROO  THEN  2250 
: STR ( T$,  22 ) “91$ 

:GOTO  2260 

2250  COSUB  ' 39  ( " RMTP " ) 

5260  G OSLJB  '102(32,12) 

: GOSUB  '4 

:IF  QUO"  " THEN  2270 


TOT  HR  AVAIL/ YE 


TAE6  REPORT  NO.  36 


10SEPT76  PAGE  20 

PROCRAM  LISTING 

: IF  R=0  THEN  2260 
IGOTO  2290 

2270  IF  ROO  THEN  2280 
JSTR(TS,23)=Q1* 

: GOTO  2290 

2280  COSUB  ' 39( "REQHRS" ) 

2290  COSUB  '102(56,12) 

:GOSUB  ' 105( "#####" , ,0) 

: IF  Ql«>"  " THEN  2300 
:IF  R=0  THEN  2290 
: RETURN 

2300  IF  ROO  THEN  2310 
JSTR(T*,30)=Q1* 

: RETURN 

2310  GOSUB  ' 39( " AVHRS" ) 

: RETURN 

2320  DEFFN ' 39 ( N$ ) 

:GOSUB  '86< "02" > 

JSTR(T*,11)=N1* 

JSTR(T*, 19) =N* 

JSTR(T*,25)=Q1* 

JGOSUB  '87 

* RETURN 

2330  GOSUB  '40(0, "ADD  FACILITY") 

2340  GOSUB  '86 ("25") 

JGOSUB  '36(7) 

:GOSUB  '37 
: GOSUB  '38(0) 

JGOSUB  '87 

JGOSUB  ' 33( "FACILITY  DATA" , "COURSE" ) 

JIF  Y=1  THEN  2340 
J RETURN 

2350  GOSUB  '40(0, "CHANGE  FACILITY") 

2360  GOSUB  '36(7) 

J PRINT 

J PRINT  " REVISED  DATAJ " 

J GOSUB  ' 37 
• GOSUB  9 38 ( 1 ) 

JGOSUB  '33( "FACILITY  CHANGES" , "COURSE" ) 

JIF  Y=1  THEN  2360 

* RETURN 

2370  GOSUB  '40(5, "DELETE  ALL") 

JGOSUB  ' 86 ( " 1 1 " ) 

JGOSUB  '87 
J RETURN 

2380  GOSUB  '40(5, "DELETE  STUDENT / I NSTR  RATIO") 

JGOSUB  '44(12) 

JGOSUB  '86( " 12" ) 

JSTR(T*,11)=N1« 

JGOSUB  '87 
J RETURN 

2390  GOSUB  '40( 5, "DELETE  FACILITY") 
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:pr!nt  HEX (03) 

:GOSUB  ' 86 ( " 1 4 " ) 

:COSUB  '36(7) 

: COSUB  '87 
; RETURN 

2400  GOSUB  '40(2, "DELETE  INSTRUCTOR  ASSIGNMENT") 

2'HO  GOSUB  '31(9) 

: GOSUB  'S6< "27" ) 

:STR(T*, 11 ) = I0* 

: GOSUB  '87 

: COSUB  ' 33 ( "DELETIONS" , "COURSE" ) 

: IF  Y= 1 THEN  2410 
: RETURN 

2430  GOSUB  ' 35 ( "DELETE" ," INSTRUCTOR" > 

IGOSUB  '31(7) 

: GOSUB  ' 56 (10) 

: GOSUB  '86("13") 

:STR(T*,7)=I0* 

: GOSUB  '87 
: RETURN 

24 30  COSUB  ' 35 ( "CHANGE" , "CDP  NUMBER") 

.* GOSUB  '102(1,6) 

: PRINT  "OLD" 

: PRINT 

IGOSUB  '55(6) 

:STR(T$, 1 ) = " 16" 

:STR(T*,7)=C2* 

: GOSUB  '102(1,8) 

: PRINT  "NEW" 

: PRINT 

: GOSUB  '55(8) 

: GOSUB  '56(10) 

!STR(T$, 11)=C2* 

:STR(T*,3,4)=S1* 

: GOSUB  '87 
: RETURN 

2440  GOSUB  ' 35 ( " CHANGE " , " INSTRUCTOR  ID ( SSN ) " ) 

: GOSUB  '102(1,7) 

: PRINT  "OLD" 

: PRINT 

: GOSUB  '31(7) 

:STR(T*,7)=I0* 

: GOSUB  '102(1,9) 

: PRINT  "NEW" 

: PRINT 

: GOSUB  '31(9) 

:STR(T«, 16) =10* 

: GOSUB  '56(11) 

:STR(T*, 1,2)="18" 

:STR(T*,3,4)=S1* 

: GOSUB  '87 
• return 

2450  GOSUB  ' 40 ( 3, "CHANGE  STUDENT / I NSTR  RATIO") 

V-49 
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:gosub  'set "17h) 

IGOSUB  '102(3,10) 

:PRINT  “OLD" 

: PRINT 

CGOSUB  '44(10) 

sss=Qi* 

:GOSUB  '102(3,12) 

: PRINT  "NEW" 

: PRINT 

:GOSUB  '44(12) 

: STR (T*, 1 1 ) =S* 

SSTR(T*,  14)=Q1*  .. 

S GOSUB  '87 
: RETURN 

2460  GOSUB  '40( 3, "CHANGE  BUILDING/ROOM  NUMBER") 

: GOSUB  '86 ("19") 

:GOSUB  '102(1,10) 

: PRINT  "OLD" 

: PRINT 

: GOSUB  '36(10) 

:S*=STR(T«, 11,8) 

: GOSUB  '102(1,12) 

SPRINT  "NEW" 

SPRINT 

S GOSUB  '36(12) 

SSTR(T*, 19)=STR(T*, 11,8) 

SSTR(TS, 11,8)=S* 

S GOSUB  '87 
S RETURN 

2470  GOSUB  ' 35( "CHANGE" , "ACTIVITY/DEPT  CODE") 

S GOSUB  '102(1,6) 

SPRINT  "OLD" 

SPRINT 

S GOSUB  '56(6) 

SSTR(T*, 1 )="20" 

SSTR(T*,3)=S1* 

SSTR(T*,7)=S1* 

S GOSUB  '102(1,10) 

SPRINT  "NEW" 

SPRINT 

S GOSUB  '56(10) 

SSTR(T*,11)=S1* 

S GOSUB  '87 
S RETURN 
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L INE 

MUMPER  CROSS 

REFERENCE 

- D6PR0MPT 

0040 

- 

0010 

0040 

0570 

0070 

- 

00  '*0 

0100 

ooso 

0080 

0080  0080 

0080 

0080 

0110 

- 

0-00 

0 1 20 

- 

0110 

01  AO 

- 

0250 

0270 

0280 

01 50 

- 

0150 

0170 

0180  0190 

0200 

0210 

0160 

- 

0150 

0340 

0380  0940 

1170 

1620 

0 1 70 

- 

0150 

0 1 SO 

- 

0170 

0190 

- 

0170 

0180 

0200 

- 

0190 

0210 

-- 

0200 

0200 

0220 

- 

0180 

0230 

- 

0220 

0240 

-- 

0230 

0270 

0250 

- 

0220 

0260 

- 

0220 

0220 

0220'  0220 

0220 

0250 

0270 

- 

0260 

0260 

0280 

- 

0220 

0310 

- 

0420 

0440 

0450 

0330 

- 

0310 

0340 

- 

0330 

0340 

0360 

0350 

- 

0340 

0360 

- 

0350 

0370 

— 

0330 

0350 

0410 

V-51 
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LINK  MUMBER  CROSS  REFERENCE 


0375  - 0290  0310  0440  0440  0450  0450 

0980  " 0320  0480  0480 

0400  - 0380 

0410  - 0400  ■ 

0420  - 0410 

0450  - 0420 

0480  - 0360  0400 

0500  - 0490 

0510  - 0500 

0530  - 0080 

0540  - 0540 

0550  - 0550 

0560  - 0560 

0590  - 0080 

0600  - 0600 


0620  - 0630 

06-30  - 0620 

0700  - 0700 

0710  - 0700 

0740  - 0730 

0750  - 0740 

0760  - 0750 

0770  - 0760 

0780  - 0770 

0790  - 0780 

0800  - 0700 
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10RFPT76 


PACE  3 


line: 

r II 

i ... 

INREP  ■ 

os  to 

... 

0S50 

OS-50 

- 

0700 

0H8O 

- 

0700 

0S90 

- 

OSSO 

0900 

- 

0390 

0910 

- 

0900 

0950 

-- 

0910 

0940 

- 

0940 

09c.n 

- 

0940 

0960 

- 

0950 

0970 

- 

0960 

COSO 

- 

0970 

0990 

- 

0980 

1050 

- 

0960 

1 030 

- 

1050 

1040 

- 

0700 

1050 

- 

1040 

106.0 

- 

1050 

1070 

- 

106-0 

1080 

- 

1070 

1090 

- 

1080 

1110 

- 

1110 

1390 

1150 

- 

1110 

1 151 

- 

1150 

1130 

- 

1110 

1 1.40 

- 

1130 

0950  09S0  09S0  09S0  0990  1050  1050  1030 


0950 


1151  1151  1150  1150  1350  1350  1340  1340  1360  1360  1390 


t 250  ...  1SJ0 

1290  - 1190 

1300  - 1290  1290 

1310  - 1110 

1320  - 1310 

1330  - 1110 

1 340  - 1330 

1350  - 1110 

1 350  - 1 350 

1370  - 1110 

1 380  - 1 370 

1390  - 1380 

1400  - 0080 

1410  - 1410 

1420  - 0080 


1430 


1430 


V-54 
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1450 
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LINE  NUMBER  CROSS  REFERENCE 


14  80 


1480  1490  1550 


1530 


1560 


0080 


If  00 


.1.650  - 1G30  1630  1650  1650  1650  1660  1690  1690  1700 


1650 


1630  1630 


1640 


1640 


1650 


1690 


1740  - 1740  1760  1760  1775  1775  1790  1790  1810  1810  1840  1840 


1750 


1740 


1750 


1760 


.1770 


1770  1770 


1780  - 1740 


1 


i ; 
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| LINE  NUMSER  CROSS 

1 

REFERENCE 

PAGE  6 

Va/  J 

i 1 790 

1780  1780 

1800 

- 

1740 

t * 

1810 

* 

1800 

4 1820 

- 

1740 

8-P 

1330 

1820 

i y 

1840 

* ! 

| k 

- 

1830 

• 

1850 

- 

1740 

1880 

- 

1880  1900 
2000  2020 

1900  1920 
2020 

1920  1940  1940  1960  1960  1980  1980  2000 

| 1890 

- 

1880 

1 , 

1900 

1890 

1910 

- 

1880 

• 

• 

1920 

1910 

1930 

- 

1880 

• 

\ 1940 

- 

1930 

> 1950 

1960 

.. 

1880 

1950 

jf , 1970 

~ 

1880 

1980 

- 

1970 

, 

« 1990 

- 

1880 

2000 

- 

1990 

• . 

aoio 

~ 

1880 

• 

f 2020 

- 

2010 

j 2040 

~ 

0080  • 

| 2080 

- 

0080 

K.  2090 

- 

2110 

o 

\ 2100 

2100 

L \t 

V?S6 
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E110  - 3110 

3130  - 0080 

3130  - 3150 

3140  - 3130  • 

3150  - 31 AO 

3160  - 3160 

3170  - 3170 

3300  - 3300 

3310  - 3300 

3330  - 3310 

3330  - 3300  3310  3330 

3340  - 3330 

3350  - 33 AO 

3360  - 3330  3340 

3330  - 0080 

3350  - 0080 

3370  - 0080 

3380  - 0080 

3390  - 0080 

3400  - 0080 

3430  - 0080 

3430  - 0080 

3*i  40  - 0080 

3450  - 0080 

3460  - 0080 

3470  - 0080 


. 


— - — — — ■ 


2290  - 2560  2270  2290 

2300  - 2290 


2310  - 2300 

| 2340  - 2340 

If  I 

r ? 2360  - 2360 

I*  i 

2410  - 2410 

F * 


I 


; 
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VARIr-.r'  E CROSS  reference:  - DBPROMPT 


c* 

0230 

0290 

0450 

Ci?t 

- 

00  to 

0540 

0600 

Of!.  ; 

4*660 

0850 

1440 

2180 

\ 

0290 

0330 

<;*  < > 

9010 

0120 

0120 

9860 

0860 

0860 

i 

. 

01  JO 

0140 

0140 

01  70 

01*30 

9990 

0290 

0200 

0200 

0210 

0210 

0220 

0240 

0240 

0240 

9240 

0260 

9270 

0270 

0280 

02*30 

0290 

0290 

0290 

0490 

0490 

0500 

0500 

9570 

0570 

1160 

1180 

1210 

1210 

1210 

1210 

1260 

1260 

1260 

1290 

1230 

1290 

1290 

1290 

1290 

1300 

1300 

1300 

1610 

1700 

1630 

1650 

1650 

1690 

1690 

1690 

1690 

16*30 

1690 

1700 

1700 

14 

— 

0010 

0010 

0010 

0110 

0110 

0150 

0170 

0170 

0180 

0180 

0230 

0240 

0240 

0280 

0240 

0250 

0250 

0250 

0260 

0260 

026.0 

0260 

0270 

0270 

0280 

JO* 

0010 

1560 

1600 

1710 

1720 

1720 

1720 

2070 

2110 

11* 

- 

0010 

0375 

0420 

0420 

TO* 

- 

00  to 

0290 

0290 

0375 

i 

- 

0080 

0080 

0050 

0190 

0290 

0310 

0310 

0310 

0310 

0330 

0330 

0375 

0480 

0480 

0480 

0480 

0930 

0950 

0980 

0980 

0*380 

0980 

0990 

0990 

1020 

1020 

1020 

1020 

1020 

1030 

1030 

1030 

1560 

1560 

J* 

- 

0700 

0720 

JO 

- 

0290 

0290 

0290 

0310 

K* 

- 

0240 

0240 

O 

ru 

* 

o 

0250 

0270 

0280 

0540 

1121 

• 

M* 

- 

0520 

0520 

2060 

2060 

N 

- 

0120 

0600 

0600 

06.10 

0610 

06.20 

0860 

1450 

1450 

1460 

1480 

14*30 

1520 

1530 

1560 

1560 

2030 

2030 

2050 

2050 

2050 

2160 

2160 

2170 

N* 

— 

0010 

0520 

0520 

0580 

0580 

0640 

06.40 

0720 

0720 

0720 

0870 

0870 

1550 

1550 

1710 

1710 

2030 

2030 

206.0 

206.0 

2070 

2070 

Nl* 

- 

0010 

1410 

1450 

1550 

1570 

1580 

1590 

1600 

17.20 

2040 

2160 

2170 

0 

- 

001.0 

Q* 

_ 

0310 

0310 

0340 

0350 

0360 

0380 

0400 

0410 

O 

-C- 

* 

O 

0440 

0450 

0450 

0940 

0950 

0950 

096.0 

0970 

0980 

0980 

0980 

0980 

1170 

1180 

1180 

1190 

1200 

1210 

1210 

1220 

1220 

1240 

1240 

1250 

1250 

1260 

1260 
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VARIABLE  CROSS  REFERENCE 


1620 

1630 

1630 

1640 

1650 

1650 

Q1 

- 

0490 

0500 

0500 

Ql* 

- 

0010 

0290 

0310 

0480 

0540 

0540 

0540 

0550 

0550 

0560 

0560 

0560 

0600 

0600 

06.20 

0620 

0720 

0730 

0740 

0750 

0760 

0770 

0780 

0870 

0880 

0890 

0900 

0*310 

0930 

0980 

1Q20 

1030 

1040 

1050 

106.0 

1070 

1080 

1120 

1121 

1121 

1130 

1140 

1150 

1160 

1260 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

136.0 

1370 

1380 

1390 

1450 

1450 

1470 

1490 

1510 

1530 

1550 

1560 

1560 

1580 

1580 

1590 

1590 

1600 

1600 

1610 

% 

1690 

1700 

1710 

1750 

1760 

1770 

1775 

1780 

1780 

1780 

1790 

1790 

1790 

1800 

1810 

1820 

1830 

1840 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2070 

2100 

2100 

2110 

2110 

2130 

2140 

2160 

2160 

2160 

2170 

2170 

2170 

2200 

2210 

2230 

2240 

2260 

Q5 

- 

0490 

0490 

0490 

R 

- 

0580 

0580 

0580 

0580 

2190 

2200 

2210 

2230 

2240 

R* 

- 

0850 

0850 

i 

SI* 

- 

0010 

0560 

06.10 

0620 

0630 

0850 

• 

T* 

- 

0010 

0540 

0540 

0550 

0560 

0560 

0720 

0720 

0720 

0850 

0850 

0850 

0860 

0860 

0870 

0870 

1410 

1490 

1530 

1550 

1550 

1550 

1600 

1600 

1600 

1710 

1710 

1710 

2070 

2070 

2070 

2100 

2110 

2110 

2160 

2170 

2210 

2240 

W 

- 

0230 

0230 

0230 

W* 

- 

0230 

0230 

Y 

- 

0700 

0700 

0700 

0700 

0700 

0740 

0750 

0760 

0770 

0780 

1110 

1110 

1110 

1110 

1410 

1430 

1740 

1740 

1740 

1880 

1880 

1880 

1880 

2060 

2060 

2110 

2150 

V-60 
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VARIABLE  CROSS  REFERENCE 

C2S  - 2430  2430 

10*  - 2410  2420  2440  2440 

NS  - 2320  2320 

N1S  - 2320  2380 

Q1S  - 2270  2290  2300  2320  2450  2450 

R - 2250  2270  2290  2300 

S*  - 2450  2450  2460  2460 

SI*  - 2430  2440  2470  2470  2470 

T*  - 2270  2300  2320  2320  2320  2380  2410  2420  2430  2430  2430  2430 

2440  2440  2440  2440  2450  2450  2460  2460  2460  2460  2470  2470 
2470  2470 

Y - 2340  2360  2410 
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SPECIAL  FUNCTION  CROSS  REFERENCE  - DBPRONPT 


' 0 - 0160  0570 

' 3 - 0730  0750  0760  0830  1040  1050  1060  1070  1080  1130  1450  5100 

2130  2200 

' 4 - 0740  0840  1120  1140  1150  1360  1470  1775  1800  1810  1820  1830 

1840  1890  1900  1910  1920  1930  1940  1950  1960  1970  1980  1990 
2000  2010  2020  2160  2170  2260 

' 5 - 0550  0845  1121  1750 

' 19  - 0515  0540  1121 


' 20  - 1160  1310  1780  1790 

| ' 21  - 0680  0700  1110  1740  1880 

s ' 30  - 2030  2040  2080  2120 

' 31  - 1560  1570  2040  2080  2120 


) ' 32  - 2050  2110  2140 


1410  1430  2060  2110  2150 

2070  2130  2140 

0520  0530  1570 

2160 

2180 

2190 

2220  2250 

0580  0590  1400  1420 
1410  1430  1440 
1410  1430  1460 
1500  1540  1550 
1410  1430  1450 
0040  0050 

0580  0600  2100  2130 

0580  0610  1600  2040  2100  2130 
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SPECIAL  FUNCTION  CROSS  REFERENCE 


' 59  - 1560  1610 

' 60  - 0130  0515 


/ 

72  - 

0640 

06.50 

0650 

0650 

/ 

80  - 

0660 

0690 

/ 

81  - 

0710 

0730 

0810 

/ 

85  - 

0880 

0890 

0900 

0910 

0930 

/ 

86  - 

0720 

0850 

0870 

1410 

1550 

1600 

1710 

2070 

2110 

/ 

87  - 

0560 

0720 

0860 

0870 

1410 

1550 

1600 

1710 

2070 

2110 

/ 

88  - 

1710 

1750 

1760 

1770 

1775 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

19-30 

2000 

2010 

2020 

/ 

90  - 

06.70 

1100 

/ 

91  - 

1210 

1230 

1260 

1650 

1660 

• 

i 

92  - 

1720 

1730 

1850 

t 

100  - 

0870 

0880 

0890 

0900 

0910 

1040 

1050 

1060 

1070 

1080 

1120 

1121 

1121 

1390 

1130 

1140 

1150 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

/ 

101  - 

0720 

0730 

0740 

0750 

0760 

0770 

0780 

/ 

102  - 

0080 

0490 

0520 

0540 

0540 

0550 

0560 

0580 

0600 

0610 

0620 

0680 

0710 

0740 

0750 

0760 

0770 

0780 

0800 

0820 

0880 

0890 

0900 

0910 

1040 

1050 

1060 

1070 

1080 

1120 

1121 

1121 

1130 

1140 

1150 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1440 

1450 

1470 

1510 

1510 

1560 

1570 

1580 

1590 

1600 

1600 

1750 

1760 

1770 

1775 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

19-30 

2000 

2010 

2020 

2030 

2050 

2050 

2060 

2090 

2100 

2130 

2160 

2170 

2180 

2200 

2230 

2260 

/ 

105  - 

0290 

0540 

0560 

06.00 

0620 

0770 

0780 

0830 

0840 

0845 

1320 

1330 

1340 

2230 

1350 

1370 

1380 

1390 

1510 

1580 

1590 

1600 

1760 

1770 

2050 

/ 

124  - 

1600 

1730 

2040 

/ 

222  - 

0560 

0590 

0650 

V-63 
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SPECIAL  FUNCTION  CROSS  REFERENCE 

' 31  - 2410  2420  2440  2440 

' 33  - 2340  2360  2410 

' 35  - 2420  2430  2440  2470 

' 36  - 2340  2360  2390  2460  2460 

' 37  - 2340  2360 

' 38  - 2340  2360 

' 39  - 2280  2310  2320 

' 40  - 2330  2350  2370  2380  2390  2400  2450  2460 

' 44  - 2380  2450  2450 

' 55  - 2430  2430 

i 

' 56  - 2420  2430  2440  2470  2470 

' 86  - 2320  2340  2370  2380  2390  2410  2420  2450  2460 

' 87  - 2320  2340  2370  2380  2390  2410  2420  2430  2440  2450  2460  2470 

' 102  - 2290  2430  2430  2440  2440  2450  2450  2460  2460  2470  2470 

' 105  - 2290 
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MAINTENANCE  TAPE  CASSETTE  LISTING  PROGRAM 

The  maintenance  tape  cassette  listing  program  OBTAPERD  Is  written  In  BASIC  for 
the  WANG  2200.  OBTAPERD  requires  a single  tope  cassette  drive  and  8K  of  memory 
to  run  special  function  3.  Disk  storage  capability  Is  required  to  run  special 
functions  1 and  2. 

Special  function  1 prints  a hard  copy  listing  of  the  maintenance  transactions 
exactly  as  they  are  stored  on  the  cassette  tope.  After  each  record  Is  read 
and  printed  It  Is  written  to  the  disk  file  "DR-INPUT."  "OB-INPUT"  must  be 
cataloged  prior  to  executing  S.F.  1.  The  amber  of  disk  sectors  required  for 
"DB-INPUT"  Is  a function  of  the  number  of  maintenance  transactions  to  be  written 
in  "DB-INPUT."  Each  transaction  requires  one  disk  sector.  A full  cassette  tape 
contains  approximately  650  transactions. 

Special  function  2 prints  a sequence  numbered  and  formatted  hard  copy  listing 
of  the  maintenance  transactions  contained  In  disk  file  "DB-S0RT2."  "DB-S0RT2" 
should  contain  the  sorted  version  of  "DB-INPUT."  Each  transaction  In  the 
file  Is  sequence  numbered.  All  fields  In  the  transaction  are  labeled  for  easy 
interpretation. 

Special  function  3 prints  a sequence  numbered  and  formatted  h*rd  copy  listing 
of  the  maintenance  transaction  cassette  tape.  S.F.  3 Is  Identical  to  S.F.  2 
except  that  Input  records  are  read  from  the  cassette  tape  rather  than  from 
the  disk  file  "DB-S0RT2." 


V-65 


VARIABLE 

NAME 

F 

I 

Fl$ 

N 

Tl$ 

T2$ 

T3$ 

T4$ 

Z 

Z$ 

Zl$() 


DBTAPERD  VARIABLE  DEFINITIONS 


DEFINITION 

Flag  used  to  differentiate  between  S.F.  2 and  S.F.  3 statements. 
F-l  for  S.F.  2;  F-0  for  S.F.  3. 

Loop  Indexing  variable  used  In  Instruction  display.  Also  used 
as  the  transaction  sequence  counter. 

Alphanumeric  conversion  of  I for  printing  formatted  transaction 
sequence  number. 

Used  to  specify  block-size  equal  to  100  bytes  In  the  DATA  LOAD  BT 
commands. 

Transaction  type. 

Course  CDP  Number. 

Activity/dept  code. 

Maintenance  transaction  bytes  11-50. 

Numeric  conversion  of  the  transaction  type. 

50  byte  maintenance  transaction  (first  50  bytes  of  Zl$()). 

100  byte  maintenance  transaction  from  cassette  tape. 


DBTAPERD  SUBROUTINE  DEFINITIONS 


SUBROUTINE 

NUMBER DEFINITION 

1 Prints  an  unformatted  hard  copy  of  the  maintenance  transactions 
and  writes  the  transaction  tape  on  disk  file  "DB-INPUT." 

2 Prints  a sequence  numbered  and  formatted  hard  copy  of  the  sorted 
transactions  from  disk  file  "DB-S0RT2." 

3 pr1nts  a sequence  numbered  and  formatted  hard  copy  of  the 
maintenance  transaction  cassette  tape. 

9 Converts  I to  11$;  prints  the  sequence  number  and  the  first  two 

fields  of  each  transaction. 

13,  14,  15  Used  for  text  entry. 


4 


m 


10  DIM  Z1*(2)S0,Z*50,T1*2,T2»4,T3*4,T4*40,I1*4 
20  PRINT  HEX (03) 

IFOR  1*1  TO  64 
SPRINT  "*■; 

INEXT  I 

30  PRINT  TAB (15); “DOTS  ACTIVITY  DATA  BASE  MAINTENANCE" 

IPRINT 

I PRINT  "KEY  S.F.  1 TO  OBTAIN  UNFORMATTED  LISTING  OF  TRANSACTION 
TAPE" 

IPRINT  TAB( 11); "AND  WRITE  TAPE  TO  DISK  FILE  'DB- INPUT' . " 

40  PRINT  "KEY  S.F.  2 TO  OBTAIN  NUMBERED/FORMATTED  LISTING  OF  SORTED" 
IPRINT  TAB( 11 ) ; "TRANSACTIONS  FROM  DISK  FILE  'DB-S0RT2' . " 

50  PRINT  "KEY  S.F.  3 TO  OBTAIN  NUMBERED/FORMATTED  LISTING  OF  TRANSAC 
TION" 

IPRINT  TAB(U);"TAPE.  " 

I PRINT 

IFOR  1*1  TO  64 
IPRINT 
INEXT  I 

60  SELECT  PRINT  005(64) 

SEND 

70  DEFFN' 13" NO  NO  DEPT  - 
80  DEFFN' 15"STR(Z*, " 

90  DEFFN' 14";HEX(2020);" 

100  DEFFN' 1 

IPRINT  HEX (03) 

I STOP  "MOUNT  TRANSACTION  TAPE  CASSETTE,  THEN  KEY  CONTINUE" 

IPRINT  HEX(03) 

110  SELECT  PRINT  215(64) 

120  DATA  LOAD  BT  (N*100)Z1*() 

IPRINT  Zl*(l) 

I IF  "END"=STR(Z1*(1),1,3)  THEN  60 
IGOSUB  900 
I GOTO  120 
130  DEFFN '2 

II-l 

I DATA  LOAD  DC  OPEN  R "DB-S0RT2" 

135  DSKIP  990S 

140  SELECT  PRINT  215(64) 

150  F*1 

160  GOTO  190 

170  DEFFN' 3 

II-l 
IF*0 

180  IF  F*1  THEN  190 

I DATA  LOAD  BT  (N-100)Z1*() 

I IF  "END"*STR(Z1<( 1 ) , 1 , 3)  THEN  60 
I GOTO  250 

190  DATA  LOAD  DC  T1*,T2*,T3*,T4* 

195  IF  END  THEN  60 

200  IF  T1*«"EN"  THEN  60 

210  STR(Z1*(1),1,2)«T1* 


I 
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220  STR( Zl*( 1 ) , 3,4 )=T2* 

230  STR(Z1*(1),7,4)=T3* 

240  STR(Z1*(1),11)=T4* 

250  CONVERT  STR < Zl*( 1 ) , 1 , 2)  TO  Z 
SZ*=Z1*(1) 

250  ON  ZGOSUB  270  , 280  , 320  , 270  , 270  , 350  , 380  , 410  , 270  , 
270  , 440  , 470  , 500  , 530  , 270  , 560  , 590  , 620  , 650  , 680 

, 710  , 270  , 740  , 770  , 800  , 830  , 860 

: 1=1+1 

: IF  Z=0  THEN  60 
:GOTO  180 
270  1=1+1 

:GOTO  180 

280  PRINT  “REC  TR" ; TAB ( 33) ; "FIELD  NEW" 

290  PRINT  "NO  NO  DEPT  CDP  BLDG  RM  NAME  VALUE" ; TAB (49) ; " 

*CHG  FAC  DATA" 

300  GOSUB  '9 

JPRINT  STR(Z*,7,4); " ";STR(Z*, 11,4); " ";STR(Z*, 15,4);"  "JSTR< 

Z*, 19,6);"  " ; STR( Z*, 25, 5) 

: PRINT 
.•RETURN 
310  DEFFN'9 

: CONVERT  I TO  II*, <####) 

IPRINT  11*;"  ";STR<z*, 1,2); " ";STR<Z*,3,4);“  •; 

: RETURN 

320  PRINT  "REC  TR" ; TAB < 15) ;" INSTRUCTOR  FIELD  NEW" 

330  PRINT  "NO  NO  DEPT  ID  (SSN)  NAME  VALUE" ; TAB < 49 ); "*CHG 

INST  DATA" 

340  GOSUB  '9 

: PRINT  STR(Z*,7,3);"-";STR(Z*,10,2);"-";STR(Z*,12,4>;"  " ; STR ( Z* 

,16,6);"  " ;STR(Z*,22, 16) 

: PRINT 
: RETURN 

350  PRINT  "REC  TR" ; TAB (21 ); "FIELD  NEW" 

360  PRINT  "NO  NO  DEPT  CDP  NAME  VALUE" ; TAB ( 49 ) ; " *CHG  CRS  DAT 

A" 

370  GOSUB  '9 

: PRINT  STR < Z*, 7, 4); HEX (2020); STR <Z*, 11,6);HEX(2020);STR(Z*, 17, 16 

SPRINT 
: RETURN 

380  PRINT  *REC  TR";TAB(26>; "FIELD  NEW 

390  PRINT  "NO  NO  DEPT  CDP  SIR  NAME  VALUE"; TAB (49); "♦CMC  CR 

S DATA" 

400  GOSUB  '9 

SPRINT  STR( Z*, 7, 4) ; HEX (2020) ; STR ( Z*, 1 1 , 3) ;HEX(2020) ;STR( Z*« 14,6) 
; HEX ( 2020 ) ; STR ( Z*, 20, 4 ) 

SPRINT 
S RETURN 

410  PRINT  "REC  TR" ; TAB (21 );" INSTRUCTOR  FIELD  NEW 
420  PRINT  "NO  NO  DEPT  CDP  ID  (SSN)  NAME  VALUE  *CMG  AS 

GN  DATA" 
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430  GOSUB  '9 

: PRINT  STR(Z*,7,4);HEX(2G20);STR(Z*, 11,3) ;STR(Z*, 14,2);"-"; 
STR ( Z * , 1 6 , 4 ) ; HE X ( 2020 ) ; STR < Z • , 20 , 6 ) ; HEX ( 20 ) ; STR ( Z * , 26 , 4 ) 

SPRINT 

•.RETURN 

440  PRINT  "REC  TRM 

450  PRINT  "NO  NO  DEPT  COP" ; TAB < 49) ; "*DELETE  COURSE- 
460  GOSUB  '9  • 

SPRINT  STR(Z*,7,4) 

SPRINT 
S RETURN 

470  PRINT  -REC  TR" 

480  PRINT  "NO  NO  DEPT  CDP  SIR" ; TAB (49) ; "*DELETE  SIR- 

490  GOSUB  '9 

SPRINT  STR(Z*,7,4) ; HEX (2020) ;STR (Z<, 11,3) 

SPRINT 
S RETURN 

500  PRINT  “REC  TR" ; TAB < 15) ; " INSTRUCTOR" 

510  PRINT  "NO  NO  DEPT  ID  ( SSN ) " ; T AB ( 49 ) ; " ^DELETE  INSTR" 

520  GOSUB  '9 

SPRINT  STR(Z*, 7, 3) ; ;STR(Z*, 10,2) ; ;STR(Z*, 12,4) 

SPRINT 
S RETURN 

530  PRINT  -REC  TR" 

540  PRINT  "NO  NO  DEPT  CDP  BLDG  RM  " ; TAB < 49 ) ; " *OELETE  FACIL" 

550  GOSUB  '9 

SPRINT  STR(Z*,7,4);HEX(2020);STR<Z*,  1 1 , 4) ;HEX (2020) ;STR(Z*,  15,4) 
;HEX  (2020) ; STR  ( Z*,  19, 4 ) 

SPRINT 
S RETURN 

560  PRINT  "REC  TR- ;TAB( 15) ; "OLD  NEW" 

570  PRINT  "NO  NO  DEPT  CDP  CDP ■ ; TAB ( 49 ) ; * *CHG  CDP  NO" 

580  GOSUB  '9 

SPRINT  STR( Z*, 7,4) ;HEX (2020) ;STR(Zt, 11,4) 

SPRINT 
S RETURN 

590  PRINT  -REC  TR“;TAB(21 ) ; "OLD  NEW" 

600  PRINT  -NO  NO  DEPT  CDP  SIR  SIR" ; TAB (49) ; "*CHG  SIR- 

610  GOSUB  '9 

SPRINT  STR(Z*,7,4);HEX(2020);STR(Z*,U,3);HEX(2020);STR(Z*,  14,3) 
SPRINT 
S RETURN 

620  PRINT  "REC  TR" ; TAB( 15) ; "OLD  INSTR  NEW  INSTR" 

630  PRINT  -NO  NO  DEPT  ID  (SSN)  ID  (SSN) ■ ; TAB(49) ; "*CHG  ID  NO 

640  GOSUB  '9 

SPRINT  STR(Z*,7,3);"-";STR(Z*,10,2);"-";STR(Z*,12,4);HEX(2020); 
STR(  Z<,  16,3);  " - " ;STR( Z<,  19,2) ; - - " ;STR ( Z*,21 ,4) 

SPRINT 

• return 

650  PRINT  -REC  TR- ; TAB (21 ) ; "OLD  OLD  NEW  NEW" 

660  PRINT  "NO  NO  DEPT  CDP  BLDG  RM  BLDG  RM  - ; TAB (49) ; "*CHG 
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ROOM  NO" 

670  COS'JB  '9 

: PRINT  STR(Z*,7,A);HEX(2020>;STR<Z*, 1 1 , A ) ; HEX (2020) ; STR < Z*, 15,A> 
;HEX(2020);STP(Z«, 1S,A>;HEX<2020);STR<Z*,23,A> 

: PRINT 
: RETURN 

€80  PRINT  "REC  TR  OLD  NEW" 

€90  PRINT  "NO  NO  DEPT  DEPT" ; TAB (AS) ; "♦CMC  DEPT  NO" 

700  cosue  ' S 

:PPTNT  STR ( Z$, 11, A) 

: PR  I NT 
RETURN 

710  PPTNT  "REC  TR" ; TAB <15? 5 "MEW" ; TAB ( 32) ; "COURSE" 

720  PRINT  "NO  NO  DEPT  CDP  C IN" ; TAB < 32) ; "SHORT  TITLE" ; TAB (AS) ; " 

*ADD  COURSE" 

730  COSUB  ' 9 

: PRINT  STR  < 74, 7 , A ) ; HEX ( 2020 ) ? STR (74,11,10); HEX ( 2020 ) ; STR < Z4, 21 , 1 

€> 

: PR I NT 
: RETURN 

7-0  PRINT  "REC  TR"  ; TAB  <21  ) ",  "NEW  CONT" 

7e:0  PRINT  "NO  NO  DEPT  CDP  SIR.  HOURS  TP" ; TAB< A9) ; "*ADD  SIR" 

7f.0  COSUB  '3 

: PRINT  STR ( Z4, 7, A ) ; HEX ( 2020 ) ; STR  < Z4,  1 1 , 3) ; HEX (2020) ; STR  < Z4, 1 A, A ) 
: HEX (202020); STR (Zi, IS, 1 ) 

: PPTNT 
: RETURN 

770  PRINT  "REC  TP": TAB (IS); "INSTRUCTOR" 

79"  PRINT  "NO  NO  DEPT  ID  <SSN>  RATE  IN  NAME" ; TAB ( A9 );" *ADD 

INSTR" 

790  COSUB  '3 

: PRINT  STR (Z4,7,3);"-"; STR ( Z4 , 10, 2) ; " ; STR ( Z4, 12, A ); HEX (2020) ; 
STR ( Z*, 16,5) ; HEX ( 2020) ; STR ( Z4, 21 , 2) ; " " ; STR < Z$, 23, 16) 

I PRINT 
! RETURN 

800  PRINT  "REC  TR" ; TAB < 31 > ; "RM  RM  REQ" 

810  PRINT  "NO  NO  DEPT  CDP  BLDG  RM  CAP  TP  HRS  AVHRS  *ADD  FA 

CJL" 

820  COSUB  '9 

:PRINT  STR ( Z4 , 7 , A ) ; HE X ( 2u20 ) ; STR (Z$,11,A);”  " ; STR ( Z*, IS, A) ; " "J 
STR  < Z4, 19,3);-  " ; STR < Z$, 22, 1 ) ; HEX (2020) ; STR < Z4, 23, 5) ; " ";STR(Z4, 
30,5) 

•.PRINT 
; RETURN 

830  PRINT  "REC  1R"  ; TAB  (21  );"  INSTRUCTOR  . X." 

8 AO  PRINT  "NO  NO  DEPT  CDP  ID  (SSN)  QUAL  ASN" J TAB ( A9 ) ; " *AD 

f ) ASSIGNMT" 

850  COSUB  '9 

! PRINT  STR ( Z*, 7, A); HEX (2020); STR (Z*, 1 1 , 3) ; " ; STR ( Z*, 1A,2); 

SIR ( Z*, 16, A ) ; HEX ( 2020 ) ; STR ( Z$, 20, A ) ; HEX (2020) ; STR ( Z4, 2A, 1 ) 

‘.PRINT 

•.RETURN 
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860  PRINT  "REC  TR" ; TAB (21 ) ; " INSTRUCTOR" 

870  PRINT  "NO  NO  DEPT  CDP  ID  < SSN ) “ ; TAB ( 49 ) ; “ *DELETE  ASSGN" 
880  G0SU9  '9 

: PRINT  STR<Z*,7,4);hex<2020);STR(Z*,  11,3);  *-“;STR(Z*.  14,2); 
STR(Z$,16,A) 

: PRINT 
: RETURN  . 

900  T1*^STR<Z1*<1 ), 1,2) 

910  T,9*=STR(Z1*<1),3,4> 

920  T3*=-STR(Z1*(1>,7,4) 

930  T'i$-STR<Z1*(1),11> 

940  DATA  LOAD  DC  OPEN  R "DB- INPUT" 

9 SO  DSKIP  END 

960  DATA  SAVE  DC  Tl*, T2», T3*, TA* 

970  DATA  SAVE  DC  END 

980  REM  CET  NEXT  TAPE  RECORD 

990  RETURN 


0060  - 0120  0180  01 95  0200  0260 

0120  - 0120 
01  SO  - 0260  0270 

0190  - 0160  0180 

0260  - 0180 

0270  - 0260  0260  0260  0260  0260  0260  026-0 

0220  - 0260 
0320  - 0260 

0350  - 0260 

0 380  - 0260 

0410  - 0260 

i 

0440  - 0260 

0470  - 0260 

0500  - 0260 

0630  ~ 0260 

0560  - 026-0 

0590  - 0260 

0620  - 0260 
0650  - 0260 

0680  - 0260 
0710  - 0260 

0740  - 0260 

0770  - 0260 

0800  - 0260 
0830  - 026-0 

0860  - 0260 


0900  - 0120 

H3 
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F 

- 0150 

0170 

0180 

I 

- 0020 

0020 

0050 

0050 

0130 

0170 

0260 

0260 

0270 

0270 

0310 

I It 

- 0010 

0310 

0310 

N 

- 0120 

0180 

Tl* 

- 0010 

0200 

0210 

0900 

' 

T2* 

- 0010 

01-30 

0220 

0910 

0960 

T3* 

- 0010 

0190 

0230 

0920 

0960 

T4« 

- 0010 

0190 

0240 

0930 

0960 

2 

- 0250 

0260 

0260 

Z* 

- 0010 

0250 

0300 

0300 

03Q0 

0300 

0300 

0310 

0310 

0340 

0340 

0340 

0340 

0340 

0370 

0370 

0370 

0400 

0400 

0400 

0400 

0430 

0430 

0430 

0430 

0430 

0430 

0460 

0490 

0490 

0520 

0520 

0520 

0550 

0550 

0550 

0550 

0580 

0580 

0610 

0610 

0610 

0640 

0640 

0640 

0640 

0640 

0640 

0670 

0670 

0670 

0670 

0670 

0700 

0730 

0730 

0730 

0760 

0760 

0760 

0760 

0790 

0790 

0790 

0790 

0790 

0790 

0820 

0820 

0820 

0820 

0820 

0820 

9 

0820 

0850 

0850 

0850 

0850 

0850 

0850 

0880 

0880 

0880 

0880 

Zl*<  ) 

- 0010 

0120 

0120 

0120 

0180 

0180 

0210 

0220 

0230 

0240 

0250 

0250 

0900 

0910 

0920 

0930 
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7 1 - 
7 2 - 
' 3 - 
' 9 - 


0100 

0130 

0170 


0300  0310  0340  0370  0400  0430  0460  0490  0520  0550  0580  0610 
0640  0670  0700  0730  0760  0790  0820  0850  0880 


7 13  - 
7 14  - 
7 15  - 


0070 

0090 

0080 
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MAINTENANCE  DATA  FILE  TRANSMISSION  PROGRAM 

The  maintenance  data  file  transmission  program  TC-NCSS  Is  written  In  BASIC 
for  the  WANG  2200.  TC-NCSS  requires  a single  tape  cassette  drive  and/or  a 
disk  storage  unit,  the  General  I/O  ROM  option,  a telecommunications  modem, 
and  8K  of  memory  to  run. 

TC-NCSS  was  originally  written  by  WANG  Laboratories  to  use  the  WANG  System 
as  a telecommunications  terminal  to  communicate  with  the  NCSS  timesharing 
system.  Special  function  10  was  added  to  create  a disk  file  In  the  NCSS 
environment  from  data  stored  In  the  WANG  System  on  either  a cassette  tape 
or  disk  storage  unit. 

Since  TC-NCSS  Is  currently  being  revised  by  WANG  personnel,  only  the  current 
(as  of  10  Sept  76)  program  listing  Is  Included  In  this  manual. 
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PROGRAM  LISTING  - TC-NCSS 


10  REM  “♦TC-NCSS"  10/15/74 

:m=i 

:DIM  E1S1,NS1,ES1,RS1,KS1,TS1 

: 0=23 

:L9=180 

:DIM  B(23),C<23),QS1,RS<23, 180)1, PS1,WS1 

:R,T*l 

:GOTO  430 

11  REM  UPDATED  28  JUL  76 

12  DIM  ZS<2)50,T142,X2S4,T344,T4S40 
20  *IF  ON  /001,  300 

30  KEYIN  TS,  50  , 270 
: IF  P*=R%  THEN  20 
:%1F  ON  #1,  60 

JGOTO  30  JREM  KB/TC/PRT 
40  ♦GI0#1(A200  4000,T2S)RS< ><B(Z),C(Z)> 
:W*=HEX<00> 

50  RS(R,T)=TS 

: IF  TS=ES  THEN  90 
: PRINT  Jt; 

:t=t+i 
:goto  30 
60  Z=VAL(PS> 

:add<ps,oi> 

: IF  PS<QS  THEN  70 
:PS=HEX<01) 

70  KEYIN  TS,  40  , 290 
:ADD(Wt,01) 

: IF  W$<HEX<FF)  THEN  70 
80  ♦GI0#1<A200  4000,T2S)R4< )<B(Z> ,C<Z>> 
:Wt=HEX<00> 

I GOTO  30 
90  PRINT 

:C(R)=T 

:t,d=i 

:r=r+i 

:IF  R<,0  THEN  100 

• p 3 J 

100  KEYIN  TS,  110  , 280 
:tIF  ON  /001, .300 

:goto  ioo 

110  BIN(RS)>R 

:IF  TS-E1S  THEN  130 
120  IF  Tt*NS  THEN  130 

! IF  TS»HEX (00)  THEN  130 
:goto  50 

130  KEYIN  Tt,  120  , 130 
:tIF  ON  /001,  300 
:goto  130 

140  TS«HEX(7F) 

IGOTO  50 

ISO  SELECT  PRINT  210 


.... 
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: PRINT  K*; 

: SELECT  PRINT  OOS 

■ RETURN 

160  KEYIN  K*,  180  , 350 
170  IF  P*=R*  THEN  160 
J*IF  ON  #1,  250 
JGOTO  160 

180  IF  K*=HEXC08>  THEN  200 
JR*(R,T)=K* 

: PRINT  K*; 

:IF  K*=E*  THEN  210 
:GOSUB  150 
:T=T+1 
:GOTO  160 
190  T=1 

:GOTO  160 
200  T-T- 1 

: IF  T<1  THEN  190 
: PRINT  HEX (082008): 

JR*<R,T>="  " 

:GOSUB  150 
:GOTO  160 

210  IF  P$OR*  THEN  250 
: IF  M=2  THEN  240 
220  Z=R 

JADD(P*,01) 

: IF  P*<0*  THEN  230 

:p*=hex<oi> 

230  *GI0/215(A200  4000, T2* )R*( > <B ( Z ) , T> 
240  SELECT  INPUT  219 
IGOSUB  150 
.•GOTO  310 
250  Z=VAL(P*) 

:ADD(P*,01 ) 

: IF  P*<0*  THEN  260 
IP*=HEX<01> 

260  *GI0#1(A2004000,T2*)R*< )<B(Z),T> 
:GOTO  170 
270  T*=HEX(7F) 

SGOTO  50 
280  T*=HEX(7F> 

JGOTO  110 
290  T*=HEX(7F) 

JGOTO  40 

300  SELECT  INPUT  001, PRINT  005 
JGOTO  160 

310  SELECT  INPUT  219, PRINT  OOS, #1215 
JP#,R*=HEX(01) 

jt,r*i 

320  KEYIN  T*,  330  , 330 
J*IF  ON  /001,  300 
JGOTO  320 
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330  ON  MGOTO  340 
: PRINT  T*; 

SGOTO  320 

340  IF  T*=E1*  THEN  30 
: IF  T*=N*  THEN  320 
: IF  T*=HEX(0O)  THEN  320 
SGOTO  SO 

350  ON  VAL(KO-l  1G0T0  360  , 370  , 420  , 450  , 700 

SPRINT 

SHEXPRINT  Kf, 

SPRINT 
SGOSUB  150 
SGOTO  160 
360  DEFFN' 12 
: M=  l 

S SELECT  PRINT  005 
SPRINT  "KB/TC/CRT/PRT" 

SGOTO  310 
370  DEFFN ' 1 3 
SM=2 

S SELECT  PRINT  005 
SPRINT  "KB/TC/CRT" 

SGOTO  310 
380  DEFFN' 14 

S SELECT  INPUT  001, PRINT  215 
390  INPUT  "0=PAGE  EJECT  N=#  LINES", Z 
SIF  Z«0  THEN  400 
SFOR  M*1  TO  Z 
SPRINT  TAB(l) 

SNEXT  M 
SGOTO  410 
400  PRINT  HEX (OC ) 

410  SELECT  PRINT  005 
S RETURN 

420  GOSUB  380 
SGOTO  450 

430  SELECT  INPUT  001, PRINT  005 
440  FOR  Z*1  TO  Q 

SB<Z)=Z*L9-<L9-1) 

SNEXT  Z 
SBIN<Q*)*Q 
450  DEFFN' 15 

S SELECT  PRINT  005 < 64) 

460  PRINT  HEX (03),, "WANG  2200-B  TELECOMMUNICATIONS" 

470  IF  E*<>"  " THEN  480 
SGOSUB  560 

480  PRINT  " KEYBOARD  INTERACTION  WITH  T.C.  AUTO-OUTPUT  TO  LINE  PRIN 
TER  " 

490  PRINT  "REQUIRES  2200-B  <8K)  CRT/KEYBOARD  AND  2227  BOARD" 

500  PRINT  " WITH  OPTION  2 I/O  ROM" 

510  PRINT  "S.F. '12  CRT/PRINTER  OUTPUT" 

520  PRINT  "S.F. '13  CRT  OUTPUT" 


V-78 
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530  PRINT  "S. F. ' 14  EJECT  PRINTER  PAGE- 

540  PRINT  "S.F. ' 15  DISPLAY  OF  S. F. POSSIBILITIES" 

550  STOP  "KEY  APPROPRIATE  SPECIAL  FUNCTION- 

560  PRINT  "ENTER  END  OF  LINE  SEQUENCE  IN  HEX,  EG. " 

570  PRINT  " CR/LF/7F  = 00  OA  7F" 

580  PRINT  " CR/LF/OO  = 00  OA  00" 

590  PRINT  " LF/CR/7F  = OA  00  7F“ 

600  GOSUB  610 

:e*=t* 

: GOSUB  610 
:E1*=T* 

: GOSUB  610 
:N*=T* 

: RETURN 

610  GOSUB  620 

:R0TATE<W*,4> 

:and  <W*,FO> 

:t*=w* 

: GOSUB  620 
: AND  <W*,OF> 

:or  <T*,W*) 

:print  -/-; 

: RETURN 

620  KEYIN  K*,  630  , 620 
:GOTO  620 
630  W*=K* 

: IF  W*<"0“  THEN  620 
:IF  W*<=-9"  THEN  t.40 
:IF  W*<" A"  THEN  620 
: IF  W*>"F"  THEN  620 
:AD0(W«,F9) 

640  PRINT  K*; 

: RETURN 
700  DEFFN'10 

710  DATA  LOAD  DC  OPEN  R "DB-SORT" 

715  DSKIP  377S 

720  INIT<00)T1*,X2*,T3*,T4* 

740  GOSUB  900 
745  IF  T1*="EN"  THEN  800 
750  SELECT  PRINT  21D 
760  FOR  L=1  TO  ISO- 
SNEXT  L 

770  PRINT  Z*(l); 

785  PRINT  HEX(ODOA); 

787  SELECT  PRINT  215(64) 

:print  z*(1);hex<odoa) 

790  SELECT  INPUT  219, PRINT  215,  #1215 
:P*,R*=HEX(01) 

• j p- j 

791  KEYIN  T*,  792  , 792 

792  R*<R,T)=T* 

:hexprint  t*; 
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10SEPT76 
PROGRAM  LISTING 

:T=T+1 
IGOTO  794 

) 793  *IF  ON  /219,  740 

794  KEYIN  T*,  792  , 792 
: IF  P*=R*  THEN  793 
: GOTO  794 

800  SELECT  PRINT  21D 

: PRINT  HEX ( OOOAODOA ) , "FILE" 
IGOTO  310 
900  REM 

910  DATA  LOAD  DC  Tl*, X2*,T3*,T4* 
912  IF  T1*=-EN"  THEN  960 
915  IF  END  THEN  960 
920  STR<  Z$( 1),1,2)=T1* 

930  STR(Z*(1),3,4)*X2* 

940  STR<Z*<l),7,4)=T3t 

950  STR<Z<<1),11,40)=T4* 

960  RETURN 
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10SEPT76 

LINE  NUMBER  CROSS  REFERENCE  - TC-NCSS 


PAGE  1 


0020  - 0030 


0030  - 0030  0050  0080  0340 


0040  - 0070  0290 


0050  - 0030  0120  0140  0270  0340 


0050  - 0030 


0070  - 0060  0070 


0090  - 0050 


0100  - 0090  0100 


0110  - 0100  0280 


0120  - 0130 


0130  - 0110  0120  0120  0130  0130 


0150  - 0180  0200  0240  0350 

0160  - 0170  0170  0180  0190  0200  0300  0350 


0170  - 0260 


0180  - 0160 


0190  - 0200 


0200  - 0180 

0210  - 0180 


0230  - 0220 


0240  - 0210 


0250  - 0170  0210 


0260  - 0250 


0270  - 0030 


0280  - 0100 


0290  - 0070 

0300  - 0020  0100  0130  0320 
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10SEPT76  PACE  2 

LINE  NUMBER  CROSS  REFERENCE 


0310  - 0540  0360  0370  0800 

0320  - 0320  0330  0340  0340 

0330  - 0320  0320 

0340  - 0330 

0350  - 0160 

0360  - 0350 

0370  - 0350 

0380  - 0420 

0400  - 0390 

0410  - 0390 

0420  - 0350 

* 

0430  - 0010 

0450  - 0350  0420 

i 

0480  - 0470 

0560  - 0470 

0610  - 0600  0600  0600 

0620  - 0610  0610  0620  0620  0630  0630  0630 

0630  - 0620 

0640  - 0630 

( 

0700  - 0350 

0740  - 0793 

0792  - 0791  0791  0794  0794 

0793  - 0794 


0794  - 


0800  - 
0900  - 


0792  0794 

0745 

0740 


0960  - 0912  0915 
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10SEPT76 

VARIABLE  CROSS  REFERENCE 


- 0040  0080  0230  0260 


- 0010  0040  0080  0230  0260  0440 


- 0010  0040  0080  0090 


- 0090 


- 0010  0050  0180  0470  0600 


- 0010  0110  0340  0600 

- 0610 


- 0630 

-0010  0150  0160  0180  0180  0180  0180  0350  0350  0620  0630  0640 


- 0760  0760 

- 0010  0440  0440 


- 0010  0210  0330  0360  0370  0390  0390 


- 0010  0120  0340  0600  . 


0010  0030 
0250  0250 


0060  0060  0060 
0250  0310  0790 


0060  0170  0210  0220  0220  0220  0250 
0794 


- 0010  0090  0440  0440 


- 0010  0060  0220  0250  0440 


0010  0050 
0790  0792 


0090  0090  0090  0090  0090  0110  0180  0200  0220  0310 


R*  - 0010  0030  0110  0170  0210  0310  0790  0794 

R*<>  - 0010  0040  0050  0080  0180  0200  0230  0260  0792 


0010  0050 
0200  0200 


0050  0050  0090 
0230  0260  0310 


0090  0180  0180  0180  0190  0200  0200 
0790  0792  0792  0792 


0010  0030 
0270  0280 
0610  0791 


0050  0050  0050 
0290  0320  0330 
0792  0792  0794 


0070  0100  0110  0120  0120  0130  0140 
0340  0340  0340  0600  0600  0600  0610 


- 0012  0720  0745  0912  0920 

- 0040  0080  0230  0260 


- 0012  0720  0910  0940 
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10SEPT76  PAGE  5 

VARIABLE  CROSS  REFERENCE 


T4* 

- 0012 

0720 

0910 

0950 

W* 

- 0010 
0630 

0040 

0630 

0070 

0630 

0070 

0630 

0080 

0610 

0610 

0610 

0610 

0610 

0630 

0630 

X2» 

- 0012 

0720 

0910 

0930 

Z 

- 0040 
0440 

0040 

0440 

0060 

0440 

0080 

0440 

0080 

0220 

0230 

0250 

0260 

0390 

0390 

0390 

Z*<) 

- 0012 

0770 

0787 

0920 

0930 

0940 

0950 

10SEPT76  PAGE  6 

SPECIAL  FUNCTION  CROSS  REFERENCE 


' 10  - 0700 

7 12  - 0360 

' 13  - 0370 

' 14  - 0380 

' 15  - 0450 
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NCSS  MAINTENANCE  TRANSACTION  PROCESSOR 

The  general  flow  of  all  of  the  Maintenance  Items  In  the  DOTS  system  are 
In  Figure  1-1.  The  specific  transaction  types  are  presented  earlier  In 
this  section  In  Table  V-1. 

* 

All  maintenance  transactions  originate  at  the  WANG  computer.  For  a given 
maintenance  run,  all  transactions  are  accumulated  onto  a single  transaction 
tape.  Each  transaction  Is  Identified  by  a format  number;  the  transactions 
appear  on  the  tape  In  sorted  order  by  this  format  number.  A specific  mainte- 
nance run  may  be  made  with  one  or  an  Indefinite  number  of  transactions  of 
any  one  or  all  formats. 

Once  the  tape  has  been  transferred  to  the  NCSS  system,  the  transactions 
reside  In  a specific  NCSS  file  Identified  by  a filename  and  flletype.  To 
Initiate  the  action  which  will  ultimately  result  In  presentation  of  the 
transaction  data  to  the  RAMIS  system  for  execution*,  two  executive  sequences 
are  significant.  The  executives  (SUPER  and  SUPERX)  have  been  provided  to 
control  the  software  at  the  NCSS  computer.  The  usage  of  SUPER  and  SUPERX 
was  covered  In  Section  II  of  this  document  and  will  not  be  reproduced  here. 

An  elaborate  method  of  accomplishing  RAMIS  maintenance  within  the  NCSS 
system  was  adopted  to  obviate  the  necessity  of  requiring  that  the  system 
users  be  highly  trained  In  the  details'  of  the  RAMIS  system.  The  major  de- 
sign criteria  has  been  to  accomplish  the  maxlimm  amount  of  maintenance  while 
requiring  a minimum  amount  of  data  to  be  user-provided. 

Table  V-1  makes  reference  to  "single/multiple  step"  maintenance.  A specific 
maintenance  objective  Is  considered  single  step  If  all  of  the  Information 
required  for  processing  has  been  provided  by  the  user.  As  an  example, 
consider  the  change  of  a length  field  for  a certain  training  course.  The 
user  must  provide  the  course  CDP  number  to  Identify  the  course  of  concern; 
the  name  of  the  length  field  and  the  new  lengh  value  are  also  obtained 
directly  from  the  user.  During  NCSS  processing,  this  data  can  be  accumulated 
Into  a single  RAMIS  UPDATE  function;  Immediate  processing  Is  possible. 

Transaction  formats  13,  15,  16,  17,  18,  19,  and  20  are  tagged  as  multiple 
step  formats  In  Table  V-1.  Consider  a format  20  operation  which  causes  a 
change  In  an  existing  school  code  in  all  three  DOTS  files.  School  code 
Is  not  a key  field  In  either  of  the  three  files.  To  effect  the  change  In 
the  Course  or  Facilities  files,  the  course  CDP  nianbers  of  all  of  the  records 
of  the  existing  school  must  be  located.  For  the  Instructor  file,  the  Instruc- 
tor ID's  of  all  records  tagged  with  the  existing  school  must  be  located.  Thus, 
change  of  an  existing  school  code  results  In  two  distinct  RAMIS  functional 
steps  for  each  file.  First,  all  records  bearing  the  original  school  code  are 
located  and  the  record  highest  level  key  field  value  Is  written  Into  a RAMIS 
spinoff  utility  file.  Second,  the  key  values  saved  In  the  spinoff  file  are 
used  as  Input  to  a RAMIS  CHANGE  function  to  direct  school  code  change  In  the 
required  records.  These  six  RAMIS  steps  are  accomplished  while  requiring 
the  user  to  provide  only  the  old  and  the  new  school  codes  to  Initiate  the 
operation. 
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Figure  V-4  Is  a pictorial  presentation  of  the  Methods  that  were  considered 
In  the  iMplaM^htatlon  of  the  RAMIS  Maintenance  activities  for  the  DOTS 
systeM.  Each  indicates  transaction  Input  data  being  extracted  frow  a 
file  and  refonntted  Into  a forw  suitable  for  RAMIS  systeM  Input.  The 
processing  of  the  Input  transaction  file  Is  accoMpllshed  by  a PL/1  prograM 
called  SUPRPGM. 

The  Maintenance  logic  Indicated  at  the  top  of  Figure  V-4  was  not  iMplewented 
as  an  Indetenalnate  nuwber  of  RAMIS  function  libraries  (Maintenance  utility 
files  on  Figure  1-1)  would  be  required. 

The  paths  of  logic  Indicated  In  circles  on  Figure  V4  (tagged  with  letters 
"A"  through  "E",  Inclusive)  Indicate  the  routes  chosen  for  transaction 
processing.  In  the  sections  following,  each  transaction  foraat  Is  Indi- 
vidually covered  In  detail;  In  these  sections  the  type  (A-E)  Is  Indicated 
for  each  unique  transaction  fomt. 
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NCSS  SOFTWARE  NAMING  CONVENTIONS 

In  the  sections  following,  which  cover  transaction  processing  In  detail  within 
the  NCSS  software,  a consistent  naming  convention  was  adopted  as  Indicated 
In  the  following  table.  Note  that  all  software  Items  are  stored  In  the  NCSS 
system  In  a unique  file.  Identified  by  a filename  and  a flletype: 

In  the  table,  a lower-case  NnH  Indicates  a decimal  digit,  0-9.  A lower-case 
letter  "4"  Indicates  an  alphabetic  character,  A-Z. 


Software  Item 

Filename 

Flletype 

Example 

NCSS  Executives 

MnnEXa 

EXEC 

M18EXB/EXEC 

Source  Programs* 

MPGMn 

PLI 

MPGM3/PLI 

RAMIS  Run  Procedures 

MnnRPa 

RUNPROC 

M20RPA/RUNPR0C 

RAMIS  Maintenance 
Functions 

FACILn 

INSTn 

COURSEn 

RAM 

C0URSE2/RAM 

* The  Transaction  Processing  Program  Is  called  SUPRPGM/PLI. 
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RAMIS  INDICATORS  IN  RUN  PROCEDURE  MESSAGES 

Formats  13,  15,  16,  17,  18,  19,  and  20  maintenance  transactions  require  one  or 
more  RAMIS  Run  Procedures  during  their  execution  phase.  Messages  (error  and 
normal)  which  originate  within  these  Run  Procedures  have  been  phrased  In  a 
consistent  manner  throughout.  The  following  Is  an  example  taken  from  Run 
Procedure  M17RP  execution,  during  the  processing  of  a format  17  transaction: 

TRANSACTION  NUMBER  43  - COURSE  FILE  PROCESSING  ONLY 
NO  ERRORS  DETECTED  IN  STEP3  ; RAMIS  INDICATORS  ARE  : 

0 , 0 , 0 , 0 , 

3 , 0 , 3 , 0 

The  various  messages  that  refer  to  "RAMIS  Indicators"  are  followed  by  an 
output  of  a 2-row,  4-column  matrix  of  numbers,  as  shown  above.  After  each 
RAMIS  function  has  been  executed,  three  to  eight  statistics  concerning  the 
operation  of  the  function  are  maintained  Internal  to  the  RAMIS  system.  These 
quantities  can  be  printed  to  assist  the  user  In  recovery  In  the  event  of  an 
error.  The  Indicator  names  and  their  position  In  the  output  array  are  as 
follows: 

ACOND  , ANOKEYS  , AREJECTS  , ARECOROS  , 

ACHANGES  , AINPUTS  , ATRANS  . ALINES 
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The  meaning  associated  with  these  Internal  statistical  Indicators  Is 
explained  below: 

&C0ND  - Completion  Indicator;  zero  (0)  If  the  activity 
completed  normally;  (16)  If  an  error  occurred. 

MOREYS  - The  total  number  of  records  rejected  with  a NOKEY 
error  Indication. 

&REJECTS  - The  total  number  of  records  rejected  with  FORMAT, 
UPPER,  or  LOWER  bound  errors. 

&REC0RDS  - The  number  of  records  retrieved  In  TABLE,  TABLEF, 
GRAPH,  DUMP,  or  REPORT  mode.  If  the  previous 
function  was  not  one  of  these,  this  Indicator  will 
be  zero. 

&CHANGES  - The  total  number  of  records  that  were  changed, 
updated,  or  deleted. 

&INPUTS  - The  number  of  new  records  Input  to  the  RAMIS  file. 

&TRANS  - When  In  data  management  mode,  the  number  of  logical 
Input  transactions  processed. 

ALINES  - For  TABLE  and  GRAPH  Modes,  the  number  of  lines  of 
output  generated.  When  In  data  management  mode, 
this  Indicator  Is  an  accumulation  of  the  number  of 
miscellaneous  rejected  records  which  use  the  standard 
system  format. 
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NCSS  MAINTENANCE  TRANSACTION  PROCESSING  PROGRAMS 


TRANSACTION  FORMAT  : 2 

FUNCTION  : Second  Level  Non-Key  Field  Changes  to  Facilities 
File 

DATA  BASE(S)  MODIFIED  : Facilities  File 

TRANSACTION  TYPE  : General  Type  B 

Single  Step  RAMIS  Execution 

TRANSACTION  FILE  Filename/ FI letype  * DSC/RAM 

EXECUTION  SEQUENCE  : 17 

This  transaction  serves  to  effect  apy  changes  required  In  non-key  fields  of 
the  second  level  (Buildlng/Room)  segment  of  the  DOTS  Facilities  file. 

For  changes  required  In  the  key  fields  of  the  lower  level  segment,  i.e., 
building  or  room,  see  transaction  Format  19. 

The  name  of  the  field  to  be  modified  Is  carried  along  In  columns  19-24  of 
the  Input  transaction.  The  allowable  non-key  field  names  are: 


Field  Name 

Format 

RMCAP 

13 

Room  capacity 

RMTP 

A1 

Room  type 

REQHRS 

F6.1 

Required  hours 

AVHRS 

15 

Available  hours 
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TRANSACTION  FORMAT 
FUNCTION 
DATA  BASE(S)  MODIFIED 
TRANSACTION  TYPE 

TRANSACTION  FILE 
EXECUTION  SEQUENCE 


First  Level  Non-Key  Field  Changes  to  Instructor  File 

Instructor  File 

General  Type  B 

Single  Step  RAMIS  Execution 


Filename/FIletype 

18 


DSC/RAM 


All  changes  to  non-key  fields  on  the  first  (highest)  level  of  the  DOTS  In- 
structor file  are  initiated  via  Format  3 input  transactions. 


For  changes  to  be  made  to  the  high  level  key  field  (Instructor  ID),  see  the 
discussion  of  Format  18  transactions. 


The  name  of  the  non-key  field  and  its  change  value  are  both  a part  of  the 
input  transaction.  The  allowable  non-key  field  names  and  their  formats  are 
as  follows: 


Field  Name 

Format 

NME 

A16 

Instructor  surname 

hi 

A2 

Initials 

RATE 

AS 

Rate 

SCH 

A4 

School  code 

REP 

14 

Reporting  date 

ROT 

14 

Rotate  date 

PNEC  * 

A4 

Primary  NEC 

SNEC 

A4 

Secondary  NEC 

NEC3 

A4 

Third  NEC 

NEC4 

A4 

Fourth  NEC 

NEC5 

A4 

Fifth  NEC 

CONT 

14 

Student  contact  hours 
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Field  Name 

Format 

CDEV 

14 

Curriculum  development  hours 

EQMT 

14 

Equipment  maintenance  hours 

PREP 

14 

Class  preparation  hours 

BKIN 

14 

Instructor  break-in  hours 

CTRN 

14 

Instructor  cross-training  hours 

FTRN 

14 

Factory  training  hours 

MDUT 

14 

Military  duty  hours 

ISCH 

14 

Instructor  training  school  hours 

FLET 

14 

Fleet  assistance  hours 

ADMN 

14 

Administrative  hours 

ANLV 

14 

Annual  leave  hours 

SKLV 

14 

i 

Sick  leave  hours 

SLIB 

14 

Special  liberty  hours 
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TRANSACTION  FORMAT 
FUNCTION 

DATA  BASE(S)  MODIFIED 
TRANSACTION  TYPE 

TRANSACTION  FILE 
EXECUTION  SEQUENCE 


Non-Key  Changes  to  the  High  Level  Segment 
of  the  Course  File 

Course  File 

General  Type  B 

Single  Step  RAMIS  Execution 

Fllename/Flletype  ■ DSC/RAM 

19 


Format  6 Input  transactions  are  used  to  cause  change  to  non-key  fields 
within  the  high  level  segment  of  a Course  file  record. 

The  key  field  of  the  high  level  segment  (course  CDP  number)  Is  changed 
via  Format  16  Input  transactions. 

Within  a single  Format  6 transaction  Is  Included  both  the  name  of  the  non- 
key field  subject  to  change  and  Its  change  value.  The  table  following  Indi- 
cates the  legal  choices  for  non-key  fields  and  their  formats: 


Field  Name 

Format 

SCH 

A4 

School  code 

CTLG 

A10 

Course  CIN  number 

CRS 

A16 

Course  title 

C0NV1 

13 

CFY  convening  frequency 

LEN1 

14 

CFY  course  length 

CAP1 

13 

CFY  class  capacity 

BCAP1 

13 

CFY  BUPERS  capacity 

DMD1 

15 

CFY  annual  demand 

BDMD1 

15 

CFY  BUPERS  annual  demand 

PFAIL 

F5.3 

Failure  rate 

NADIS 

F5.3 

Non-academic  dlsenrollment  rate 

NOSHOW 

F5.3 

No-show  rate 
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Field  Name 

Format 

SETB 

F5.3 

Setback  rate 

BKL6 

I* 

Backlog  weeks 

MAX CAP 

14 

Maximum  quota  for  one  class 

CONV2  • 

13 

CFY+1  convening  frequency 

LEN2 

14 

CFY+1  course  length 

CAP2 

13 

CFY+1  class  capacity 

BCAP2 

13 

CFY+1  BUPERS  class  capacity 

0MD2 

15 

CFY+1  annual  demand 

B0MD2 

15 

CFY+1  BUPERS  annual  demand  . 

C0NV3 

13 

CFY+2  convening  frequency 

LEN3 

14 

CFY+2  course  length 

i 

CAP3 

13 

CFY+2  class  capacity 

BCAP3 

13 

CFY+2  BUPERS  class  capacity 

DMD3 

15 

CFY+2  annual  demand 

BDMD3 

15 

CFY+2  BUPERS  annual  demand 

M INCAP 

14 

Minimum  number  quotas  for  one  class 

PRTY 

12 

Training  priority  designator  code 

CTYPE 

A2 

NITRAS  class  type 

PNEC 

A4 

Primary  NEC  awarded 

UCAP 

13 

Course  utilization 

ROTE 

16 

Date  next  curriculum  review 

SUIC 

A5 

Staff  unit  Identification  code 

CCMM 

AlO 

Course  curricula  model  manager 

0PT1 

A6 

Optional  use  field 

0PT2 

A6. 

Optional  use  field 

0PT3 

A6 

Optional  use  field 

■ 
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Field  Name 

Format 

ECAP 

13 

Class  capacity  based  on  equipment 

SCAP 

13 

Class  capacity  based  on  space 

PCAP 

13 

Class  capacity  based  on  billets 

PAOB 

14 

Planned  average  number  of  students  on-board 
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: 7 

: Non-Key  Field  Changes  to  Student/Instructor  Ratio 
(SIR)  Segment  In  the  Course  File 

: Course  File 

: General  Type  B 

Single  Step  RANIS  Execution 

: Fllename/Flletype  » DSC/RAM 

: 20 


Format  7 Input  transactions  Introduce  changes  Into  the  non-key  fields 
of  a student/ Instructor  ratio  (SIR)  se^nent  of  a Course  file  record.  The 
SIR  segnent  Is  the  second  level  segment;  modifications  to  the  key  field 
of  the  SIR  segment  (the  SIR,  Itself)  are  accomplished  by  Fonaat  17  trans- 
actions. 

The  actual  name  of  the  non-key  field  and  Its  change  value  are  both  a part 
of  the  Format  7 Input  transaction.  The, al lovable  non-key  field  names  and 
their  formats  are  as  follows: 

Field  Name  Format 

F2  14  Instructional  contact  hours  at  the  given 

SIR  ratio 

F3  II  Theory/laboratory  Instruction  flag;  a 1 

Indicates  a lecture  session,  a 2 Implies 
laboratory;  a 3 Indicates  both  lecture 
and  laboratory 


TRANSACTION  FORMAT 
FUNCTION 

DATA  BASE(S)  MODIFIED 
TRANSACTION  TYPE 

TRANSACTION  FILE 
EXECUTION  SEQUENCE 


o 
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TRANSACTION  FORMAT 

FUNCTION  : 

DATA  BASE(S)  MODIFIED  : 
TRANSACTION  TYPE 

TRANSACTION  FILE 
EXECUTION  SEQUENCE 


8 

Non-Key  Field  Changes  of  Instructor  Segment  In  the 
Course  File 

Course  File 

General  Type  B 

Single  Step  RAMIS  Execution 

Fllename/Flletype  > DSC/RAM 

21 


A Format  8 Input  transaction  serves  to  effect  a change  to  a non-key  field 
within  an  Instructor  segment  of  a Course  file  record.  The  Instructor  seg- 
ment Is  the  lower  level  segment,  controlled  by  the  Instructor  ID  key  field. 

Changes  to  Instructor  ID  are  accomplished  via  Format  18  Input  transactions. 

The  action  of  a Format  8 operation  produces  a change  In  the  non-key  field 
only  of  the  lower  level  segment.  The  high  level  segment  (key  field  * 
course  CDP  number)  remains  unchanged. 

Within  the  Format  8 transaction  are  contained  the  name  of  the  field  to  be 
changed  and  Its  change  value..  The  following  lists  the  acceptable  field  names 
and  their  formats: 


Field  Name 

Format 

F2 

14 

The  portion  (In  X)  of  the  total  curriculum 
that  the  Instructor  of  this  segment  Is 
qualified  to  teach 

F3 

11 

Assignment  flag;  a 1 indicates  that  the 
Instructor  Is  currently  assigned  to  this 
course;  a 0 (zero)  Indicates  that  the  In- 
structor Is  not  assigned,  even  though  he 
may  be  qualified 
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TRANSACTION  FORMAT 
FUNCTION 
DATA  BASE(S)  MODIFIED 
TRANSACTION  TYPE 

TRANSACTION  FILE 
EXECUTION  SEQUENCE 


11 

Delete  a Course 

Course  File 

General  Type  A 

Single  Step  RAMIS  Execution 

Fllename/Flletype  ■ DSA/RAM 


The  maintenance  action  resulting  from  this  transaction  causes  a training 
course  (Identified  by  CDP  number)  to  be  removed  from  the  DOTS  data  base.  Since 
course  Information  appears  In  both  the  Course  and  Facilities  files,  deletion 
action  Is  directed  at  both. 

Inasmuch  as  course  CDP  number  Is  the  key  of  the  highest  level  sequent  of 
both  the  Facilities  and  the  Course  files,  deletion  effectively  removes  all 
mention  of  the  deleted  course  from  the  system. 


■■ 
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TRANSACTION  FORMAT 
FUNCTION 


TRANSACTION  TYPE 


TRANSACTION  FILE 
EXECUTION  SEQUENCE 


Delete  a Student/ Instructor  Ratio  (SIR)  Segment 
from  the  Course  File 


DATA  BASE(S)  MODIFIED  : Course  File 


General  Type  A 

Single  Step  RAMIS  Execution 

Fllename/FIletype  * DSA/RAM 


This  transaction  forces  deletion  of  an  entire  student/instructor  ratio  (SIR) 
lower  level  segment  from  the  Course  file,  The  high  level  sequent  (course 
CDP  controls  the  high  level  segment)  associated  with  the  deleted  SIR  segment 
remains  unchanged. 
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TRANSACTION  FORMAT 
FUNCTION 
DATA  BASE(S)  MODIFIED 

TRANSACTION  TYPE 

TRANSACTION  FILE 
EXECUTION  SEQUENCE 


: 13 

: Delete  an  Instructor 

: Instructor  File 
Course  File 

: General  Type  E 

Multiple  Step  RAMIS  Execution 

: Fllename/Flletype  = Ml 3EXA/EXEC 

: 5 


ADDITIONAL  SUPPORT 


(1)  M13EXB/EXEC  - NCSS  Executive 

(2)  M99EXA/EXEC  - NCSS  Executive 

(3)  M13RP/RUNPR0C  - RAMIS  Run  Procedure 


Processing  of  this  transaction  type  causes  the  deletion  of  an  Instructor  from 
the  DOTS  data  base.  The  Input  transaction  specifies  the  Instructor  ID  (Social 
Security  Number)  as  the  key  which  controls  the  deletion. 

i 

The  deletion  operation  Is  universal  over  both  the  Instructor  and  Course 
files,  i.e. , all  mention  of  the  given  Instructor  Is  removed.  The  deletion 
operation  proceeds  In  multiple  steps,  each' requiring  the  execution  of  a 
distinct  RAMIS  maintenance  function. 


The  three  RAMIS  maintenance  functions  required  to  support  this  transaction 
type  are  included  In  the  RAMIS  Run  Procedure  M13RP.  The  sequence  used  to 
invoke  this  operation  Is  as  follows: 

(1)  The  Input  Transaction  Processing  Program  constructs  an  NCSS 
executive  file  (M13EXA/EXEC)  In  response  to  a Format  13  Input 
transaction.  A separate  executive  sequence  Is  formed  for  each 
unique  Format  13  Input.  Execution  of  a M13EXA  executive  causes 
the  execution  of  executive  M13EXB.  The  transaction  number  and 
the  Instructor  ID  are  passed  as  arguments. 

(2)  Executive  M13EXB  performs  the  required  RAMIS  system  Initializa- 
tion and  Invokes  the  RAMIS  Run  Procedure  M13RP.  M13RP  will  be  run 
one  time  for  each  Format  13  Input  transaction.  The  Input  trans- 
action number  and  the  ID  of  the  Instructor  to  be  deleted  are  passed 
as  arguments  between  M13EXB  and  M13RP. 

In  the  Instructor  file.  Instructor  ID  Is  the  key  field  on  the  highest  level. 
Deletion  of  the  Instructor  ID  In  this  Instance  removes  the  entire  record, 
effectively  removing  all  mention  of  the  given  Instructor  from  the  file.  Since 
ID  Is  the  file  highest  level  key,  a single  RAMIS  DELETE  function  Is  required. 
STEP1  of  the  Run  Procedure  M13RP  accomplishes  this  deletion. 
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In  the  Course  file*  Instructor  ID  Is  the  key  field  controlling  the  second 
level.  Course  CDP  number  Is  the  highest  level  key.  In  order  to  locate  all 
occurrences  of  the  given  ID  at  the  lower  level*  It  Is  necessary  to  find  all 
of  the  courses  associated  with  the  given  Instructor.  STEP2  of  Run  Procedure 
M13RP  produces  a RAMIS  spinoff  file  containing  the  CDP  numbers  of  all  Courses 
of  concern.  This  spinoff  file  Is  subsequently  used  In  STEP3  of  M13RP  to 
control  a standard  RAMIS  DELETE  function  directed  at  the  Course  file. 


DELETE  AN  INSTRUCTOR 


FORMAT  13  INPUT  TRANSACTION  PROCESSING 
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FORMAT  13  PROCESSING:  NCSS  EXECUTIVE  ■ M13EXB 
FILENAME:  M13EXB 
FILETYPE:  EXEC 


ItTYPt  OF(- 

ACOMMENT  DELETE  AN  INSTRUCTOR  10*  tiND-LEvEL  EAEC 
ACOMMENT  ENTRY  flRGS  : „(  1 ) TRANSACTION  SEO  NON 
tCOMMENT  (2)  FIRST  <s  DIGITS  OF  InSTR  ID 
ACOMMENT  (3)  LAST  3 OlbITS  ETC* 

ACOMMENT  INTERNAL  AKGS  ARE  : (R)  IS  SPIN  FILE  LRECL 

ACOMMENT  (IDN)  IS  INSIk  ID  FIELD  NUMBER  IN  COURSE  FILE  DESCRIPTION 

ACOMMENT  UOF)  IS  INST R FIELD  NMENOMIC  IN  COURSE  FILE  OESC. 

ARLEN  = 13 
A IDN  * S3 
AIUF  = FI 

STATE  FILE  FTOAFOOl  P 

ATF  A INDEXO  NE  0 cGOTO  -SI 
ERASE  FILE  FT04F001  h 

-SI  FILEUEF  * OSK  FILE  FT0AF001  RE  F LR  ARLEN  BL  ARLEN 
ASTACK  KT 

ASTACK  EXEC  MI3RP  A1  • A2  * A3  * 

ASTACK  AIDF  • ARLEN  « A I ON 
ASTACK  FIN 
ATTACH  RAMIS  ALL  BR 
FILEDEF  6 MSG  KILL 
EXEC  RAMIS 
DETACH  RAMIS  BR 
ASTACK  RT 

FILEDEF  FT0AF001  CLEAR 
FILEDEF  e>  CONO 
ASTACK  KT 
ASTACK  L.  /SPACE/ 

ASTACK  C /SPACE// 

ASTACK  DOWN 
ASTACK  DOWN 
(ASTACK  L.  /SPACE/ 

ASTACK  C /SPACE// 

ASTACK  DOWN. 

ASTACK  P 3 
ASTACK  L.  /SPACE/ 

ASTACK  C /SPACE// 

ASTACK  DOWN. 

ASTACK  P 3 
ASTACK  L.  /SPACE/ 

ASTACK  C /SPACE// 

ASTaCK  DOWN. 

ASTACK  P 3 
ASTACK  0 
EDIT  MbG  KILL 
EXEC  MR9EXA  cl 
AEXIT 
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, FORMAT  13  PROCESSING:  NCSS  EXECUTIVE  ■ M99EXA 


FILENAME:  M99EXA 
FILETYPE:  EXEC 


*.TYPt  OFH 

fcCUHHtNT  vi.P.  tNU  PHuCtSSiN'o  «Sli 

ICCHhfcNT  blNOLJ-  Is  ! <i>  TRANSACTION  NUMBt* 

4S»»ACt 

j,Ph  InT  TRANSACT  ion  M PROCESSING  COMPLETED 
STATE  FILE  F rOnl-OOl  P $ 

IIF  KlNfitxO  NE.  0 X I T 
ERASE  Fit  t F T 0*FOO  1 P 
fcFXIl 
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FORMAT  13  PROCESSING:  RAMIS  RUN  PROCEDURE  ■ H13RP 
FILENAME:  M13RP 
FILETYPE:  RUNPROC 


DELETE 

FILE  RAHEXEC 

l*0UT**l3RP*»  * 

END 

CATALOG  MlJRP 

At  * DELETE  AN  INSTRUCTOR  If) 

tt  * ROTH  COURSE  ANO  INSTRUCTOR  FILES  HANOLEO  HEREIN 

At  * ENTRY  ARCS  ARt  : (1)  TRANS  NUH8ER*  (?)  FIRST  6 DIGITS  OF  THE 

u • INsTk  iu  to  HE  DELETED*  (J)  LAST  3 DIGITS  of  the  id* 

At  * (A)  INSTR  F I ELD  NAME*  E *G* • FI*  (5)  SPIN  FILE  LRECL* 

At  • (6)  INSTR  FIELD  NUMBER  In  COURSE  FILE  DESCRIPTION  // 

tt  * 

tt  ARGS  CONCATs. 
tt  PRINT  SPACE 

tt  PRINT  NOR  PROCESSING  TRANSACTION  NUMBER  tl 

tt  PRINT  INSTRUCTOR  ID  TO  RE  DELETED  IS  t?.A3 

DELETE 

FILE  INST 

ID*0UT*t?.t3*t 

ENO 

At  RUN 

At  tER  * * NO  ERRORS*  I 

tt  IF  tCOND  EQ  0 THE*  GOTO  SI  ( 

tt  tER  * ’ERRORS*  t 

ttSl 

tt  print  space 

tt  PRINT  IEP  DETECTED  IN  STEP1*  H*HIS  INDICATORS  ARE  : 
tt  PRINT  tCOND  • ANOKEYS  • tREJEtTS  • ARECORDS  • 
tt  PRINT  tlNPUTS  • fcTRANS  • ALINES 
tt  • 

TABLEF 
FILE  COURSE 

PRINT  COP  ANO  A*  ANO  SAVE 

IF  tA  IS  t?.A3 

END 

At  RUN 

tt  tEP  * *NO  ERRORS*  I 

tt  IF  tCOND  NE  0 THEN  GOTO  Si  ! 

tt  IF  ARECORDS  NE  G THEN  GOTO  SIA  ; 

AAS2 

tt  tER  « 'ERRORS*  I 

ttS?A 

tt  PRINT  SPACE 

tt  PRINT  tER  DETECTED  IN  STEP?!  RAMIS  INDICATORS  ARE  : 
tt  PRINT  ACOnD  « ANOKEVS  • AREJECTS  • ARECORUs  • 

At  PRINT  t INPUTS  t ATRANS  « ALINES 

tt  • 
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if:  1 


FORMAT  13  PROCESSING:  RAH IS  RUN  PROCEDURE  * M13RP  (CONTINUED 
FILENAME:  M13RP 
FILETYPE:  RUNPROC 


u IF  teCOND  NE  0 Then  6010  R*OKE  * 

U IF  4REC0R0S  NE  0 ThfcN  GOTO  SJX  .» 

U * 

44BR0KE 

U PRINT  SPACE 

44  PRINT  OUE  TO  PREVIOUS  ERRORS  nOTEu  In  STEP**  ABOVE*  STEP3 
44  PRINT  PROCESSING  OF  TRANSACTION  NUMBER  tel  IS  BEING 
44  PRINT  BYPASSEO... 

U EXIT 
U • 

44S3X 

delete 

READ  FILE  FT04F001 
RECORO  4S 
FORM  4** 

ORDER  1*46 
SET  46 
FILE  COURSE 
END 

44  PUN 

44  4EP  * 'NO  ERRORS'  S 
44  IF  4C0ND  NE  0 THEN  GOTO  S3  5 
44  IF  4CHANGES  NE  0 THEN  GOTO  SJa  ; 

44S3 

44  4ER  = 'ERRORS'  ; 

44S3A 

44  PRINT  SPACE 

44  PRINT  4ER  OETECTED  In  STEPJI  RAMIS  INDICATORS  ARE  : 

44  PRINT  4C0NU  * 4N0KEYS  * REJECTS  • teRECORDS  • 

44  PRINT  4 INPUT S * 41  HANS  * ALlNtS 
ENO  CATALOG 
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TRANSACTION  FORMAT 
FUNCTION 

DATA  BASE(S)  MODIFIED 
TRANSACTION  TYPE 

TRANSACTION  FILE 
EXECUTION  SEQUENCE 


14 

Delete  a Building/Room  Segment  from  the 
Facilities  File 

Facilities  File 

General  Type  A 

Single  Step  RAMIS  Execution 

Fllename/Flletype-  OSA/RAM 

3 


This  transaction  commands  the  deletion  of  an  entire  bulldlng/room  (BLDG/RM) 
lower  level  segment  from  the  DOTS  Facilities  file.  The  high  level  portion 
of  the  Facilities  record  (key  field  » course  COP  number)  remains  unchanged 
after  the  deletion. 


r 
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TRANSACTION  FORMAT 
FUNCTION 

DATA  BASE(S)  MODIFIED 


15 


Delete  an  Entire  School 


Facilities  File 
Instructor  File 
Course  File 


TRANSACTION  TYPE 


General  Type  E 

Multiple  Step  RAMIS  Execution 


TRANSACTION  FILE 
EXECUTION  SEQUENCE 
ADDITIONAL  SUPPORT 


Fllename/Filetype 

6 


M15EXA/EXEC 


(1)  M15EXB/EXEC  - NCSS  Executive 

(2)  M15EXC/EXEC  - NCSS  Executive 

(3)  M99EXA/EXEC  - NCSS  Executive 

(4)  Ml 5RPA/RUNPR0C  - RAMIS  Run  Procedure 

(5)  Ml 5RPC/RUNPROC  - RAMIS  Run  Procedure 

(6)  M15RPB/RUNPROC  - RAMIS  Run  Procedure 


A Format  15  Input  transaction  commands  the  deletion  of  all  records  associated 
with  a given  school.  This  transaction  causes  deletlon(s)  In  all  three  of  the 
DOTS/TRAPAC  files. 


Processing  of  this  transaction  type  will.  In  most  Instances,  result  In  multiple 
record  deletions  In  each  of  the  three  data  bases.  The  Input  transaction  specifies 
only  the  school  name  to  be  deleted.  Since  school  Is  not  a keyfleld  In  either 
of  the  three  files,  additional  data  must  be  retrieved  from  each  before  the 
deletion  can  be  conmanded  with  the  assurance  that  all  of  the  records  associated 
with  the  deleted  school  have  Indeed  been  eliminated^ 


Six  RAMIS  maintenance  function  steps  are  required  to  support  this  transaction 
type.  All  of  these  functions  are  Included  within  three  (3)  RAMIS  Run  Procedures. 
The  deletion  operation  proceeds  as  follows: 


0) 


The  Input  Transaction  Processing  Program  constructs  an  NCSS 
executive  file  called  M15EXA/EXEC  as  a response  to  a Format  15 
Input  transaction.  A separate  executive  sequence  Is  formed  for 
each  unique  Format  15  Input.  Execution  of  M15EXA  causes  execu- 
tion M15EXB  - the  Input  transaction  number  and  the  name  of  the 
school  to  be  deleted  are  passed  as  execution  arguments. 


(2)  Executive  M15EXB  Initializes  the  RAMIS  system  and  calls.  In  sequence, 
the  three  RAMIS  Run  Procedures  M15RPA,  M15RPC,  and  M15RPB.  These 
three  Run  Procedures  are  related  to  the  three  DOTS  files  as  follows: 


( > 
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M15RPA  - Facilities  file  processing 
STEP1  = Spinoff  file  makeup 
STEP2  ■ School  deletion  operation 

M15RPC  - Instructor  file  processing 
STEP3  * Spinoff  file  makeup 
STEP4  - Deletion 

M15RPB  - Course  file  processing 

STEPS  s Spinoff  file  makeup 
STEP6  = Deletion 

(3)  As  Indicated  above,  the  processing  for  each  file  proceeds  in  a 
parallel  fashion.  School  Is  not  a key  field  In  either  of  the 
three  files.  The  highest  level  key  for  each  of  the  records  to 
be  deleted  must  be  determined  for  each  file.  The  high  level  key 
field  for  the  Facilities  and  Course  files  Is  course  CDP  number; 
for  the  Instructor  file,  instructor  ID.  Accordingly,  the  first 
step  in  each  of  the  Run  Procedures  Is  the  makeup  of  a spinoff 
file  containing  the  respective  file  key  fields  for  each  record 
containing  a school  field  equal  to  the  school  to  be  deleted. 

The  records  of  the  spinoff  file  are  then  used  in  the  second  step 
as  transaction  controlling  a standard  RAMIS  DELETE  function. 
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FORMAT  15  PROCESSING:  NCSS  EXECUTIVE  » M15EXB 

FILENAME*  M15EXB 
FILETYPE:  EXEC 


MY  Pc  OFF 

^COMMENT  DELETE  A SChuOL*  2N0-LEVEL  EXEC. 

^COMMENT  ENTRY  ARGS  APE  : 

^COMMENT  (1)  TRANSACTION  NUMBER  / (2)  SCHOOL  CODE  // 
STATE  FILE  FTCKFOOl  R 

MF  MNDExO  NE  0 4G0T0  -SI 
ERASE  FILE  FT04F0ul  R 

-SI  FILEDEF  4 DSK  FILL  FTO&FOOl  RE  F LH  6 BL  * 
fsSTACK  KT 

&STACK  ExEC  mIsnPa  M * S2 
{.STACK  FIN 
ATTACH  RAMIS  ALL  HR 
EXEC  M15EXC 

fcSTACK  f XEC  MlSWPC  U « &2 
&STACK  FIN 
EXEC  M15EXC 
FILEDEF  4 CLEAR 
STATE  FILE  FTO^FOOl  H 

MF  MNDEXO  NE  0 6.GOTO  -S2 
ERASE  FILE  FT04F001  P 

-S2  FILEDEF  4 DSK  FILE  FT04F0U1  RE  F LK  13  BL  13 
&STACK  EXEC  MlbRPH  U ♦ (w2 
&STACK  FIN 
EXEC  M1SEXC 
DETACH  RAMIS  BR 
R.STACK  RT 
EXEC  MR^EXA  M 
&FXIT 
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FORMAT  15  PROCESSING:  NCSS  EXECUTIVE  - M15EXC 
— 

FILENAME:  M15EXC 
FILETYPE:  EXEC 


(Type  OFF 

(COMMENT  lNTt*'-<AL  t*EC  FO*  JtLcTt  SCHOOL. 

(COMMENT  ThIS  tAtC  MtPtLY  PRINTS  Tnt  MSH/KILL  Flct. 
(COMMENT  NO  ENTNY  APGS. 

FILEOEF  ( OSK  MSG  (\ILL 
EXEC  RAMIS 

(STACK  WT 
FILEOEF  6 CONO 
(STACK  KT 
(STACK  L.  /SPACt/ 

(STACK  C /SPACt// 

(STACK  DO»fc. 

(STACK  P A 
(STACK  0 
EDIT  MSG  KILL 
(EXIT 


FORMAT  15  PROCESSING:  NCSS  EXECUTIVE  ■ M99EXA 
FILENAME:  M99EXA 
FILETYPE:  EXEC 


(TYPt  OFF 

(COMMtNT  vi.P.  tNU  iHtoNS  PHuCtSSiNO  f»Sli 
(COMMENT  a INGcF  fchii  la  : (i)  TRANSACTION  NUMbtH 

(SPACE 

(PRINT  TRANSACTION  (1  PWOCF.SS I N»»  CdwPltTtD 
STATE  FlLt  FTOrFOOI  P 

(IF  fclNOtAO  NE  0 «EXIT 
ERASE  Flit  F T 0*F  00  1 P 
(FXH 


■ nUiWiii 
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FORMAT  15  PROCESSING:  RAMIS  RUN  PROCEDURE  « M15RPA 
FILENAME:  M15RPA 
FILETYPE:  RUNPROC 

DELETE 

FILE  R«Mt*EC 
1 »OUTsMl  bHPA  * 

ENO 

CATALOG  MlSRPA 

U * DELETt  AN  tNT I *t  iCMUOL 5 Stt  ALSO  MlaKPd*  MlSKPC 
LA  * FACILITIES  FILE  PROCESSING  ONLY 

LA  * FNTRY  AKGS  .*  (1)  Thf ANS  NUMdEW » (2)  SCHOOL  TO  dE  DELETED  // 

AA  * 

AA  ARCS  CONCaT  = • 

AA  ASTEP  s • b TEP 1 • 5 

TA0LEF 

FILE  FACIL 

PRINT  CDP  AND  SCH  A>mO  SAVE 
IF  SCH  IS  A? 

END 

AA  RUN 

AA  AER  = 'NO  ERRORS'  * 

AA  IF  ACOND  NE  0 THEN  GOTO  MUST  I 
AA  IF  ARECORDS  EG  0 Then  GOTO  t«uST  ; 

AA  * 

AA  ASTEP  * 'STEP**  *. 

DELETE 

READ  FILE  FTiKFOOl 
RECORD  8 
FORM  4*4 
ORDER  \*d 
SET  1 

FILE  FACIL 
ENO 

AA  RUN 

AA  IF  ACOND  NE  0 ThEn  GOTO  MUST  t 
AA  IF  ACHANGES  NE  0 THEN  GOTO  bJ  < 

AA  * 

AABUST 

AA  AER  s 'ERRORS  WERE'  J 
AAS3 

AA  PRINT  SPACE 

AA  PRINT  TRANSACTION  NO.  A1  - FACILITIES  FILE  DELETE  OF  SCHOOL  * A2 
AA  PRINT  AER  OETECTED  IN  &STEP  » RAMIS  INDICATORS  ARE  : 

AA  PRINT  ACOND  * nNOKEYS  * AREJECTS  « ARECORDS 
AA  PRINT  ACHANGES  • klNPUTS  * ATRANS  t ALINES 
ENO  CATALOG 
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FORMAT  15  PROCESSING:  RAMIS  RUN  PROCEDURE  « M15RPB 
FILENAME:  M15RPB 
FILETYPE:  RUNPROC 


DELETE 

FILE  RAMt*EC 

l=OUT=Mlt>RPH*S 

END 

CATALOG  MlSRPB 

AA  * DELETE  AN  ENTIRE  SCHOOL;  StE  ALSO  M15HPA*  M1BRPC 
U * INSTRUCTOR  FILE  PROCESSING  ONLY 

AA  • ENTRY  ARCS  ARE  : (1)  TRANS  NUMBER*  (2)  SCHOOL  TO  BE  DELETED  // 
AA  • 

At  ARCS  CONCAT=. 

AA  ASTEP  * 'STEPS*  * 

TABLEF 
FILE  INST 

PRINT  ID  AND  SCH  AND  SAVE 

IF  SCH  IS  A2 

END 

AA  RUN 

AA  AER  = 'NO  ERRORS'  ( 

AA  IF  ACOND  NE  0 THEN  GOTO  BUST  5 
AA  IF  ARECORDS  EG  0 THEN  GOTO  OUST  S 

AA  • 

AA  ASTEP  * 'STEP*'  I 
DELETE 

READ  FILE  FT04F001 

RECORD  13 

FORM  9.4 

ORDER  l.S 

SET  1 

FILE  INST 

ENO 

AA  RUN 

AA  IF  ACOND  NE  0 THEN  GOTO  BUST  i 
AA  IF  ACHANGES  NE  0 THEN  GOTO  S3  « 

AA  • 

AABUST 

AA  AER  * 'ERRORS  nERE'  I 
AAS3 

AA  PRINT  SPACE 

AA  PRINT  TRANSACTION  NO.  A1  - INSTRUCTOR  FILE  DELETE  OF  SCHOOL  * A2 
AA  PRINT  AER  DETECTED  IN  ASTEP  * RAMIS  INDICATORS  ARE  : 

AA  PRINT  4COND  « ANOKEYS  • AREJECTS  * ^RECORDS 
AA  PRINT  ACHANGES  « AlNPUTS  • ATRANS  « ALINES 
ENO  CATALOG 
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FORMAT  15  PROCESSING:  RAMIS  RUN  PROCEDURE  » M15RPC 
FILENAME:  M15RPC 
FILETYPE:  RUNPROC 


OELETE 

FILE  RAME*EC 
l=OUT=MlbRPCt* 

END 

CATALOG  M1SRRC 

&&  * DELETE  AN  ENT iKt  SCHOOL  * Stfc  ALSO  M15RPA*  MldRPB 
44  * COURSE  FILE  PROCESSING  ONLY 

44  • ENTRY  AKGS  ARE  : (1)  TKANS  NUMBER*  (2)  SCHOOL  TO  b E DELETED  // 
U • 

44  ARCS  CONCAT  = • 

U 4STEP  * 'STEH3*  : 

TAHLEF 
FILE  COUHSE 

PRINT  COP  ANU  SCH  AND  SAVE 
IF  SCH  IS  42 
END 
44  RUN 

44  4ER  * 'NO  ERRORS'  i 

44  IF  4C0ND  NE  0 THEN  GOTO  HOST  * 

44  IF  4REC0R0S  EQ  0 THEN  GOTO  HOST  i 

44  * 

44  4STFP  = • STEP4 * * 

DELETE 

HEAD  FILE*  FT0AF001 

RECORD  8 

FORM  A* A 

ORDER  1*2 

SET  l 

FILE  COURSE 
ENQ 

44  RUN 

44  IF  4C0ND  NE  0 THEN  GOTO  HUST  I 
44  IF  4CHANGES  NE  0 THEN  GOTO  S3  ; 

44  * 

44HUST 

44  4ER  * * ERRORS  WERE'  S 

44S3 

44  PRINT  SPACE 

44  PRINT  TRANSACTION  NO.  41  - COURSE  FILE  OELETE  OF  SCHOOL  * 42 
44  PRINT  4ER  DETECTED  IN  AsTEP  ♦ RAMIS  INDICATORS  ARE  : 

44  PRINT  4C0ND  * tNOKEYS  * 4REutCTS  * ARECOPUS 
44  PRINT  4CHANGES  • 4INPUTS  • ATRANS  • 4LINES 
END  CATALOG 
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TRANSACTION  FORMAT 
FUNCTION 
DATA  BASE(S)  MODIFIED 


16 

Change  the  CDP  Number  of  a Course 

Facilities  File 
Course  File 


TRANSACTION  TYPE 
TRANSACTION  FILE 


General  Type  E 

Multiple  Step  RAMIS  Execution 
Filename/ FI letype  - M16EXA/EXEC 


EXECUTION  SEQUENCE 


7 


ADDITIONAL  SUPPORT 


(1)  Ml 6EXB/EXEC  - NCSS  Executive 

(2)  Ml 5EXC/EXEC  - NCSS  Executive 

3 M99EXA/EXEC  - NCSS  Executive 

(4)  Ml 6RPA/RUNPROC  - RAMIS  Run  Procedure 

(5)  M16RPB/RUNPR0C  - RAMIS  Run  Procedure 

(6)  M16RPC/RUNPR0C  - RAMIS  Run  Procedure 


This  transaction  type  causes  the  change  of  the  CDP  number  of  an  existing 
course.  Course  CDP  number  does  not  appear  In  the  DOTS  Instructor  file.  The 
Facilities  and  Course  files  have  CDP  number  as  their  highest  level  key  field. 

Since  the  Facilities  and  Course  files  are  maintained  In  sorted  order  by  CDP 
number,  a modification  of  this  number  via  the  normal  RAMIS  CHANGE  function 
cannot  be  accomplished.  To  do  so  would  mean  placing  the  modified  record 
back  Into  the  file  out  of  sort  sequence.  The  proper  procedure  for  changing 
a key  sorted  field  Is  to  delete  the  old  record  (In  Its  entirety)  and  then 
re-enter  the  same  data  with  the  new  key  field. 


To  effect  a CDP  change,  the  user  must  specify  only  -the  old  CDP  (to  be  changed) 
and  the  new  CDP  value. 


The  Input  Transaction  Processing  Program  constructs  an  NCSS  executive  file  named 
M16EXA/EXEC  as  the  result  of  a Format  16  Input  transaction.  A separate 
executive  sequence  will  be  formed  for  each  Individual  Format  16  Input  encountered. 
Each  M16EXA  executive  sequence  will  cause  the  execution  of  executive  M16EXB; 
the  transaction  number,  old  CDP  number,  and  new  CDP  number  will  be  passed  as 
arguments  between  executives. 


The  execution  sequence  associated  with  Format  16  transaction  processing  Is  as 
follows: 

M16EXA  - Invokes  execution  of  executive  M16EXB. 

M16EXB  - Initializes  RAMIS  system. 

- Invokes  RAMIS  Run  Procedure  M16RPA  (Facilities  file  processing): 
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STEP1  - Dumps  the  record  bearing  the  old  CDP  as  key  (all 
segments  are  dumped)  to  a utility  dump  file. 

STEP2  - Via  a standard  RAMIS  DELETE  function,  the  old  CDP 
record  and  all  associated  lower  level  segments  are 
deleted. 

STEP3  - Using  the  record  segments  dumped  In  STEP1,  above,  as 
Input  transactions,  a RAMIS  INPUT  function  Is  used  to 
reload  the  old  record  data  with  the  new  CDP  number  key. 

Invokes  RAMIS  Run  Procedure  M16RPB  (Course  file  processing, 
first  stage): 

STEP4  - Dumps  the  Course  file  record  plus  all  lower  level 
segments  associated  with  the  old  CDP  number  as  key. 

STEP5  - Invokes  program  MPGM3,  which  reformats  the  80-byte 
dunp  records  of  STEP4,  above,  into  240-byte  records. 

The  RAMIS  DUMP  function  causes  all  dump  records  to  be 
output  In  card-image  (80-byte)  format,  without  considera- 
tion as  to  the  actual  Internal  record  length  In  the 
RAMIS  file.  The  retords  In  the  Course  file  are  long 
enough  to  require  3 card-image  records  per  Internal 
record.  This  reformatting  step  Is  necessary  to  pro- 
vide the  RAMIS  INPUT  function  of  STEP7 , below,  with 
transaction  records  of  the  proper  size. 

Invokes  RAMIS  Run  Procedure  M16RPC  (Course  file  processing, 
second  stage): 

STEP6  - A standard  RAMIS  DELETE  function  Is  used  to 
delete  the  record  associated  with  the  old 
CDP  number. 

STEP 7 - A RAMIS  INPUT  function  uses  the  reformatted 
dump  file  records  of  STEPS,  above,  as  input 
transactions.  These  are  reloaded  with  the  new 
CDP  number  as  key. 
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FORMAT  16  PROCESSING:  NCSS  EXECUTIVE  = MT6EXB 
FILENAME:  M16EXB 
FILETYPE:  EXEC 


(TYPE  OFF 

(COMMENT  CMANGE-A-CUP.2N0-LEVEL  EXEC. 

(COMMENT  ENTRY  ArGS  AkE  : 

(COMMENT  (1)  TRANS  NUMBER  / <*)  OLO  COP  / 

(COMMENT  (3)  nKw  (.UP  // 

STATE  FACIL  MOUMP  P 

& IF  MNOEXO  NE  0 NuOTO  -SI 
ERASE  FACIL  MUUMP  P 

-SI  FILEOEF  KAMUTIL1  uSK  FaCIL  MOUMP  RE  F LR  80  BL  oO 
(STACK  KT 

(STACK  EXEC  MlbRPA  M • (*  ♦ (J 
(STACK  F 1 iM 
ATTACH  RAMIS  ALL  dP 
EXEC  MlSEXC 

FILEOEF  kAMUTILl  CLEAk 
STATE  COURSE  MOUMP  P 

MF  MNDtXO  NE  0 (GOTO  -S-2 
ERASE  COURSE  mOUMP  P 

-S2  FILEOEF  kAMUTILl  USK  COURSE  MOUMP  KE  F LR  BO  mL  80 
(STACK  EXEC  MlbRkd  (1  ♦ (2 
(STACK  FIN 
EXEC  MistXC 
STATE  COURSE  MOUMP  P 

MF  MNL'EXO  ME  0 (GOTO  -SOUT 
STATE  COURSE  MOUMP*  P 

MF  MNOEXO  NE  0 (.GOTO  -S3 
ERASE  COURSE  MUUMP2  P 
-S3  FILEOEF  kAMUTILl  CLEAk 

FILEOEF  UUMP  DSK  COURSE  MOUMP  RE  F LR  80  HL  80 
FILEOEF  DUMP*  USK  COURSE  MOUMP*  HE  F LR-240  4L  2*0 
(SPACE 

LOAD  MPGM3  (CLEAR  LI8E)  PLlLlH 
START  IHECMS  3 (BRIEF) 

(SPACE 

MF  MNOEXO  EO  0 (GOTO  -S4 
(SPACE 

(PRINT  REFORMAT  (STEPS)  OF  COURSE  FILE  DUMP  FAILED* 

SPRINT  Rt T URN  I NUt X 0 *AS  MNOEXO 
-SOUT  (SPACE 

(PRINT  PkOCESSl Nb  OF  TRANSACTION  M TERMINATING  ABNORMALLY 
(FX11 

-S4  (STACK  EXEC  MlbRPC  M * (2  « (3 
(STACK  FIN 
EXEC  M15EXC 
DETACH  RAMIS  BH 
(STACK  RT 
(SPACE 

(PRINT  TRANSACTION  (1  PROCESSING  COMPLETED 
(EXIT 
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FORMAT  16  PROCESSING:  NCSS  EXECUTIVE  ■ K1SEXC 
FILENAME:  M15EXC 
FILETYPE:  EXEC 


fcTYPfc  OFF 

ACOMMENT  INTERNAL  E*EC  FOR  JtLdt  SCHOOL. 

ACOMMENT  This  E*EC  MERELY  PRINTS  ThE  MSN/KILL  FlLt 
ACOMMENT  NO  ENTRY  APOS. 

FILEDEF  N OSK  HS6  NlLL 
EXEC  RAMIS 

AST ACK  RT 
FILEOEF  t>  CONO 
ASTACK  KT 
ASTACK  L.  /SPACE/ 

ASTACK  C /SPACE// 

ASTACK  OOMN. 

ASTACK  P A 
ASTACK  0 
EOIT  MSG  KILL 
AEXIT 


FORMAT  16  PROCESSING:  NCSS  EXECUTIVE  « M99EXA 
FILENAME:  M99EXA 
FILETYPE:  EXEC 


ATYPE  OFF 

ACOMMtNT  vi.P.  CNU  TrmNS  PROCESSING  f'SO 
tCOMhENT  sINOlF  fcHi,  IS  : <i)  TRANSACTION  NUMBER 

4SPACE 

APhInT  TRANSACTION  A1  PROCF.SsIrh  CJmPLETEO 
STATE  FlLt  F ro**FOOl  H 

4IF  4 1 Nf't A 0 NE  0 feCXlT 
tRASE  FIl  E FTOaFouI  p 
4FXI1 


TAEG  REPORT  NO.  36 


FORMAT  16  PROCESSING:  RAMIS  RUN  PROCEDURE  » M16RPA 


FILENAME:  M16RPA 
FILETYPE:  RUNPROC 


! 


OELETE 

file  ramexec 

1sOUT=mI6RPA«» 

END 

CATALOG  M16PRA 

LL  * CHANGE  CUP  PKUCtSS 1 Mi • 

LL  * ENTHY  AHGS  Artt  : ll)  TRANS  NUMBER  ♦ 

&(,  * OLD  CUP  NUMHtR  i (3)  NtM  COR  NUMBER  // 

DUMP 

FILE  F AC IL 

PRINT  AVHRS  AND  SAVE 

IF  COP  IS  LE 

END 

ll  Run 

LL  LER  * 'NO  ERRORS'  » 

LA  LSTEP  * • STEP  1 ' » 

U IF  LCOND  NE  0 THEN  GOTO  RUST  i 
LL  IF  LRECORDS  EO  0 THEN  GOTO  BUST  J 
LL  LSTEP  * * STEP2 ' ; 

DELETE 
FILE  FACIL 
CDP=OUT  *L2 t S 
END 

LL  RUN 

LL  IF  LCOND  NE  0 THEN  GOTO  RUST  J 
LL  IF  LCHANGtS  t(J  0 THEN  GOTO  BUST  I 
LL  LSTEP  * 'STEPS'  t 
INPUT 

READ  FACIL  MDUMP 
RECORD  80 
SET  1 

FORM  X4»4»5*3»3»1*6»S 
ORDER  ?*J*4*S*6*7*8 
INSERT  CDP  * L3 
FILE  FACIL 
END 

LL  RUN 

LL  IF  LCUND  NE  0 THEN  GOTO  MUST  t 
Li  IF  LINPUTS  NE  0 THEN  GOTO  S3  I 
LLRUST 

Ll  LEP  « 'ERRORS  MERE'  ; 

LLS3  . 

LL  PRINT  SPACE 

LL  PRINT  TRANSACTION  NUMBER  Ll  - FACILITIES  FILE  PROCESSING 
LL  PRINT  LER  DETECTED  IN  LSTEP  I RAMIS  INDICATORS  ARE  : 

LL  PRINT  LCOND  • fcNOKEYS  • LREJECTS  • LRECORDS 
LL  PRINT  LCHANGES  • LINPUTS  « 1TRANS  • LLINES 
ENO  CATALOG 
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FORMAT  16  PROCESSING:  RAMIS  RUN  PROCEDURE  » M16RPB 
FILENAME:  M16RPB 
FILETYPE:  RUNPROC 


DELETE 

FILE  RAMEXEC 
l*OUT*Mlt>RPR*$ 

END 

CATALOG  MlGRPb 
DUMP 

FILE  COURSE 
PRINT  F3  AND  SAVE 
IF  CDP  IS  (2 
END 

(l  RUN 

il  (ER  = * NO  ERRORS'  I 
((  IF  (COND  ME  0 ThER  GOTO  GUST  I 
((  IF  (RECORDS  NE  0 THEN  G&TO  Si  i 
((BUST 

1ER  = 'ERRORS  VERE ' I 
((SI 

ii  PRINT  SPACE 

((  PRINT  TRANSACTION  NUMBER  LI  - COURSE  FILE  PROCESSING 
LI  PRINT  (ER  DETECTED  IN  STEPA  * RAMIS  INDICATORS  ARE  : 
Mi  PRINT  (COND  • (NOKEYS  * (REJECTS  • (RECORDS  t 
((  PRINT  (CHANGES  • (INPUTS  • (TRAnS  * (LINES 
ENO  CATALOG 
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FORMAT  16  PROCESSING:  RAMIS  RUN  PROCEDURE  = M16RPC 


FILENAME:  M16RPC 


FILETYPE:  RUNPROC 


DELETE 

FILE  PAMtXEC 

l*OUT*Mlt>RPC*S 

END 

CATALOG  MlbHPC 

AA  ASTEP  * 'sTEPb'  I 

U AE»  3 'NO  ERRORS'  I 

DELETE 

FILE  COURSE 

CDP*0UT*A2*S 

END 

U PUN 

AA  IF  ACOND  NE  0 THEN  GOTO  HUST  ? 

AA  IF  ACHANGES  Eb  0 ThE»>  GOTO  HOST  5 
AA  ASTEP  3 'STEP?'  » 

INPUT 

READ  COURSE  MDUMP2 
RECORD  240 
SET  1 

FORM  X4*4*l*10*lb»3«4*3*3*5*5*2*6*s*5*5 
F ORM  4*4*3*4*3«J*S*5*3*3*4*3*3*5*S*3 
FORM  4*5*2»2»4»3*3*2*b*5*4*5* lu 
FORM  6«6*b*3*3*3*4*s*4*l 

ORDER  2*3*4*5»6*7*8»9*lU*ll*12*13*i4*ls*l6 
ORDER  17* 18* 19*20*21 *22*23*24.25*2b*27*2B*29 
ORDER  30*31 *32*33 »34*3S*3t *37*38*39*40*41* 42 
ORDER  43.44*45*46*47 *48*49*50*81 *52*53*54*55 
INSERT  COP  * A3 
FILE  COURSE 
END 

AA  RUN 

AA  IF  ACOND  Nt  0 THEN  bOTO  HUST  1 
AA  IF  AlNPUTS  NE  0 THEN  GOTO  52  I 
AABUST 

AA  AER  3 'ERRORS  8ERE ' * 

AAS2 

AA  PRINT  SPACE 

AA  PRINT  TRANSACTION  NUMHEK  Al  - COURSE  FILE  PROCESSING 
AA  PRINT  AER  DETECTED  IN  ASTEP  - RaMIS  INDICATORS  ARE  : 
AA  PRINT  ACOND  * ANOKEYS  * ahEJECTS  * AKEC0R05  • 

AA  PRINT  ACHANGES  * AlNPuTS  * aTHANS  * ALINES 
ENO  CATALOG 
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TRANSACTION  FORMAT  : 17 

FUNCTION  : Change  a Student/ I ns true tor  Ratio  Segment 

DATA  BASE(S)  MODIFIED  : Course  File 

TRANSACTION  TYPE  : General  Type  E 

Multiple  Step  RAMIS  Execution 

TRANSACTION  FILE  : Fllename/Flletype  = M17EXA/EXEC 

EXECUTION  SEQUENCE  : 8 

ADDITIONAL  SUPPORT  : (1)  M17EXB/EXEC  - NCSS  Executive 

(2)  M15EXC/EXEC  - NCSS  Executive 

(3)  M99EXA/EXEC  - NCSS  Executive 

(4)  M17RP/RUNPROC  - RAMIS  Run  Procedure 


Student/Instructor  ratio  (SIR)  is  the  key  field  for  the  second-level 
SIR  segment  of  the  DOTS  Course  File.  A Format  17  transaction  Is  used  to 
effect  a change  in  the  SIR  field,  without  changing  any  of  the  other  fields 
of  the  SIR  segment. 

! 

\ Within  each  Course  file  record,  the  SIR  segments  are  maintained  In  sorted 

order  by  SIR  field.  The  mnemonic  used  for  the  SIR  field  Is  'FI.'  If  a 
RAMIS  CHANGE  function  were  used  to  change  the  value  of  an  FI  field,  the 
changed  record  may  be  subsequently  out  of  sort  sequence.  The  CHANGE  function 
, merely  changes  field  values  as  commanded  - no  reordering  Is  accomplished. 

The  normal  method  of  accomplishing  such  key  field  maintenance  is  to  delete 
the  old  segment  (in  its  entirety),  and  then  to  re-enter  the  removed  segment 
in  its  entirety)  with  the  new  keyfleld  value.  To  avoid  making  the  DOTS  user 
enter  all  of  the  additional  segment  field  values  when  only  a keyfleld  change 
was  of  Interest,  the  segment  removal  and  replacement  Is  accomplished  In  a 
' multi-step  RAMIS  Run  Procedure  called  M17RP. 

Transaction  Format  17  maintenance  ensues  as  follows: 

(1)  The  Transaction  Processing  Program  produces  as  output  one  M17EXA 
Executive  sequence  per  Format  17  Input  transaction.  Each  M17EXA 
Invokes  a separate  execution  of  executive  M17EXB,  passing  the 
transaction  sequence  number,  the  course  CDP  number,  the  old  SIR 
value,  and  the  new  SIR  value  as  execution  arguments. 

(2)  After  Initialization  of  the  RAMIS  system,  executive  M17EXB 
Invokes  RAMIS  Run  Procedure  M17RP.  Within  M17RP,  the  following 
Is  accomplished: 

l 


I 


* 

4 
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STEP1  - A RAMIS  spinoff  file  Is  constructed  containing  all  of 
the  fields  of  the  segment  bearing  the  old  SIR  value. 

Also  Included  Is  the  course  CDP  number;  COP  Is  the  keyfleld 
at  the  highest  level  In  the  Course  file. 

STEP2  - Using  the  course  CDP  number  and  old  SIR  value  (both  were 
passed  as  execution  arguments  from  executive  M17EXB), 
a RAMIS  DELETE  function  Is  used  to  delete  the  old  segment 
In  Its  entirety. 

STEP3  - Using  the  record  data  from  the  spinoff  file  In  STEP1,  above, 
as  a controlling  Input  transaction,  a RAMIS  REVISE  function 
Is  used  to  re-enter  the  deleted  segment  In  Its  entirety 
with  the  new  SIR  value  as  key. 
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FORMAT  17  PROCESSING:  NCSS  EXECUTIVE  « M17EXB 
FILENAME:  M17EXB 
FILETYPE:  EXEC 


(TYPE  OFF 

(COMMENT  CiANbt  « S I UU/INST h ( al«)  SEGm£N T . 
(COMMENT  2NO-LEVEL  EAtC. 

(COMMENT  ENTRY  AkGS  are  : 

(COMMENT  (1)  TRanS  NUmhEh  / (*>  CUR  NUrtHtH  / 
(COMMENT  (3)  OLU  SI^  / (4)  NE*  SI*  // 

STATE  FILE  FTO*FOOl  p 

MF  (INLEXO  Nt  0 NbOTO  -Si 
ERASE  FILE  FToaFOOI  p 

-SI  FILEOEF  4 OSK  F ILt  FT04F001  RE  F LH  1«  HL  18 
(STACK  x T 

(STACK  EXEC  V17RP  (1  • k*  • (J  • 

(STACK  (4 
(STACK  FIN 
ATTACH  RANIS  ALL  »k 
EXEC  M15EXC 
UETACH  RANIS  HR 
1ST ACK  RT 
EXEC  M99EX A U 
(EXIT 


FORMAT  17  PROCESSING: 

NCSS  EXECUTIVE  « M15EXC 

FILENAME: 

M15EXC 

FILETYPE: 

EXEC 

(TYPE  OFF 

(COMMENT  INTERNAL  exec  for  OtLcTt  SCHOOL. 

(COMMENT  ThIS  EAEC  MERELY  PRINTS  ThE  MSO/KlLL  FlLt. 
(COMMENT  NO  ENTRY  ARGS. 

FILEOEF  6 OSK  MSG  MIL 
EXEC  RAMIS 

(STACK  MT 
FILEOEF  b CONO 
(STACK  KT 
(STACK  L.  /SRACt/ 

(STACK  C /SRACt// 

(STACK  HORN. 

(STACK  P 4 
(STACK  0 
EOIT  MSG  KILL 
(EXIT 
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I 


FORMAT  17  PROCESSING:  NCSS  EXECUTIVE  - M99EXA 
FILENAME:  M99EXA 
FILETYPE:  EXEC 


Kjypt  of f 

LCUHMtNT  u.H.  t NU  T<4*Nb  RNuCtSSiiVb  r»Sl» 
iCOHhtNT  blNGLF  khw  la  : <i)  Twfc.N'iACT ION  NUMbt* 

LSRACt 

LPRInT  TRANSACTION  M RWOCLSSIrw  COwPltTtO 
STATE  FlLt  F riinFOOl  H 

LI  F KlNfitXO  Nt  0 ot*IT 
ERASE  Flit  FTO*F001  b 
LFM1 


A 


...  
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FORMAT  17  PROCESSING:  RAMIS  RUN  PROCEDURE  » M17RP 

FILENAME:  M17RP 
FILETYPE:  RUNPROC 

DELETE 

FILE  RAMEXEC 
1 *OUT*M 1 7RP • % 

END 

CATALOG  Ml  7 RR 

LA  AER  * • NO  fcWKOMst  ; 

U ASTEP  * 'STEP1*  » 

TABLE 

FILE  COUkSE 

PRINT  COP  AND  Fi  AND  E<£  AND  F3  AnO  SAVE 
IF  CDP  IS 
IF  FI  IS  A3 
END 

AA  RUN 

AA  IF  ACOND  NE  0 THEN  GOTO  MUST  ? 

AA  IF  ARtCORUi  EO  (*  Then  GOTO  POST  ; 

AA  ASTEP  * 'STEP?*  ; 

DELETE 
FILE  COUHSE 
CDP*A2*F 1 *OUT  =A3«  l 
END 

AA  RUN 

AA  IF  ACOND  NE  0 ThE*  GOTO  BUST  ; 

AA  IF  ACHANGES  EU  u THEN  GOTO  BUST  J 
AA  ASTEP  = • STEPS • : 

REVISE 

READ  FILE  FT04F001 
RECORD  IB 
FORM  4*<V«4*1 
ORDER  1*54,55 
INSERT  FI  s U 
KEY  1*53 
INCLUDE  S3 
FILE  COURSE 
END 

AA  RUN 

AA  IF  ACONU  NE  0 THEN  GOTO  MUST  « 

AA  IF  A iNPUTa  NE  0 THEN  GOTO  SI  ; 

AABUST 

AA  AER  = 'EPROMS  *»EPE'  * 

AAS1 

AA  PRINT  SPACE 

AA  PRINT  TRANSACTION  NUMBER  A1  - COURSE  FILE  PROCESSING  ONLY 
AA  PRINT  AER  DETECTED  IN  ASTEP  * RAMIS  INDICATORS  ARE  S 
AA  PRINT  ACONO  • ANOKEYS  • AREJEClS  • ARECORDS  « 

AA  PRINT  ACHANGES  « aInPUTS  * ATRANS  • ALINES 
END  CATALOG 
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TRANSACTION  FORMAT  : 18 


FUNCTION  : 
DATA  BASE(S)  MODIFIED: 


Change  an  Existing  Instructor  ID 

Instructor  File 
Course  File 


TRANSACTION  TYPE 
TRANSACTION  FILE 


: General  Type  E 
Multiple  Step  RAMIS  Execution 

: Fllename/Flletype  » M18EXA/EXEC 


EXECUTION  SEQUENCE 


9 


ADDITIONAL  SUPPORT 


1)  M18EXB/EXEC  - NCSS  Executive 

2)  M15EXC/EXEC  - NCSS  Executive 
3}  M99EXA/EXEC  - NCSS  Executive 

4 M18RPA/RUNPR0C  - RAMIS  Run  Procedure 
5)  M18RPB/RUNPR0C  - RAMIS  Run  Procedure 
(6)  M18RPC/RUNPR0C  - RAMIS  Run  Procedure 


This  transaction  type  forces  the  change  of  an  existing  Instructor  ID  (Social 
Security  Number).  This  field  does  not  appear  at  all  In  the  DOTS  Facilities 
file.  Within  the  Instructor  file,  ID  Is  the  keyfleld.  at  the  highest  level.  In 
the  Course  file,  ID  Is  key  to  the  second-level  segment  (course  CDP  number  Is 
the  highest  level  key  In  the  Course  file). 

Since  Instructor  ID  Is  key  within  both  files,  change  of  this  key  value  Is  a 
two-step  operation.  First,  the  old  record  or  record  segment  Is  deleted. 

Second,  the  old  record  or  segpnent  Is  reintroduced  Into  the  file  with  the  new 
value  of  ID  as  key. 

The  Transaction  Processing  Program  produces  one  M18EXA  executive  sequence  for 
each  Format  18  Input  transaction.  Each  M18EXA  executive  will  cause  the  execu- 
tion of  executive  M18EXB  on  a one-for-one  basis.  Passed  as  arguments  between 
these  executives  are  the  transaction  sequence  number,  the  old  Instructor  ID,  and 
the  new  Instructor  ID.  Processing  at  this  point  proceeds  as  follows: 

M18EXB  - This  executive  Initializes  the  RAMIS  system  and  Invokes  the 
RAMIS  Run  Procedure  M18RPA.  Within  this  Run  Procedure: 

STEP1  - A RAMIS  DUMP  function  Is  used  to  create  a dump 
file  from  the  DOTS  Instructor  file.  To  be 
dunped  Is  the  entire  Instructor  record  keyed  by 
the  old  ID  field. 

STEP2  - After  control  Is  returned  to  executive  M18EXB, 

Program  MPGM3  Is  Invoked  to  reformat  the  dump  file 
created  In  STEP1,  above.  A RAMIS  dump  file  Is 
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established  In  card- Image  (80  Byte)  format, 
regardless  of  the  length  of  the  record  Internal 
to  the  RAMIS  file  being  dumped.  The  Internal  length 
of  the  Instructor  file  record  Is  such  that  two 
card-images  per  record  are  required.  After  re- 
formatting. the  dump  file  record  length  will  be 
160  Bytes. 

If  the  reformatting  operation  of  STEP2  is  not  successful, 
further  Instructor  file  processing  is  bypassed.  Control 
then  passes  to  STEP5,  below.  A successful  operation  during 
STEP2  will  cause  control  to  be  passed  to  RAMIS  Run  Procedure 
M18RPB. 

STEP3  - The  entire  record  keyed  by  the  old  Instructor  ID 
In  the  Instructor  file  Is  deleted  via  a standard 
RAMIS  DELETE  function. 

STEP4  - A RAMIS  INPUT  functloi.  is  used  to  reinsert  the 

deleted  record  bearing  the  new  Instructor  ID  key. 

The  contents  of  the  reformatted  dump  file  produced 
In  STEP2,  above,  are  used  as  the  transaction  con- 
trolling the  INPUT  function. 

At  this  point,  RAMIS  Run  Procedure  M18RPC  Is  Invoked.  This 
Run  Procedure  will  accomplish  the  Course  file  processing 
required  for  instructor  ID  change.  Note  that  Instructor  ID 
Is  key  for  the  second-level  segment  of  the  Course  file; 
Course  CDP  number  Is  key  at  the  highest  level.  The  same 
Instructor  ID  may  appear  associated  with  several  distinct 
courses. 

STEP5  - A RAMIS  spinoff  file  is  created.  Each  record 

contains  the  course  CDP  number  and  all  second-level 
field  values  for  each  Instance  of  the  old  Instructor 
ID. 

STEP6  - The  spinoff  file  produced  in  STEP5  Is  used  as 
transaction  Input  to  a RAMIS  DELETE  function  to 
delete  all  of  the  second-level  segments  associated 
with  the  old  Instructor  ID. 

STEP7  - The  spinoff  file  created  In  STEPS  is  used  as 

transaction  Input  to  a RAMIS  REVISE  function  to 
re-enter  the  deleted  segments,  now  tagged  with  the 
new  Instructor  ID. 
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FORMAT  18  PROCESSING:  NCSS  EXECUTIVE  = M18EXB 
FILENAME:  M18EXB 
FILETYPE:  EXEC 


HYPE  uFF 

(COMMENT  CHANtsE  INSTRUCTOR  ID*  2ND-LEVC.L  tXEC. 

(COMMENT  EnTky  anGS  APE  : 

(COMMENT  (1)  TPANS  NUHbEw  / (2)  OLD  If) . FIRST  b CHAPS  / 

(COMMENT  (3)  OLD  ID*  LAST  3 ChAP  / (4)  Nt*  ID*  FIRST  6 / 

(COMMENT  <S)  *E»  ID*  LAST  j // 

STATF  INST  m<jUmP  P 

(IF  4 1 NOEXU  NE  0 (GOTO  -SI 
ERASE  INST  moumP  P 

-SI  FILEUEF  RAMUTIL1  DSK  INST  MDUMP  Ht  F L*  HO  HL  HO 
(STACK  EXEC  MifePpA  (1  * (2  • (J  « 

(STACK  (4  • NS 
(STACK  FIN 
ATTACH  RAMIS  ALL  HP 
FILEOFF  6 OSk  MSG  A ILL 
EXEC  RAMIS 

(STACK  PT 
FILEDEF  © CONO 
(STACK  KT 
(STACK  L.  /SPACE/ 

(STACK  C /SPACE// 

(STACK  DOMN. 

(STACK  P 2 
(STACK  L.  /SPACE/ 

(STACK  C /SPACt// 

(STACK  DO«N. 

(STACK  P 4 
(STACK  0 
EDIT  MSG  KILL 
FILEDEF  HAMUTIL1  CLKAP 
STATE  INST  MUUMP  P 

(IF  (INDEXO  Eu  0 (GOTO  -S2 
(SPACE 

(PRINT  INSTRUCTOR  FILE  ID  DUMP  FAILED  - 
-SI  (P«INT  BYPASSING  FUPTHtR  INST  FILE  PROCESSING* 

(PRINT  PROCEEDING  KITH  COlfKSE'  FILE  PROCESSING. 

(GOTO  -So 

-S 2 STATE  INST  MDUMP2  P 

(IF  (INDEXO  NE  0 (GOTO  -S3 
ERASE  INST  MOUMP2  P 

-S3  FILEDEF  DUMP  USK  INST  MDUMP  h£  F LH  HO  bL  «0 
FILEDEF  UUMP2  DSK  INST  MDUMP2  ME  F LH  lbO  BL  lhO 
(SPACE 
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NCSS  EXECUTIVE  M18EXB  (CONTINUED) 

LOAO  MPGM3  (CLEAR  LlBt)  PLlLIB 
START  IHECMS  2 (BRIEF) 

ASPACE 

AIF  AINDEXO  EU  0 aGOTO  -S4 

APRINT  KtFOKMAT  ( STEP2 ) OF  INST  FILE  DUMP  FAILED* 
APPINT  RETURN  InuEXO  nAS  AlwOtXo  - 
AGOTO  -SI A 

“S4  ASTACK  ExEC  MlbRMB  A1  » A2  « A3  * 

ASTACK  A4  • AS 
ASTACK  fin 
EXEC  MlSEXC 

-S6  STATE  FILE  FT04F0U1  P 

A IF  AlNDEXU  NE  0 AtoOTO  -SB 
ERASE  FILE  FT04F001  * 

-S5  FILEUEF  4 USK  FILE  FTOvFOOl  mE  F LR  lb  «L  lb 
ASTACK  KT 

ASTACK  EXEC  M1HRPC  A1  • A2  * nJ  « 

ASTACK  A4  « AS 
ASTACK  FIn 
EXEC  MlSEXC 
DETACH  RAMIS  HR 
ASTACK  RT 
EXEC  M99EXA  Al 
AEXIT 


FORMAT  18  PROCESSING:  MCSS  EXECUTIVE  » M15EXC 
FILENAME:  M15EXC 
FILETYPE:  EXEC 


ATTPE  off 

ACOMMENT  INTE*'<«L  EXEC  FOR  UtLcTt  SCHOOL. 

ACOMMENT  This  Ext C MtRt.LV  PRINT S ThE  MBG/KlLL  Fli_t. 
ACOMMENT  NO  ENTRY  AP(,S. 

FILEDEF  6 OSK  MSG  KILL 
EXEC  RAMIS 

ASTACK  RT 
FILEOEF  b CONO 
ASTACK  KT 
ASTACK  L.  /SPACt/ 

ASTACK  C /SPACE// 

ASTACK  DO*N. 

ASTACK  P 4 
ASTACK  U 
EOIT  MSG  KILL 
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( ) 


FQRHAT  18  PROCESSING:  NCSS  EXECUTIVE  « M99EXC 
FILENAME:  M99EXC 
FILETYPE:  EXEC 


ATVPt  DFb 

LCUMMtNT  vi.P.  t NL)  TwfcNS  PNvjCtSSi*;*  nSl» 

LCO^HthT  alN(>Lh  la  : (iJ  TfcANaACT ION  NUMbtH 

iSPACt 

APhInT  TkansacTIOH  M HMOCh.bbI>«»  COwPltTfc.0 
STATE  FlLt  FTOhI-OOI  b 

ilF  fclNfitAO  NL  0 «,t * I T 
ERASE  Flit  FTO^Fool  b 
&FXI1 


! 
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FORMAT  18  PROCESSING:  RAMIS  RUN  PROCEDURE  « M18RPA 
FILENAME:  M18RPA 
FILETYPE:  RUNPROC 


DELETE 

FILE  RAMEJEC 

l=0UT=Ml8KPAtS 

END 

CATALOG  M ) 0HP  A 

LL  * CHANGE  INsThUCTuK  ID  PROCESSING*  INSTR  FILE 
LL  * ENTRY  ARGS  ARE  ! (l)  T HANS  NUMBER  * id)  OLD  ID*  FIRST 
hh  * A CHARACTERS  ; CT)  OLD  ID*  LAST  J CMAHS  t (♦)  NE*  ID* 
LL  * FIRST  t>  CHARS  * <s)  Ntta  Iu*  LAST  6 CHAKb  // 

LL  ARGS  CONLAT  = . 
hh  LER  = »NO  ERRORS*  ; 

LL  PRINT  SPACE 

hi.  PRINT  NOR  PROCESS  I Nfe  TRANSACT  ION  NUMBER  Li 
LI  PRINT  INST N ID  L'.L3  TO  Ht  CHANGED  TO  LA. 6,5 
DUMP 

FILE  INST 

PRINT  SLIH  AND  SAVE 
IF  ID  IS  «.<;.L3 
END 

hh  RUN 

LL  IF  LCOND  NE  0 THEN  GO  To  RUST  ; 

LL  IF  LRtCOROS  Nt  0 THEN  GO  TO  bl  i 

LLBUST 

LL  LER  = ‘ERRORS  *ERE*  5 
LLS1 

LL  PRINT  SPACE 

LL  PRINT  TRANSACTION  NUMBER  LI  - INSTRUCTOk  FILE  PROCESSING 
LL  PRINT  LER  DETECTED  IN  STEP1  5 RAMIS  INDICATORS  ARE  : 

LL  RPINT  LCOND  « &NOKE YS  * LPEJECTb  • LRECOKDS  * 

LL  PRINT  LINPUTS  • LTRANS  ♦ LLINES 
END  CATALOG 
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FORMAT  18  PROCESSING:  RAMIS  RUN  PROCEDURE  » H18RPB 

FILENAME:  M18RPB 
FILETYPE:  RUNPROC 


DELETE 

FILE  pameaec 
IsOUTsHlttPpt'** 

END 

CATALOG  MlERPH 

KK  * CHANGE  AN  INSTRUCTOR  ID 

K.&  * INSTRUCTOR  PILE*  2ND  sTAGt  RROCtSslNG 

M * FNTRY  AKGs  AKt  : (t)  TRANS  NOMbtrt  J In)  OLD  ID* 

* FIRST  e>  Cm  AKS  J (i)  'JLD  ID*  LAST  J CHarS  J 

&«.  * (4)  NE*  ID*  FIRST  6 CHAPS  5 (S)  Nt«*  ID*  LAST  J CHAPS  // 

fcg.  ARGS  C()NCAT=. 
t>t>  i£R  = • NO  ERRORS*  ; 

(IS.  &STEP  = • STEP  J * J 
DELETF 
FILE  INST 
IOsOUTafc^.Ka*'* 

END 

RUN 

t»&  IF  fcCOND  Nt  0 THEN  GO  TO  ^UsT  ; 

INPUT 

READ  INST  MDUMP2 
RECORD  IbO 
SET  1 

FORM  9*  1 6* 2 • 3* <♦» 4 * A « A * 4 

FORM  4*4*4*4*4*4*4*4*4 

FORM  4*4*4*4*4*4*4*4 

ORDER  l*2*3*4*t»*f**7«b*R*l 0*11*12 

ORDER  13*l4*lS*lb«l  7 *1(4*19*20 

ORDER  21 *22*23*24*2b*£b 

INSERT  ID  = 

FILE  INST 
END 

&&  RUN 

&&  fcSTEP  * *STtP4*  ! 

is,  if  bCoNO  nf  o Then  go  to  rust  ; 
u if  * inputs  ne  o Then  go  to  si  * 

fcfcliUST 

it  4EP  = 'tRHORS  wtRE  • i 
HSI 

M,  PRINT  SP7CE 

kk  print  transaction  number  m - instructor  FiLt  processing 

U PRINT  fcEP  OETECTED  In  NsTEP  » KA-ila  INDICATORS  ARE  : 

L&  PRINT  fcCONO  ♦ \NOKEYS  ♦ ^REJECTS  • ^RECORDS  • 
ht>  PRINT  ^CHANGES  * NlNPufS  ♦ MranS  * nLINES 
END  CATALOb 
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FORMAT  18  PROCESSING:  RAMIS  RUN  PROCEDURE  « M18RPC 
FILENAME:  M18RPC 


OELETE  

liouT-l.^C,.  FILETVPE:  RUNPR(IC 

END 

CATALOG  MlrtwHC 

AA  * CHANGE  AN  INSTWoCToh  ID 
AA  * COUKSE  FILE  PROCESSING 

AA  * ENTRY  AkGS  AWE  : (1)  TRANSACTION  NUmBLK 


(.1)  OLD 

Chars  ; 


LAST  3 
NEw  ID* 


CHARS 

LAST 


CHARS  // 


SAVE 


AA  * ID*  FIRsT  b CHAR  a ; (.1)  OLD  ID*  LAST  3 CHARS  J 

AA  * (4)  NEW  ID*  FIRST  b CHARS  » (5)  NEw  ID*  LAST  3 CHARS  // 

AA  ARGS  CONCAT=. 

AA  AER  = 'NO  ERRORS'  » 

AA  ASTER  = 'STEPS'  i 

table 

file  COUHSE 

PRINT  COP  AND  FI  AhD  F<?  AND  F3  AND  SAVE 

IF  FI  IS  A2.a3 

END 

AA  RUN 

AA  IF  ACOND  NE  0 THEN  GOTO  BUST  J 
AA  IF  ARECOHUS  EU  0 THEN  GO  TO  HOST  t 
AA  ASTEP  = • sTEPG • * 

DELETE 

READ  FILE  FT04F001 
RECORD  IB 
FORM  A****.! 

ORDER  1*S3*54*S5 
SET  S3 
FILE  COURSE 
END 

AA  RUN 

AA  IF  ACOND  NE  0 THEN  GOTO  HOST  * 

AA  IF  ^CHANGES  EO  U THEN  GOTO  HUST  i 

AA  ASTF  R = • STEP  7 • S 

REVISF 

READ  FILE  FT04F001 
RECORD  IB 
FORM  *. *9*4*1 
ORDER  1*S4*5B 
INSERT  FI  = a*. AS 
KEY  1 «S3 
FILE  COURSE 
ENT) 

AA  RUN 

AA  IF  ACONP  nE  0 THEn  GOTO  HUsT  : 

AA  IF  AlNPUTS  NE  'J  TntN  GOTO  SI  t 
AAHUST 

AA  AEP  = 'ERRORS  wERt • I 
AAS1 

AA  PRINT  SPACE 

AA  PRINT  TRANSACTION  noMBEk  A I - COUKSE  FILE  PROCESSING  ONLY 
AA  PRINT  aER  DETECTED  IN  aSTEP  l RAH 1 S INDICATORS  ARE  : 

AA  PRINT  ACOND  * ANOKEYS  * AkFJECTS  • ARECORDs  » 

AA  PRINT  ACHANGES  * aInpuTS  • ATRANS  * ALINES 


ThEn  goto  hosT 
« T HtN  GOTO  SI 


•ERRORS  WERE* 
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TRANSACTION  FORMAT 
FUNCTION 

DATA  BASE(S)  MODIFIED 
TRANSACTION  TYPE 

TRANSACTION  FILE 
EXECUTION  SEQUENCE 


19 

Change  an  Existing  Bull  ding/ Room  Number 
Facilities  File 
General  Type  E 

Multiple  Step  RAMIS  Execution 
Filename/Filetype  - M19EXA/EXEC 
10 


ADDITIONAL  SUPPORT 


(1)  M19EXB/EXEC  - NCSS  Executive 

(2)  M15EXC/EXEC  - NCSS  Executive 

(3  M99EXA/EXEC  - NCSS  Executive 

(4)  (11 9RP/RUNPR0C  - RAMIS  Run  Procedure 

‘ I 


A training  facility's  building  and  room  number  appear  only  In  the  DOTS  Facilities 
file.  Within  this  file,  they  are  key  fields  for  the  second-level  segment.  The 
second- level  segment  is  thus  maintained  in  sorted  order  by  these  two  fields. 


Change  of  a key  field  must  be  accomplished  by  deleting  the  old  segment  and  re- 
entr>  of  the  deleted  segment  with  the  new  key  value. 

The  Input  Transaction  Processing  Program  constructs  a separate  copy  of  the 
M19EXA/EXEC  for  each  Format  19  Input  transaction.  Each  M19EXA  executive  will 
cause  a unique  execution  of  executive  M19EXB.  Passed  as  execution  arguments 
will  be  the  Input  transaction  sequence  number,  the  old  building  and  room  number, 
and  the  new  building  and  room  number.  Note  that  building  (BLDG)  number  and 
room  (RM)  number  are  two  distinct  fields. 

After  initializing  the  RAMIS  system,  RAMIS  Run  Procedure  M19RP  Is  brought  Into 
execution: 

STEP1  - A dump  of  the  records  containing  the  old  BLDG/RM  numbers  Is 
accomplished  via  a RAMIS  DUMP  function. 

STEP2  - A RAMIS  DELETE  function  Is  used  to  delete  all  of  the  second- 
level  segments  that  contain  the  old  BLDG/RM  as  key. 

STEP3  - The  dump  file  created  In  STEP1,  above.  Is  used  as  transaction 
Input  to  a RAMIS  REVISE  function  which  replaces  the  deleted 
segments  In  their  entirety  with  the  new  BLDG/RM  number  as  key. 
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FORMA F 19  PROCESSING:  NCSS  EXECUTIVE  » M19EXB 
FILENAME:  M19EXB 
FILETYPE:  EXEC 


ATYPt  OFF 

ACOMMENT  CMANbt  A t)LU6/«M.  <;nD-LEYEL  EXEC. 

ACOMMENT  ENTPY  ArtbS  AWE  : 

ACOMMENT  (1)  TrtANb  NU*HEP  / {*)  COP  NUMBER  / 
ACOMMENT  (J)  OLD  HLUb  NUMBER  / (A)  OLD  PH  NUMBER  / 
ACOMMENT  (B)  NEw  HLDG  NUMBER  / (6)  NEW  PM  NUMBER  // 
STATE  FACIL  MOUHP  P 

MF  AlNDtXO  NE  U aUOTO  -SI 
ERASE  FACIL  MDUMP  P 

-SI  FILEOtF  PAMtJTlLl  OSK  FACIL  HUOMP  PE  F LK  HO  8L  80 
ASTACK  KT 

AST ACK  EXEC  M19PP  Al  . A?  • A3  t 
ASTACK  A4  * AS  . 

ASTACK  FIN 
ATTACH  RAMIS  ALL  HP 
EXEC  MlbtXC 
DETACH  RAMIS  bK 
ASTACK  «T 
EXEC  M99FXA  A 1 
AEXIT 


FORMAT  19  PROCESSING:  NCSS  EXECUTIVE  - M15EXC 
FILENAME:  M15EXC 
FILETYPE:  EXEC 


atype  off 

ACOMMENT  InTEP'4*L  tXEC  FO*  JtLcU  SCHOOL. 

ACOMMENT  TmIS  txtC  MtPt.LY  HWlNTS  Trt  MSb/K ILL  Flut. 
ACOMMENT  NO  EHTPY  APbS. 

FILEDEF  r>  OSK  MS6  KILL 
EXEC  RAMIS 

ASTACK  PT 
FILEDEF  b CONO 
ASTACK  KT 
ASTACK  L.  /SPACfc/ 

ASTACK  C /SPACt// 

ASTACK  DOWN. 

ASTACK  P A 
ASTACK  0 
EDIT  MSG  KILL 
AEXIT 
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FORMAT  19  PROCESSING:  NCSS  EXECUTIVE  « M99EXA 
FILENAME:  M99EXA 
FILETYPE:  EXEC 


«.TYPfc  l)fF 

LCUNHtNT  <i.R.  tNU  TraNS  RnuOtSS  iN'o  nS(i 
tC(H*ENT  blNGLh  kwii  lb  : (i)  TRANSACTION  NUMBER 
LS»>ACE 

fcPHlNT  TRANSACTION  M HWGCtSSiR**  COMPLETED 
STATE  FlLt  FrOnFOOl  H 

ilF  is  I Nfit  A 0 Nt  0 isbXIT 
ERASE  Flit  F T 0*»F 00 1 R 
iFXIl 
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FORMAT  19  PROCESSING:  RAMIS  RUN  PROCEDURE  » M19RP 
FILENAME:  M19RP 
FILETYPE:  RUNPROC 


DELETE 

FILE  o&mEXEC 
1sOUT=MvHP.» 

END 

CATALOG  M19RP 
U 4ER  = * NO  tKROKS'  i 
44  4STEP  * 'aTEPl*  5 
DUMP 

FILE  FaCIL 

PRINT  AVMKS  ANU  SAvF. 

IF  CDP  IS  4? 

IF  BLDG  IS  A3 
IF  RM  IS  44 
END 

44  RUN 

44  IF  4C0ND  Nt  0 ThfcN  GOTO  MUST  { 

44  IF  4REC0PDS  t'U  0 THFN  GOTO  .rJUST  ♦ 

44  4STFP  = ' STEP2 ' J 

DELETE 

FILE  FACIL 

CDP=42*HLDG=*3»RMa0UTa44.» 

END 

44  PUN 

44  IF  4COND  Nt  0 TMEn  GOTO  GUST  * 

U IF  4CMAMGtS  tU  U THE*  GOTO  OUST  t 
44  4STEP  = »STEP3*  : 

REVISE 

READ  FACIl  MDUMP 
RECORD  40 

FORM  4*X12*3» 1*6*S 
ORDER  l*S*t>W*8 
KEY  1*3*4 
INCLUDE  3 
INSERT  BLDG  = 4S 
INSERT  RM  a 
FILE  FACIL 
END 

44  IF  4C0ND  NE  » THEN  GOTO  HOST  * 

U IF  & INPUT  S NE  0 TntN  GOTO  SI  1 
44BUST 

44  4ER  * 'ERRORS  *»ERE ' 5 
44SI 

44  PRl*iT  SPACE 

44  PRINT  TRANSACTION  NUMhER  41  - FACILITIES  FILE  ONLY 
44  PRINT  4EP  DETECT to  IN  4STEP  * RAMIS  INDICATORS  ARE  l 
44  PRINT  4C0NJ  « 4N0KEYS  • 4RE JECTS  • 4REC0R0S  • 

44  PRINT  4CHANGES  • 4INPUTS  • 4THANS  * ALINES 
F.NO  CATALOG 

■ ... 


TRANSACTION  FORMAT  : 20 

FUNCTION  : Change  a School  Code 

DATA  BASE(S)  MODIFIED:  Facilities  File 

Instructor  File 
Course  File 

TRANSACTION  TYPE  : General  Type  E 

Multiple  Step  RAMIS  Execution 

TRANSACTION  FILE  : Fllename/Flletype  - M20EXA/EXEC 

EXECUTION  SEQUENCE  : 11 

ADDITIONAL  SUPPORT  : (1)  M20EXB/EXEC  - NCSS  Executive 

(2)  M15EXC/EXEC  - NCSS  Executive 

(3)  M99EXA/EXEC  - NCSS  Executive 

(4)  M20RPA/RUNPR0C  - RAMIS  Run  Procedure 

(5)  M20RPB/RUNPR0C  - RAMIS  Run  Procedure 

(6)  M20RPC/RUNPR0C  - RAMIS  Run  Procedure 


Although  school  Is  not  a key  field,  all  of  the  records  of  the  three  DOTS 
data  bases  contain  a school  code.  Thus,  a Format  2b  Input  transaction  will 
effect  multiple  changes  In  al.l  three  of  the  DOTS  files. 


i 


) 


Since  school  Is  not  key,  a single  RAMIS  CHANGE  function  directed  at  each  of  the 
three  DOTS  files  In  turh  Is  sufficient  to  cause  the  desired  modifications.  All 
records  bearing  the  old  school  code  will  be  changed  to  reflect  the  new  code. 

i 

The  Input  Transaction  Processing  Program  constructs  a separate  copy  of  the 
M20EXA  executive  on  a one-for-one  basis  with  each  Format  20  Input  transaction. 
Each  M20EXA  executive  will  then.  In  turn,  cause  one  separate  execution  of  the 
M20EXB  second- level  executive. 

After  RAMIS  system  Initialization,  executive  M20EXB  passes  control  to  the  fol- 
lowing three  RAMIS  Run  Procedures  (In  the  sequence  shown): 

Run  Procedure  M20RPA 

STEP1  - A RAMIS  CHANGE  function  Is  directed  at  the  DOTS  Facilities 
file  to  effect  the  global  change  of  the  school  code  fields. 
All  records  tagged  with  the  old  school  code  are  modified  to 
reflect  the  new  school  code. 

Run  Procedure  M20RPB 

STEP2  - A RAMIS  CHANGE  function  Is  used  to  change  all  of  the  re- 
quired school  codes  In  the  DOTS  Instructor  file. 
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FORMAT  20  INPUT  TRANSACTION  PROCESSING 
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FORMAT  20  PROCESSING:  NCSS  EXECUTIVE  » M20EXB 
FILENAME:  M20EXB 
FILETYPE:  EXEC 


\TYPt  OFF 

^COMMENT  ChANCit  A SCHOOL  NAME.  2N 0 LEVEL  EAEC. 
(COMMENT  ENTRY  APob  AKE : 

(COMMENT  (1)  TRANSACT  ION  NUMHE-  / 

(COMMENT  <2>  OlO  bCHOOL  COOt  / (J)  WE-  SCHOOL  CODE  // 
(STACK  hT 

(STACK  FxFC  M2UPPA  ^1  . (2  • (J 
(STACK  FIN 
ATTACH  -AMIS  ALL  H* 

EXEC  MlSLXC 

(STACK  EAEC  M20Hfc'H  K]  » (2  * (3 
(STACK  FIN 
EXEC  MlSEXC 

(STACK  EAEC  M2G-HC  (1  » (2  • 

(STACK  FIN 
EXEC  M15EXC 

detach  ramis  aw 

(STACK  RT 
EXEC  M9Rfc  x A M 
(FXtf 


FORMAT  20  PROCESSING: 

NCSS  EXECUTIVE  - M15EXC 

k r- 

FILENAME: 

M15EXC 

FILETYPE: 

EXEC 

(TYPE  OFF 

((.COMMENT  INTt-iiAL  tAtC  F 0-  OtLtTt  SCHOOL. 

(COMMENT  This  t At  C MtWt.LY  HWINTS  The  MSO/K  ILL  FlLt. 
(COMMENT  NO  ENTRY  AP(,S. 

filedef  h osk  Mso  a n. l 

EXEC  RAMIS 

(STACK  WT 
FILEDEF  b CONO 
(STACK  KT 
(STACK  L.  /SPACE/ 

(STACK  C /SPACt// 

(STACK  OOpn. 

(STACK  P * 

(STACK  0 
EOIT  MSG  KILL 
(EXIT 
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FORMAT  20  PROCESSING; 

FILENAME: 

FILETYPE: 


NCSS  EXECUTIVE  » M99EXA 

M99EXA 

EXEC 


k‘» 

M 

!• 


;■ 

* j 


t 

fa- 1 1 


ATYPfc  OFF 

4CUNMtNT  vi.R.  c Nu  TrmNS  HNuCt SS 1 NG  mSG 
iCOMhtNT  ^INGlF  a«G  la  : (i)  TRANSACTION  NUMbtH 

4SRACt 

aprtnt  transaction  4i  processing  completed 
STATE  ElLt  FTOhFUGI  h 

41 F KlNfitAO  NE  0 «,E  X I T 
tRASE  FTl t FTOaFuu  I R 
4F»n 


I 

\ 

{ 


Liu. 


FORMAT  20  PROCESSING:  RAMIS  RUN  PROCEDURE  « M20RPA 
FILENAME:  M20RPA 
FILETYPE:  RUNPROC 


oelete 

FILE  RAMEXEC 

l=0UT=M2l)HPA*S 

END 

CATALOG  MZnRRA 

44  4ER  = * NO  ERRORS*  5 

44  4STEP  * *ST£P1*  1 

CHANGE 

FILE  FACIL 

SCH*42.< 

SCH*SET*43*  *> 

END 

44  RUN 

44  IF  ACOND  NE  0 ThEN  GOTO  RUST  S 
44  IF  4CHANGES  Nt  U TntN  GuTO  si  5 
44HUST 

44  4ER  * 'ERRORS  *ERt ' « 

44S1 

44  PRINT  SPACE 

44  PRINT  TRANSACTION  NUMBER  41  - FACILITIES  FILE  PROCESSING 
44  PRINT  4ER  DETECTED  IN  4STEP  i RAMIS  INDICATORS  ARE  : 

44  PRINT  4C0ND  • 4N0KEYS  « 4REJECTS  t 4KEC0RDS  t 
44  PRINT  4CHANGES  « 4 INPUT S * 4TRANS  * 4LINES 
END  CATALOG 


i 

: 

.! 


I 
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FORMAT  20  PROCESSING:  RAMIS  RUN  PROCEDURE  « H20RPB 

FILENAME:  M20RPB 
FILETYPE:  RUNPROC 


DELETE 

FILE 

l=OUT  = M20t^V','tl 
END 

CATALOG  M^ORPri 

ML  iER  = 'NO  ERRORS'  5 

ML  4LSTFP  = 'STEP2'  ? 

CHANGE 
FILE  INST 
SCH**2»$ 

SCH*SET=ki.t 

ENO 

U RUN 

&&  IF  &COND  NE  0 TiiEN  GOTO  GUST  J 
&S.  IF  ^CHANGES  NE  0 THEN  GOTO  'SI  t 
IABUST 

M.  IER  * 'ERRORS  WERE'  5 

S.S.S1 

U PRINT  SPACE 

ll  PRINT  TRANSACTION  NUMhER  LI  - INSTRUCTOR  FILE  PROCESSING 
LL  PRINT  NER  DETECTEU  IN  LbTEP  ? RAM  I b INDICATORS  ARE  ! 

PRINT  &COND  « NNOaEYS  « LhEJECTS  ♦ LRECOROb  * 

&&  PRINT  ^CHANGES  « LInPuTS  * & TRANS  * LLlNEb 
ENO  CATALOG 


C 


BEL 
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FORMAT  20  PROCESSING:  RAMIS  RUN  PROCEDURE  - M20RPC 


FILENAME:  M20RPC 
FILETYPE:  RUNPROC 


DELETE 

FILE  tfArtt aEC 
lsOUT=M20kPC»% 

END 

CATALOG  M20RPC 
U &EP  = • NO  E KWOKS • ; 

LS.  fcSTEo  = * STEP2  * i 

CHANGE 

file  COURSE 

SCH=L?«S 

SCH=SET  = K.l.  * 

END 

&&  HUN 

&&  IF  &COND  NE  U Then  boTQ  rtUST  I 
&«,  IF  ^CHANGES  NE  0 T HtN  GOTO  Si  ; 

11RUST 

&(.  iE«  = * EHHORS  WERE*  ; 

US1 

&&  PRINT  SPACE 

(.A  PRINT  TRANSACTION  NUMBER  El  - COURSE  FILE  PROCESSING 
M.  PRINT  fcER  DETECTED  IN  fcSTEP  J RAM  I b INDICATORS  AHE  : 
U PRINT  fcCOND  * NNOKEYS  * &REJEC1S  » ^RECORDS  * 
fcl  PRINT  ^CHANGES  • ^INPUTS  * gTRANS  » CLINES 
END  CATALOG 
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TRANSACTION  FORMAT 
FUNCTION 
DATA  BASE(S)  MODIFIED 
TRANSACTION  TYPE 


TRANSACTION  FILE 
EXECUTION  SEQUENCE 


Add  a New  Course 

Course  File 

General  Type  D 

Single  Step  RAMIS  Execution 

Fllename/Filetype  * DSB/RAM 


This  transaction  type  serves  to  establish  a new  course  to  the  DOTS  Course 
file.  The  associated  school  code,  course  CDP  number,  the  CIN  number,  and 
course  title  are  provided  with  the  Input  transaction.  Once  the  course 
record  has  been  established,  the  other  fields  of  the  Course  file  can  be 
added  via  the  following  Input  transactions  directed  explicitly  at  the 
Course  file: 

Formt  6:  Change  a non-key  level-1  field 

Forait  7:  Change  a non-key  field  In  a student/ Instructor  ratio  (SIR) 

segment 

Format  8:  Change  a non-key  field  In  an  Instructor  segment 

Format  23:  Add  a new  SIR  segment 

Format  26:  Add  a new  Instructor  segment  f 

In  response  to  a Format  21  Input,  the  Transaction  Processing  Program  will 
produce  one  copy  of  a RAMIS  REVISE  function.  The  Input  transaction  will 
be  used  as  a type  D fixed  format  transaction  controlling  the  operation  of 
the  REVISE  function.  If  more  than  one  Format  21  Input  transactions  Is 
present,  only  one  REVISE  function  Is  used;  each  Input  after  the  first  Is 
Incorporated  Into  the  REVISE  function  as  an  additional  fixed  format  control- 
ling transaction. 
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FORMAT  21  INPUT  TRANSACTION  PROCESSING 
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TRANSACTION  FORMAT  : 23 

FUNCTION  : Add  a New  Student/Instructor  Ratio  (SIR)  Segment 
to  the  Course  File 

DATA  BASE(S)  MODIFIED  : Course  File 

TRANSACTION  TYPE  : General  Type  D 

Single  Step  RAMIS  Execution 

TRANSACTION  FILE  : Fllename/Flletype  * DSB/RAM 

EXECUTION  SEQUENCE  : 13 


In  response  to  a Format  23  transaction,  the  maintenance  system  will  create 
and  append  a new  SIR  segment  to  a given  course  In  the  Course  file. 

A single  RAMIS  REVISE  function  Is  produced  by  the  Transaction  Processing 
Program  as  a result  of  a Format  23  Input.  The  Input  transaction  Is  copied 
(exactly)  Into  the  REVISE  function  as  the  controlling  transaction.  Each  sub- 
sequent Format  23  Input  (If  any)  Is  copied  into  the  single  REVISE  function 
In  a similar  fashion. 


For  the  SIR  second  level  segment,  the  key  field  (SIR),  and  all  non-key  fields 
(contract  hours  and  course  type)  are  provided  with  the  Input  transaction. 

The  controlling  course  CDP  number  Is  also  provided. 


COURSE  FILE  \ ADD  A NEW  STUDENT/INSTRUCTOR  RATIO  (SIR)  SEGMENT  DSB/RAM 


TRANSACTION  PROCESSING 
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TRANSACTION  FORMAT 
FUNCTION 
DATA  BASE(S)  MODIFIED 
TRANSACTION  TYPE 

TRANSACTION  FILE 
EXECUTION  SEQUENCE 


24 

Add  a New  Instructor  to  the  Instructor  File 

Instructor  File  * 

General  Type  D 

Single  Step  RAMIS  Execution 

Filename/FiU  ype  » DSB/RAM 

14 


A Format  24  Input  transaction  commands  the  Introduction  of  a new  Instructor 
record  Into  the  DOTS  Instructor  file. 


Instructor  ID  (Social  Security  Number)  Is  the  key  field  on  the  highest 
level  in  the  Instructor  file.  This  key  value,  as  well  as  Instructor  rate 
(RATE),  name  (NME),  and  Initials  (IN)  are  provided  on  the  Input  transaction 
and  are  entered  Into  the  file  with  the  new  record. 


If  an  existing  Instructor  file  record  bears  the  same  (Identical)  ID  as  the 
incoming  transaction,  the  new  transaction  will  be  rejected  as  a duplicate 
record  error. 

A single  REVTSE  function  is  produced  by  the  Transaction  Processing  Program 
as  a response  to  a Format  24  input.  The  Input  transaction  Is  copied  Into 
the  REVISE  function  as  a standard  fixed  format  controlling  transaction.  Each 
subsequent  Format  24  Input  (If  any)  will  be  copied  Into  the  same  REVISE 
function. 
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INSTRUCTOR  FILE  > ADD  A NEW  INSTRUCTOR 


FORMAT  24  INPUT  TRANSACTION  PROCESSING 
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TRANSACTION  FORMAT 

FUNCTION  : 

DATA  BASE(S)  MODIFIED  : 
TRANSACTION  TYPE  : 

TRANSACTION  FILE 
EXECUTION  SEQUENCE  : 


25 

Add  a New  Building/Room  Segment  to  the  Facilities 
File  » 

Facilities  File 

General  Type  D 

Single  Step  RAMIS  Execution 

Filename/FIletype  * DSB/RAM 

15 


As  a result  of  a Format  25  Input  transaction,  a new  bulldlng/room  (BLDG/RM)  - 
lower  level  segment  will  be  added  to  the  DOTS  Facilities  file..  All  of  the 
key  and  non-key  fields  required  to  establish  a new  BLDG/RM  segment  are 
provided  with  the  Input  transaction. 

Course  CDP  number  Is  the  high-order  key  In  the  Facilities  file.  The  Crt> 
number  of  the  course  to  which  the  new  BLDG/RM  segment  Is  to  be  appended  Is 
provided  on  the  input  transaction.  The,  user  should  take  care  to  assure  that 
the  CDP  number  provided  Is  correct.  The  results  of  an  Incorrect  CDP  number  are: 

- If  the  Incorrect  number  matches  an  existing* legal  CDP  number 
In  the  Facilities  file,  then  the  new  BLDG/RM  segment  will  be 
appended  to  that  course.  ' 

- If  the  Incorrect  CDP  number  Is  unique,  l.e. , no  match  on  any  of 
the  existing  CDP  numbers  In  the  file,  then  a new  high  level  course 
segment  will  be  created  tagged  with  the  new  (Incorrect)  CDP  number. 

The  new  BLDG/RM  segment  will  then  be  associated  with  the  new  course 
record. 

If  It  Is  known  that  the  course  CDP  associated  with  the  BLDG/RM  segment  does 
not  presently  exist  In  the  Facilities  file,  then  the  second  action  Indicated 
above  would  be  considered  normal.  At  present,  this  Is  the  only  way  provided 
to  add  a new  CDP  to  the  Facilities  file. 
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TRANSACTION  FORMAT 
FUNCTION 
DATA  BASE(S)  MODIFIED 
TRANSACTION  TYPE 

TRANSACTION  FILE 
EXECUTION  SEQUENCE 


26 

Add  an  Instructor  Segment  to  the  Course  File 

Course  File 

General  Type  D 

Single  Step  RAMIS  Execution 

Fllename/Flletype  ■ DSB/RAM 

16 


A Format  26  Input  transaction  causes  a new  Instructor  second  level  segment 
to  be  added  to  a given  course  record  In  the  DOTS  Course  file. 

For  the  Instructor  segment,  ID  (Social  Security  Number)  Is  the  key  field. 

The  maintenance  operation  of  appending  the  new  Instructor  segment  will  reject 
an  ID  that  Is  a duplicate  of  an  existing  Instructor  ID  for  the  same  course. 
The  new  (duplicate)  segment  will  not  be  Introduced  Into  the  file  In  this 
case. 


All  of  the  fields,  key  and  non-key,  of  the  Instructor  segment  are  provided 
with  the  Input  transaction. 
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TRANSACTION  FORMAT 

FUNCTION  : 
DATA  BASE(S)  MODIFIED  : 
TRANSACTION  TYPE 

TRANSACTION  FILE  : 

EXECUTION  SEQUENCE  : 


27 

Delete  an  Instructor  Segment  from  the  Course  File 

Course  File 

General  Type  A 

Single  Step  RAMIS  Execution 

Fllename/Flletype  ■ DSA/RAM 

4 


The  maintenance  operation  resulting  from  a Format  27  Input  transaction  causes 
an  instructor  second  level  segment  to  be  deleted  from  a given  course.  The 
DOTS  Course  file  is  the  only  file  changed.  The  high  level  portion  of  the 
course  record  controlling  the  segment  that  was  deleted  remains  unchanged. 

Instructor  ID  (Social  Security  Number)  Is  the  key  field  of  the  Instructor 
segment.  The  ID  and  course  CDP  number  (the  key  field  of  the  high  level 
portion  of  the  Course  file  record)  provided  In  the  Input  transaction  serve 
to  delineate  one  (and  only  one)  Instructor  segment  for  deletion. 


COURSE  FILE  > DELETE  AN  INSTRUCTOR  SEGMENT 


FORMAT  27  INPUT  TRANSACTION  PROCESSING 
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NCSS  PLI  PROGRAMS 

DOTS  MAINTENANCE  PROGRAM:  Filename  » FCOURSE 

Flletype  * PLI 

PROGRAMMING  LANGUAGE  : PL/1 

NCSS  EXECUTIVES  : FCOURSE 

PROGRAM  FUNCTION 

This  program  produces  a printer  output  to  assist  the  user  In  the  maintenance 
of  the  DOTS  Course  file.  The  blank  forms  produced  have  been  designed  with 
spacing  sufficient  to  allow  entry  of  handwritten  data. 

PROGRAM  FCOURSE  OUTPUT 

A sample  output  from  program  FCOURSE  follows.  Two  unique  courses  may  be 
mentioned  per  page.  The  program  produces  ten  (10)  such  pages  for  each  run. 

At  the  time  of  this  document,  the  executive  FCOURSE  forces  routing  of  the 
forms  output  of  this  program  to  the  NCSS  San  Diego  office. 

Listing  of  Filename  « FCOURSE,  Flletype  ■ PLI 


FCOURSE : /*  MAKtUP  CUUNSE  BLANK  FORMS  - ION/ 1 9/ JUL/76  */ 

PNOC  OPTIONS  (MAIN)  » 


DECLARE.  T 1 CHAN  OH)  STATIC  INIT  ( 

•DOTS  COUNSE  FILE  (FILENAME  a COURSE)  BLANK  SUBMISSION  FORM*  )• 
T5  CHAN  (132)  STATIC  IMT  ( 


NPAOE  FIXED  HIN  STATIC  INIT  ( 10  ). 

T3  CHAN  (i32)  STATIC  InIT  ( 

•CDP  SCH  CTlu  C»S  ctype  PNEC  SUIC  RDTE 

CCMM  PRTY  SIN/  CHHS/  TV/*  )• 

T*  CHAN  (132)  STATIC  INIT  ( 


START:  NC  * 0 * 

OPEN  FILE  (SYSPWINT) 

LlNESl/t  (132)  PAOtalZt  (SB)  5 


ON  ENDPAGt  (srSPNlNT) 

BEGIN  1 

NC  * NC  ♦ 1 * 

IF  ( NC  > NPAbF  ) T HtN  GO  TO  EOJ  i 

PUT  EDIT  ( Tl*  *PaGE  :*•  'DATE  :•*  ‘ORIGINATOR  :•  ) 

( PAGt*  LINE ( 3 ) * A ( SB ) t 

• SKIP (2) ♦ COL ( 19) • A*  COL(SU)«  A*  COL(BU)*  A ) I 
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Listing  of  Filename  » FCOURSE.  Flletype  « PLI  (Cont'd) 

PUT  EDIT  < T3*  'ID  POUAl  ASN't  T4  ) 

( SK IP (2)  t A ( 1 32)  t SK  IP  ( 1 ) * C0L(U5)t  At 
SKIP  ( 1 ) t A ( 132)  ) 5 

END  * 

SIGNAL  ENUPAtit  (SYSPKINT)  ; 

LOOPS  IF  ( LlNENOt SYSPKINT)  > ) 

THEN  SIGNAL  ENUPAGE  (SYSPRINT)  S 

PUT  SKIP  (S)  * 


PUT 

EDIT  l T4  ) ( 

SKIP(l).  ft 

(132) 

) ; 

PUT 

EDIT  ( 'CONV 1 

:»t  »C0nV2 

S't 

•C0NV3  s 

•t 

•MAXCAP 

S't 

•PFAIL  S't 

•MSETH  S't 

T5  ) 

( K(R3> 

) 

1 

FORHAT  ( SKIP (2) t 

COL(/)t  At 

COL (2A) t At 

COL ( 4i ) t At 

COL (SB)  t At 

COL ( 73) • At 

COL ( Vi) t At 

SKIP ( 1 ) t A(1J2)  ) * 

> 

RUT 

EDIT  ( 'LEN1 

: • t • LEN2 

S »t 

•LEN3  S 

•t 

•HINCAP 

S't 

•NADI S S*t 

•TInsTp  : • t 

TS  ) 

.<  R(RJ) 

) 

{ 

PUT 

EDIT  ( »CAP1 

: • t *CAP2 

S • t 

•CAP3  S 

•t 

•PCAP 

S • t 

' NOSrtOw  J*t 

•UUEM  :»t 

TS  ) 

( R(R3) 

) 

; 

PUT 

EDIT  ( 'BCAP1 

: • t «BCaP2 

8 • t 

•6CAPJ  S 

•t 

•ECAP 

5 » t 

•SETd  S • t 

•OPT 1 : • t 

TS  ) 

( R(R3) 

) 

I 

PUT 

EDIT  ( »OMDl 

S't  • DM02 

S • t 

• DMU3  5 

•t 

•SCAP 

S't 

•BKLOG  S»t 

•0PT2  :• 

t TS 

) ( R(R3)  ) 

1 

PUT 

EDIT  ( • BDMD1 

S't  'BDMD2 

S »t 

•BDHD3  8 

•t 

•UCAP 

S't 

•PAOB  :»t 

•OPT 3 S • t 

TS  ) 

( K(*3) 

) 

1 

GO  TO  LOOP  ; 

EOJ:  CLOSE  FILE  (SYSPRINT)  i 

ENO  FCOURSf.  * 
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DOTS  MAINTENANCE  PROGRAM:  Filename  « FINST 

Flletype  * PLI 

PROGRAMMING  LANGUAGE  : PL/1 

NCSS  EXECUTIVES  : FINST 


PROGRAM  FUNCTION 

To  assist  the  user  In  accumulating  handwritten  data  changes  for  the  DOTS 
Instructor  file,  a blank  form  has  been  deslgrted.  This  program  produces 
these  forms  as  printer  output. 

PROGRAM  FINST  OUTPUT 

Following  Is  an  Illustration  of  the  output  from  program  FINST.  One  sheet 
allows  reference  to  three  distinct  Instruction  records.  Ten  (10)  pages  of 
such  forms  are  produced  In  a single  run  of  FINST. 

The  executive  FINST  forces  routing  of  the  output  of  program  FINST  to  the  NCSS 
5an  Diego  office. 

Listing  of  Filename  » FINST.  Flletype  ? PLI 


FINST:  /*  PRODUCE  INST  F ILF.  FlLLlN  FORMS  M0N/19/JUL/76  */ 

PROC  OPTIONS  (MAIN)  J 


DECLARE 


T 1 
T2 
T 3 


CHAR  (132)  STATIC* 
CHAR  (104)  STATIC* 
CHAR  (*4)  STATIC* 


T4  CHAR  <SM>  STaTIC  INIT  ( 

•DOTS  COURSE  FILE  (FILENAME  = COURSE)  HLANK  SUBMISSION  FORM*  )* 


NPAGE  FIXED  HlN  STATIC  INIT  ( 10  ) « 

START:  NC  a 0 ; 

II  ( 8 ) * * ; 


T2  = • •Ills)' 


t 


T3  = SUHSTR  ( T2*  1*  n*»  ) * 


OPFN  FlLt  (SYSPRINT) 

LlNESIZE  (132)  PAGt s I ZE  <SH)  ; 


ON  EMUPAOE  (SYSPRINT) 

BEGIN  1 

NC  *.  NC  ♦ 1 ; 

IF  ( NC  > NPAGE  ) THEN  GO  TO  EUJ  1 
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Listing  of  Filename  3 FINST.  Filetype  * PLI  (Cont'd) 


PUT  tuir  ( T4t  'PAGE  S't  • OATE  S't  'ORIGINATOR  S'  ) 

( PAGfc t LINE (3) * 

4 ( S A ) * SKlP(2)t  COLUVlt  A.  COL(SO)t  At 
COL (HO) t A ) ; 

PUT  toil  < »10't  'PATE  iN't  'NHt't  'SCH't 
•REP't  ' ROT • t 'PNEC't  'SNEC't 
'Nt  C3 ' t 'NECA't  'NECS't  T1  ) 

( SK IP (2 ) t 

COL  (to)  t At  COL  ( 1 8 ) t At  C0L(42)t  At  C0L(B8)t  At 
COL ( G8 ) t At  COL ( 78) t At 
A ( 1 ) t S ( A (6) t A (4)  ) t 

Sr  IP  < 1 ) t a(1J<;)  ) * 


SIGNAL  ENOPAgE  (SYSPPINT)  * 

IF  ( LINENO(SYSPkInT)  > tt  ) 

THEN  SIGNAL  ENUPAGE  (SYSPRINT)  » 

PUT  SMP  (*?>  i 

PUT  EDIT  ( Ti  ) ( SKIP(l).  A(132)  ) S 

PUT  EUIT  < 'COixT  : ' t 'PREP  S't  'FTHN  S't  'FLET  S't  'SKLV  S't 
T? t 'COEV  : • t ' kK IN  S't  ' MDUT  S't  »aOMN  S't  'SLIB  S't 

T2t  'EwmT  :»t  'CTkn  s't  'ISCh  s»t  'aNLV  S't 
TJ  ) 

( SK 1 P ( £ ) t COL(10)t  At  COL(30)t  At  COL(SO)t  At  COL(TO)t 
At  COL ( 90 ) t At  SKIP ( 1 ) t A ( 1 0 4 ) t 
SMPtEU  COL(10)t  At  COLOO)t  At  COL(50)t  At  COL(70)t 
At  COL (SO) • At  SKIP<l)t  A(iU4)t 
SMP(«;)t  COL  ( 1 0 ) t At  COL(30).t  At  COL(S0)t  At  COL(70)t 
A t SKIP(l)  t A ( 84 ) ) S 

GO  TO  LOOP  ; 

CLOSE  FILE  (bYSPPiNT)  { 


ENG  E INsT  S 
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DOTS  MAINTENANCE  PROGRAM:  Filename  « MPGM3 

Flletype  ■ PLI 

PROGRAMMING  LANGUAGE  : PL/1 

NCSS  EXECUTIVES  : REFORM 


PROGRAM  FUNCTION 

A card-image  file  Is  produced  as  a result, of  the  execution  of  a RAMIS  dump 
function.  80-byte  output  records  are  produced  regardless  of  the  length  of 
the  RAMIS  file  Internal  record.  A DUMP  function  directed  at  each  of  the  DOTS 
files  results  In  the  following  output: 

Facilities  file:  One  card  output  per  Internal  record 

Instructor  file:  Two  cards  required  per  Internal  record 

Course  file:  Three  cards  per  Internal  record  are  required 

Use  of  the  dump  output  to  control  subsequent  RAMIS  maintenance  functions 
requires  that  the  multiple  card  Images  be  combined  Into  single  records. 
Program  MPGM3  combines  single  80-byte  Input  records  Into  multiples  of  two 
(160- byte  output  records)  or  multiples  of  three  (240-byte  output  records). 

PROGRAM  MPGM3  INPUT/OUTPUT 

MPGM3  requires  a primary  card-input  data  set.  Input  as  parameter  Input 
from  executive  * REFORM  Is  a single  digit,  value  * 2 or  3.  This  parameter 
input  directs  blocking  the  output  at  two  (160  bytes)  or  three  (240  bytes). 

Listing  of  Filename  « MPGM3,  Flletype  » PLI 


MPGH3 : /*  COMBINE  2/MORE  CAMUS  INTO  A SINGLE  LKECL  - 20/MAY/76  •/ 

PROC  (PAHMS)  OPTIONS  (HA  IN)  * 

DECLARE  PAMMS  CHAR  (100)  VARYING* 

NEOF  FIXED  H IN  (31.0)  STATIC. 

IHESAMC  ENTRY  ( FIXED  BINARY  01.0)-  ) I 

DECLARE  CAROS  (2.0)  CHAM  (1)  STATIC. 


CARUl 

CHAR 

(80) 

RASED 

(PCI) 

t 

CARD2 

CHAR 

(80) 

BASED 

(PC2) 

t 

CARD3 

CHAR 

(80) 

BASED 

(PCJ) 

9 

BUF2 

CHAR 

(1*0) 

BASED 

(PB)  . 

8UF3 

CHAR 

(240) 

BASEO 

(PB) 

1 
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Listing  of  Filename  - MPGM3.  Filetv 


PLI  (Cont'd) 


STARTERRUPP: 

GET  STRING  (PARMS)  EDIT  (NTOT ) ( F(4)  ) * 

PB  = ADDR  ( CARDS ( 1 ) ) ) 

PCI  = ADOR  ( CAPOS ( 1 ) ) ; 

PC  2 = ADDR  (CAhUS(BD)  t 
PC3  = ADDR  (CAROS (161) ) I 
NK»  NC  * 0 * 

OPEN  FILE  (DUMP)  RECORD  INPUT  * 

FILE  (DUMP2)  RECORO  OUTPUT  I 
ON  ENDFILE  (DUMP)  GO  TO  EOJ  ; 


NEOF  = 0 ? 

READ  FILE  (DUMP)  INTO  (CARD1 ) ( 
NC  * NC  ♦ 1 i 
NEOF  = 4 ; 

READ  FILE  (DUMP)  INTO  (CARD2)  I 
NC  = NC  ♦ 1 ; 


IF  ( NTOT  = 2 ) THEN  GO  TX>  w2  I 


READ  FILE  (DUMP)  INTO  (CAR03)  ; 

NC  = NC  ♦ 1 S 

*'  WRITE  FILE  (0UMP2)  FROM  (3UF3)  ; 

NR  = NR  ♦ 1 « 

GO  TO  R1  ; 

WRITE  FILE  (DUMP2)  FROM  (HUF2)  I 
GO  TO  W 3A  I 

DISPLAY  ( • » ) ; 

DISPLAY  ( NC  I I • : TOTAL  INPUT  DUMP  RECORDS'  ) J 
DISPLAY  ( NR  II  • : TOTAL  OUTPUT  COMBINATION  RECORDS'  ) I 

CLOSE  FILE  (DUMP)*  FILE  (0UMP2)  * 

CALL  IHESARC  ( NEOF  ) I 

END  MPGM3  t 
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DOTS  MAINTENANCE  PROGRAM  : Filename  « PCOURSE 

Flletype  ■ PLI 


PROGRAMMING  LANGUAGE 
NCSS  EXECUTIVES 


PROGRAM  FUNCTION 


: PL/1 

: PCOURSE 
PCB 


Program  PCOURSE  produces  a formatted  printer  output  of  the  contents  of  the 
DOTS  Course  file.  The  complete  contents  (all  data  fields)  of  all  records 
of  the  Course  file  are  printed. 

PROGRAM  PCOURSE  INPUT/OUTPUT 

Input  to  PCOURSE  Is  the  reformatted  dump  file  C0URSE/DUMP2  (fllename/flletype). 
This  file  contains  240-byte  records  which  resulted  from  a previous  RAMIS  dump. 
See  the  discourse  for  maintenance  program  * MPGM3  In  this  section  of  this 
document. 

Output  from  PCOURSE  Is  shown  In  the  following  Illustration.  The  complete 
dunp  file  Is  printed  on  a single  run  of  PCOURSE.  The  NCSS  executive  PCOURSE 
forces  a resort  of  the  dump  file  Into  prime/secondary  sort  order  by  School 
Code/Course  CDP  number  before  printing. 

Sample  of  Program  PCOURSE  Output 
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Listing  of  Fllcnawe  ■ PCOURSE.  Flletype  - PLI 

PCOURSE:  /*  PRINT  COURSE  FILE  FROM  DUMP  OUTPUT  - 7/JUL/76  */ 
PROC  OPTIONS  (MAIN)  * 


DECLARE 


2 

COP 

Char 

(4)  • 

2 

SCH 

CHAR 

(4)  • 

2 

DEL 

CHAR 

(1)  . 

2 

CTLG 

CHAR 

(10)  * 

2 

CRS 

CHAR 

(16)* 

2 

CONV1 

Char 

(3)  * 

2 

LEN1 

CHAR 

(4)  » 

2 

CAP1 

Char 

(3)  * 

2 

BCAP1 

CHAR 

(3)  « 

2 

OMD1 

CHAR 

(S)  * 

2 

BDMD1 

CHAR 

(b)  • 

2 

OFST 

CHAR 

(2)  • 

2 

pfail 

CHAR 

(S)  » 

2 

NAOIS 

CHAR 

(b>  « 

2 

NOSHOW 

CHAR  (S)» 

2 

SETS 

CHAR 

(S)  • 

/*  ENO  OF 

FIRST  DUMP  CARD 

2 

BftLG 

CHAR 

(4)  • 

2 

MAXCAP 

CHAR  (4)* 

2 

C0NV2 

CHAR 

(3)  * 

2 

LEN2 

CHAR 

(4)  . 

2 

CAP2 

CHAR 

(8)  » 

2 

BCAP2 

CHAR 

(3)  * 

2 

0MD2 

CHAR 

(S)  • 

2 

BOMD2 

CHAH 

(b)  . 

2 

CHWK2 

CHAR 

(3)  • 

2 

CONVJ 

CHAR 

(3)  • 

2 

LEN3 

CHAR 

(4)  • 

2 

CAP3 

CHAR 

(3)  * 

2 

8CAP3 

CHAR 

(3)  • 

2 

DM03 

CHAR 

(b)  » 

2 

B0MD3 

CHAR 

(b)  * 

2 

CHWK3 

Char 

(3)  • ■ 

2 

MINCAP 

CHAR  (4)* 

2 

afail 

CHAR 

(S)  . 

2 

PRTY 

CHAP 

(2)  * 

2 

CTYPE 

CHAR 

(2)  • 

2 

PNEC 

CHAR 

(4)  • 

2 

UCAP 

CHAH 

(3)  * 

/*  END  OF 

SECOND  CARO*  80 

2 

FPRTY 

CHAH 

(C)  * 

2 

UOEM 

CHAR 

(3)  * 

2 

ROTE 

char 

(6)  » 

2 

HSETB 

CHAR 

(b)  » 

2 

TINSTR 

ChaR  (4)* 

2 

SUIC 

CHAR 

(b)  • 

2 

CCMM 

CHAH 

(10)  * 

2 

0PT1 

Char 

(6)  « 

2 

0PT2 

CHAH 

(6)  * 

2 

OPT  3 

CHAH 

(b)  * 

2 epAP  CHAR 

(31.  W-HA. 

IMAGE*  80  BYTES  EXACTLY  •/ 


BYTES  EXACTLY  */ 


O 
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Listing  of  Filename  « PCOURSE.  Flletype  « PLI  (Cont'd) 

2 SOAP  Char  (3)* 

2 PCAP  CHAR  ( 3)  • 

2 PAOB  CHAR  (4)* 

2 FI  Char  (9) * 

2 F2  CHAR  (4) • 

2 F3  Char  (1)  ; 


OECLARE  RC2  CHAR 
OLDSCH 
CDP2  CHAR 
FF 1 CHAR 
FF2  CHAR 
FF3  CHAR 
MAKE  CHAR 
Ml  CHAR 
M2  CHAR 
M3  CHAR 
SAVE  (100) 


(24(1)  STATIC* 

CHAR  (4)  STATIC  INIT  ( 
(4)  Dt F RC2* 

(9)  UEF  «C2  PUS  (227) * 

(4)  UEF  RC2  PuS  (236) • 

(1)  DEF  RC2  PUS  (240)* 

(21)  STATIC  INIT  ( • * 

(V)  l)EF  MAKt  POS  (1>* 

(4)  DEF  MAKt  POS  ( Id) * 

(1)  DEF  MAKt  POs  (20* 

CHAR  (21)  STATIC  * 


« * 


) * 


) * 


OECLARE  RCOURSE  CHAR  (240)  STATIC* 

LMAX  STATIC  INIT  ( 56  ) » 

REOF  8 1 T (1)  STATIC  INIT  ( »Q»H  )♦ 
DGET  CHAR  (6)  STATIC. 

YY  CHAR  (2)  OEF  DGET* 

MM  CHAR  (2)  DEF  DGET  POS  (3)* 

DO  CHaR  (2)  DEF  DGET  POS  (6)  * 


■ 

| 


OECLARE  T 1 CHAR  (44)  STATIC  INIT  ( 

•DOTS  COURSE  FILE  LISTING 
T2  CHAR  (19)  STATIC  INIT  ( 
•ON  XX/XX/XX  AT  XXXX*  )• 


•COP 

CCMM 


DTE  CHAR  (8)  DEF  T2  POS  (4)* 
TME  CHAR  (4)  OFF  T2  POS  (lb)* 
T3  CHAR  (ld2>  STATIC  INIT  ( 
SCH  CTLG  CHS 

HRTY  FPRTY 

T4  CHAR  (132)  STATIC  INIT  ( 


(FILENAME 


CTYPt 

SIR/ 


= COURSE)  • ) * 


PNEC  SUIC  ROTE 
CHRS/  TY/»  )« 


• ....  ...... ... — ......  .....  ....  .....  ...... 


START:  OPEN  FILE  (DUMP)  RECORD  INPUT* 

FILE  (SYSPRINT)  STREAM  print 

LlNESIZt  (132)  PAGESIZE  OH)  I 


ON  EN0F1LE  (DUMP)  GO  To  EOJ  I 

ON  ENOPAbE  (SYSPRINT) 

BEGIN  $ 

NPAGE  = NPAGt  ♦ 1 I 


PUT  EDIT  ( Tl.  »PAGE  : •♦  NPAGE*  T2*  T3* 
•ID  PQUAL  ASN • * T4  ) 

( PAGE*  L INE ( 3) * 

COL ( 1 0 ) « A (44 ) . COL ( 70 ) * A*  F(4)* 
SK IP ( 1 ) • COL (20) • A ( 1 V) * 
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Listing  of  Fllenaae  - PCOURSE.  Flletype  ■ PLI  (Cont’d) 


R1 : 


STEPA! 


R2 : 


STEPP: 


L 12: 


L3: 


SKIP (2) * A ( 1 32 ) • 

SK IP  ( 1 ) ♦ COL ( 1 IS)  • At 
SKlP(l)*  A ( 132)  ) * 


PUT  SKIP  (1)  ; 
END  S 


PI  = ADDK  (RCUUPSE)  ; 

DGET  * DATE  i 

DTE  = MM  I I •/•  I I OD  II  •/•  II  YY  J 
TmE  = SUBSTP  ( TIME.  1.  4 ) I 
NCt  NP AGE  * 0 * 

LMAX  = LMAX  - * 5 

SIGNAL  ENDPAgE  (iYSPRINT)  » 


READ  FILE  (DUMP)  INTO  (hCOUKSE)  I 
NC  * NC  ♦ l * 

OLDSCH  = SCH  I 


nn  = i ; 

Ml  = FI  1 M2  = F2  * M3  * F3  ; 
SAVE ( 1 ) = MAKE  I 


READ  FILE  (DUMP)  INTO  (KC2)  i 
NC  = NC  ♦ 1 » 


IF  ( CDP2  -=  CDP  ) THEN  GO  TO  STEPX  1 


NN  * NN  ♦ 1 1 

Ml  * FF1  J M2  * FF2  1 

SAVE (NN)  * MAKE  » 

MO  TO  K2  * 


M3  = FFJ  I 


STEPX : IF  ( NN  >*  V ) THEN  GO  TO  STEPP  » 


NN  * NN  ♦ 1 I 
SAVE (NN)  s * • * 

GO  TO  STF.P*  * 


IF  ( LINENO (SYSPH1NT ) > LMAX  ) 

THEN  SIGNAL  ENDPAGE  (SYSPHINT)  I 


PUT  EDIT  ( CDP.  SCH.  CTLG.  CHS.  CTYPE.  PNEC. 

SUIC.  MOTE*  CCMM.  PHTY.  FPHTV.  SAVE ( 1 ) . SAVE(2>  ) 

( SKIP (3) . A ( A ) . X ( 2 ) . A ( A ) . X ( 2 ) . A(lO). 

X (2 ) . A ( 1 6 ) . X ( 3 ) . A (2) . X ( A ) « A (A ) « X(2).  A(5). 
X ( 1 ) • A (b) • X (2) • A(1U).  X ( 3 ) • A (2) • 

X< A) • A (2) » X (21 ) . A (21 ) . 

SKIP ( 1 ) . CuL (112).  A(21)  ) S 


PUT  EDIT  ( • 


CONV1 


CUNV 1 » 


CONV2  ! 
CONV3  i 
MAXCAP 

pfail 


*.  C0NV2. 

•*  CONVj, 

! ».  MLXCA*. 
: •*  PFAII  f 
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Listing  of  Filename  » PCOURSE,  Filetype  » PLI  (Cont'd) 


L4: 


L5: 


L6: 


L7: 


L8: 


O 

W 


* HSfcTH  : *t  HSETHt  SAVEO) 

( SK  18(1)  * X(2)t  J ( A ( 14 ) t AO) 
At  A (b)  t At  A(b)t  X ( 4 ) t A(21> 


) 


) t At  A (4 ) t 

) ; 


Lfc.Nl 

: » 


PUT  EUIT  ( * 

• LtN2 

• Lt.Ni 

• NlNCAP 

• WAOls 

• TInSTp 
SK I P ( 1 ) t A(2) 
A*  A (4) t X (4) 


( 


PUT  EDIT  ( * 

CAP? 
Capj 
PC  ap 
nOShO# 
liUt* 

( SK IP  < 1 ) t 
At  AO)t 


CAP  1 


X (?) 
X (4) 


PUT  EUIT  ( • 

8CAP2 
bCAPJ 
ECAP  • 
StTP 
OPT  1 

( SKIP ( 1 ) t 


aCAPi 


X (2) 


: 't  LLNl t 

i_EN2t 

LfcNJt 

MlNCAPt 

NAOISt 

•t  TlNSTHt  Sa Vt ( 4 ) ) 

4 ( A ( 1 j) t A ( 4 ) ) t At 

a { 21 ) ) ; 


A (b)  t 


•t  CAP 1 t 


t CA&2t 
t CAP J, 
t PCAPt 
NUSHOw  t 
*t  UUfcM t 
4 ( A ( 1 4 ) t 
A (21)  ) ; 


SAVE  (r>) 
A ( 3 ) 


) 

) t 


At  A (S) t 


*t  HCAPlt 


At  A (6) t X (4) t 


t 6CAP2  t 
t HCAP3 1 
t ECAPt 
StTbt 

OPT  1 1 SAVE(b)  ) 
4 ( A ( 1 4 ) t A ( 3 ) 
A ( 2 1 ) ) I 


) t At  A (5) t 


PUT  EUIT  ( * 

DMU2 
DMU3 
SCAP 
8KLG 
OPT? 


DM01  : »t  UHDlt 
S ••  0MD2t 
: »t  UMD3 1 


•t  SCAPt 


• t 8*L0t 


».  0 PT?t  SAVE ( 7 ) > 

( SK I P ( 1 ) t X ( ? ) t 3 ( A ( 1?) t A ( s ) )t  At  A(3)t 
At  A(4)t  At  A (6) • A (4) t A (21 ) ) » 


PUT  EUIT  ( • 

HUMU2 
UUMU3 
UCAP 
PAOH 
OPT  3 

SKIP(1) t 
At  A (4 ) t 


HUMD1  : *t  rtOPOlt 

: • t WUM02 1 

: »t  HDnu3t 
•t  UCAPt 
*t  PAOBt 

•t  0PT3 1 SAVF(B)  ) 
X (2)  t J ( A ( 12) t A (b) 
At  A ( 6 ) t X ( 4 ) t A (21 ) 


) t 

) ; 


At  A (3) t 


AFTEPPH1NT: 

IF  ( NN  <*  a ) TMtN  GO  TO  STEPY  I 


1 


STEPN? 


N * 9 * 

PUT  EDIT  ( SAVfc(N)  ) ( SKlPUlt  C0L(ll2)t  A(21)  ) I 
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Istliw  of  FlUn— e » PCOURSE.  Flletvpe 


PLI  (Cont'd) 


IF  ( N <*  NN  ) THEN  60  TO  STEPN  t 
STEPV:  IF  ( REOF  ) THEN  GO  TO  wlNDUP  ; 

RCOURSE  * RC«*  * 

IF  ( SCm  = OLOSCH  ) THEN  60  TO  STEPA  I 
OLUSCH  = SCH  I 
SIGNAL  ENDPA6E  (SYSPRINT)  » 

60  TO  STEPA  ; 

EOJ:  REOF  * *1'h  » 

60  TO  STtPX  ; 

WINOUPJ 

SIGNAL  ENOPAGE  (SYSPRINT)  I 

PUT  LIST  ( NOW  AT  EOF  ***•  ) SKIP  (3)  ; 

PUT  LIST  ( »***  • II  NC  II  • ! DUMP  RECORDS  PROCESSED*  ) 
SKIP  U>  t 

DISPLAY  ( NC  I I 'DUMP  RECORDS  PROCESSED*  > * 

CLOSE  FILE  (uUMP) » FILt  (SYSPRINT)  * 

» 

END  PCOURSE  t 
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DOTS  MAINTENANCE  PROGRAM  : Filename  - PFACIL 

Flletype  • PLI 

PROGRAMMING  LANGUAGE  : PL/1 

NCSS  EXECUTIVES  : PFACIL 

PFCB 


PROGRAM  FUNCTION 

This  program  serves  to  provide  a printer  output  of  the  contents  of  the  complete 
DOTS  Facilities  file.  The  NCSS  card-image  file  FACIL/DUMP  Is  used  as  an  Input 
to  this  program. 

PROGRAM  PFACIL  INPUT/OUTPUT 

The  Input  for  PFACIL  Is  taken  from  the  dump  file  FACIL/DUMP  (fllename/flletype). 
This  Input  Is  In  card-image  (80-byte)  format;  the  file  was  created  by  a previ- 
ous run  of  a RAMIS  dump  function. 

The  NCSS  executive  PFACIL  resorts  the  dump  file  Into  School  Code  and  CDP 
Number  order.  The  original  dump  file  Is  In  prime  sort  CDP  Nrnnber  order. 

i 

Output  from  PFACIL  Is  shown  In  the  following  example.  The  complete  dump 
file  Is  printed  on  a single  run  of  PFACIL. 

Listing  of  Filename  ■ PFACIL;  Flletype  » PLI 


PFACIL!  /*  PRINT  FACIL  FILE  FROM  DUMP  OUTPUT  - 7/UUL/76  •/ 
PROC  OPTIONS  (PAIN)  t 

DECLARE  1 FACIL  BASEO  (HI), 

2 CUP  CHAP  (A) * 

2 SCH  CHaR  (4)« 

2 BLDG  ChAP  (4) « 

? RM  CHAP  (4) * 

2 KMCAP  CHAR  (3)* 

2 RMTP  CHAR  (I) * 

2 REQHRS  CHAR  (6)* 

? AVHRS  CHAR  (*,)  ; 


OECLARE  RFACIL  CHAR  (BO)  STATIC* 

OLDSCH  CHAR  (4)  .STATIC  INIT  ( »XXXX»  )* 

OLDCDP  char  (4)  STATIC  InIT.  ( • « )* 

DUET  CHAR  (t>)  STATIC* 

YY  CHAR  (C>  DEF  DGET* 

MM  CHAR  (2)  DEF  DGET  POS  (3)* 

DD  CHAR  (2)  DEF  DGET  POS  (S)  I 


» — a 


44 
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Listing  of  Fllenane  « PFACIL.  Filet 


PLI  (Cont'd) 


DECLARE  T 1 CHAR  (47)  STATIC  INIT  ( 

•dots  facilities  file  listing  (filename  * facilj*  >* 

T2  CHAR  (IS)  STATIC  INIT  ( 

•ON  AX/AX/XA  AT  XXXX*  )» 

DTE  CHAR  (8)  DEF  T2  POS  (A) * 

THE  CHAR  (4)  OEF  T2  PUS  (it?)* 

T3  CHAR  (SO)  STATIC  InIT  ( . 

•COP  SCH  HLDG  RM  RMCAP  RMTP  REQHHS  AVHRS • )• 

T 4 CHAR  (SO)  STATIC  INIT  < 

i ) ; 

STARTS  OPEN  FILE  (DUMP)  RECORD  INPUT » 

FlLt  (SYSPRINT)  STREAM  PRINT 

LInESIZE  (132)  PAGESIZE  (SB)  I 

ON  ENOFILE  (DUMP)  GO  TO  EOJ  I 

ON  ENOPAGE  (SYSPRINT) 

BEGIN  $ , 

NPAGE  = NPAGE  ♦ 1 ; 

PUT  EDIT  ( Tl*  »PaGE  : •*  NPAGE*  T2*  T3.  T4  ) 

( PAGE*  LINE ( 3) * 

COL  (10),*  A ( 47 ) * COL  ( 70 ) . A*  F(4)* 

SK IP ( 1 ) * COL (20 ) • A ( 1 V ) * 

SKIP (2) • A ( SO) * SK IP ( I ) * A ( SO ) ) f 

PUT  SKIP  (1)  I 
END  ; 

pi  = addr  (rfacil)  ; 

DGET  = DATE  » 

DTE  = MM  I I •/•  I I DO  I I •/•  I I YY  * . 

TME  = SUHSTR  ( TIME*  1*4)  t 

NC • NPAGE  = 0 ; 

Ri:  READ  FILE  (UUmP)  INTO  (RFaCIL)  * 

NC  * NC  ♦ 1 ; 

STEP2J  IF  ( SCH  = OLUSCH  ) THEN  GO  TO  STEP3  I 
OLDSCH  = SCH  ; 

SIGNAL  ENDPAGE  (SYSPRInT)  1 


STEP3:  IF.  ( CDP  = OLOCDP  ) THEN  GO  TO  STEP1  » 

PUT  SKIP  (i)  I 
OLOCDP  - CDP  I 
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Listing 
STEP1 : 


EOJ: 


o 


jfckM  r Bl  |M| 


of  Filename  « PFACIL.  Flletype  « PLI  (Cont'd) 


PUT  EOIT  ( F6CIL  ) 

( SK1P(1>'  A ( 4 ) * Alt!)'  A ( 4 ) * Aid)*  A{4>* 

X (2 ) * A ( 4 ) * X (3) * A (3) * X (4 ) * A ( 1 ) « 

X (4)  * A (6) * X (2) * A (5)  ) * 

(40  TO  HI  ; 

SIGNAL  ENDPAGE  (SYSPRINT)  * 

PUT  LIST  ( •***  NOW  AT  EOF  ***•  ) SKIP  (3)  J 
PUT  LIST  ( *****  • I I NC  I I » : OUMP  RECORDS  PROCESSED*  ) 
SKIP  (I)  I 

DISPLAY  ( NC  I I • DUMP  RECORDS  PROCtSSED*  ) » 

CLOSE  FlLt  (DUMP)*  FILE  (SYSPRINT)  * 


END  PFACIL  I 
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Sample  of  Program  PFACIL  Output 


JOTS  FACILITIES  file  lISTIhO  (HLENAMF 
ON  Otf/07/71'  AT  17+b 


* FaCIl) 


COM 

mmmm 

SCH 

hlog 

MM 

WMCAP 

MMTh 

wf.VHPS 

AVHHS 

1130 

430 

678 

116 

16 

3 

7.0 

1 760 

1130 

430 

678 

118 

16 

2 

30.0 

1750 

1130 

430 

678 

121 

10  • 

2 

20.0 

1750 

1130 

430 

6 18 

137 

16 

2 

67.0 

1 750 

1130 

430 

678 

23V 

16 

1 

l 38.0 

1 750 

1262 

430 

678 

121 

0 

2 

10.0 

1750 

1 262‘ 

430 

6/8 

221 

0 

1 

46.0 

1760 

2058 

430 

676 

116 

10 

2 

16.0 

1 760 

2068 

430 

678 

221 

20 

1 

1V.0 

1750 

262  b 

430 

6 78 

112 

26 

1 

12.0 

1750 

2625 

430 

678 

118 

6 

2 

23.0 

1750 

3 2 3G 

4 JO 

678 

14V 

2*0 

2 

48.0 

1750 

3236 

430 

678 

20V 

40 

1 

148.0 

1750 

506T 

430 

676 

116 

6 

2 

v.o 

1750 

SOM 

4 JO 

676 

•221 

30 

1 

1V.0 

1750 

506V 

430 

6 7.8 

116 

12 

2 

2V.0 

1750 

SOhV 

430 

678 

221 

30 

1 

20.0 

1760 

506Y 

430 

676 

221 

20 

1 

6.0 

1750 

506Z 

430 

6 78 

112 

25 

1 

10.0 

1750 

S06Z 

430 

676 

134 

16 

4 

11.0 

625 

b07C 

430 

678 

116 

16 

1 

13.0 

1750 

607C 

430 

678 

134 

16 

4 

22.0 

625 

607F 

430 

676 

116 

16 

3 

21.0 

1750 

507F 

430 

676 

22V 

4U 

1 

14.0 

1750 

540Z 

430 

678 

221 

20 

1 

20.5 

1760 

6025 

430 

678 

108 

20 

3 

15.0 

1750 

6025 

430 

678 

112 

25 

1 

10.0 

1750 

6025 

430 

678 

116 

15 

3 

15.5 

1 750 

6025 

430 

678 

116 

16 

2 

27.0 

1750 

6025 

430 

678 

121 

20 

2 

IV. 0 

1750 

6025 

430 

67b 

126 

20 

2 

23.0 

1750 

6025 

430 

'6  78 

139 

16 

2 

13.0 

1750 

6025 

430 

678 

149 

20 

3 

63.0 

1750 

6025 

430 

678 

233 

20 

1 

15.0 

1750 

6025 

430 

678 

235 

20 

1 

102.0 

1750 

V-188 
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DOTS  MAINTENANCE  PROGRAM  : Filename  * PINST 

Flletype  * PLI 

PROGRAMMING  LANGUAGE  : PL/1 

NCSS  EXECUTIVES  : PINST 

PICB 


PROGRAM  FUNCTION 

A formatted  printer  output  of  the  contents  of  the  DOTS  Instructor  file  Is  pro- 
duced by  program  PINST.  The  complete  contents  (all  data  fields  In  all  records) 
are  printed  In  a single  run  of  PINST. 

PROGRAM  PINST  INPUT/OUTPUT 

Input  to  this  program  is  the  reformatted  dump  file  INST/DUMP2  (filename/ 
filetype).  This  file  contains  160-byte  records  which  resulted  from  a previous 
RAMIS  dump.  The  reformatting  operation  is  discussed  in  the  section  covering 
program  = MPGM3  in  this  document. 

Output  from  program  PINST  Is  shown  in  the  following  sample.  The  complete 
dump  file  is  printed  on  a single  run  of  PINST.  The  NCSS  executive  PINST 
sorts  the  dump  file  Into  School  Code/ 1 ns true tor  ID  order  before  printing. 

Listing  of  Filename  = PINST,  Flletype  = PLI 


I 


PINST:  /*  PRINT  INST  FILE  FROM  DUMP  OUTPUT  - 7/JUL/76  */ 
PROC  OPTIONS  (MAIN)  { 


DECLARE  1 


INST 
2 ID 


2 

2 

2 

( 


NME 
IN 

RATE 
2 SCH* 
SnEC  f 
CONT* 
SKIN, 
ISCH, 
SKL  V ♦ 


BASED  (PI) 
CHAR  (9) • 
CHaR  (lo)* 
CHAN  (2)* 
CHAR  <S)* 

2 REP*  i 
2 NEC3 * 


2 

2 

2 

2 


CDEV  * 
CTRN* 
FLET* 
SLIH 


ROT*  2 PNFC. 

2 NECa*  2 NECB* 
2 EClMT*  2 PRtP* 
2 FTRN * 2 MDUT* 

2 ADMN*  2 ANLV* 
CHAR  (A)  » 


DECLARE  RINST  CHAR  (160)  STATIC* 

OLDSCH  CHAR  (A)  STATIC  INIT  ( 'XX  X'  )* 


LMAX 

STATIC  INIT 

( 58  ) * 

D6ET 

CHAR 

(6) 

STATIC* 

VV 

CHAR 

(2) 

DEF 

D6ET* 

MM 

CHAR 

(2) 

DEF 

UGET  POS 

(3)  • 

DO 

CHAN 

(2) 

DEF 

DGET  POS 

(5)  ; 
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Listing  of  Filename  - P1NST.  Filetype  = PLI  (Cont'd) 


DECLARE  T 1 

T2 

DTE 

THE 

T3 

t^NEC  SNEC 
T 4 


CHAR  (4b)  STATIC  INIT  ( 

•DOTS  INSTRUCTOR  FILE  LISTING  (FILENAME  * INST)*  >* 
CHAR  (19)  STATIC  INIT  ( 

•ON  XX/XX/XX  AT  XXXX ' ) • 

CHAR  (8)  DEF  T2  POS  (4) * 

CHAR  (4)  DEF  T2  POS  (lb) • 

CHAR  (bb)  STATIC  INIT  ( 

• ID  RATE  IN  NME  SCH  REP 

NEC  J NEC4  NECS*  )» 

CHAR  (bb)  STATIC  INIT  ( 

t - _ _ ________________  _ ___  ____ 


START:  OPEN  FILE  (DUMP)  RECORD  INPUT* 

FILE  (SYSPRINT)  STREAM  PRINT 

LINESIZE  (132)  PAGESIZE  (Sb>  I 


ON  ENDFILE  (DUMP)  GO  TO  EOJ  I 


ON  ENDPAGE  (SYSPRINT) 

BEGIN  ; 

NPAGE  = NPAGE  ♦ 1 i 

PUT  EDIT  ( Tl*  ‘PAGE  : •*  NPAGE*  T2.  T3*  T4  ) 
( PAGE*  L INE ( 3 ) * 

COL (10)*  A (46) * COL ( 70 ) * A*  F(4)* 

SKIP ( 1 ) * COL (20 ) * A ( 19) * 

SK IP (2) « A (Bb) • SKIP ( 1 ) * A(8b)  ) * 

PUT  SKIP  (1)  I 
END  I 

PI  = ADDR  (RINST)  } 

DGET  * DATE  ( 

DTE  = MM  I I */•  II  DD  II  •/•  II  YY  ; 

THE  = SUBSTR  ( TIME*  1*  4 ) t 
| NC.  NPAGE  = 0 * 

LMAX  = LMAX  - 9 t 

Rl:  READ  FILE  (DUMP)  INTO  (RINST)  * 

NC  * NC  ♦ 1 ? 

IF  ( SCH  = OLUSCrl  ) THEN  GO  TO  STEP1  I 
OLDSCH  = SCH  I 
SIGNAL  ENDPAGE  (SYSPRINT)  * 


y-iso 

i*  , ^ ... 

i fiimriihiilfti 


ROT 
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Listing  of  Filename  » PINST.  Filetvoe  ■ PLI  (Cont'd) 


STEPi:  IF  ( LINENO (SYSPRINT ) > LMAX  ) 

THEN  SIGNAL  ENOPAGE  (SYSPRINT)  I 

PUT  EDIT  ( ID*  RATE*  IN*  NME*  SCH*  REP*  ROT* 

PNEC*  SNtC*  NEC3*  NEC**  NEC5  ) 

( SKIP (3) • A (9) * X (2) • A (5) • X<2>*  A(2). 

X (2)  * A ( 16)  • 8 ( X (2)  • A (4)  ) ) » 

PUT  EDIT  ( 'CONT  : ».  CONT*  * PREP  ! •*  PREP* 

• FTKN  : •*  FTRN*  • FLET  : •»  FLET* 

• SKLV  : •*  SKLV  ) 

( SKIP (2) * COL ( 12) • A*  A ( 4 ) * 4 ( A(ll),  A(4)  ) ) I 

PUT  EDIT  ( * CDEV  : •*  CDEV*  • BK IN  ! •*  BKIN* 

• MOOT  : •*  MOUT * • ADMN  : •*  ADMN* 

• SLIR  : »♦  SLIB  ) 

( SK IP ( 1 ) * CUL (12)*  A*  A ( 4 ) • 4 ( A(ll)*  A(4)  ) ) I 

PUT  EDIT  ( ' EOMT  : •*  EUMT * » CTHN  : •*  CTHN* 

• ISCH  : •*  ISCH*  • ANLV  : •*  ANLV  ) 

( SK IP  ( 1 ) » COL ( 12) * A*  A ( 4 ) « 3 ( A(ll)*  A(4)  ) ) I 

I 

GO  TO  R1  ; 

EOJ:  SIGNAL  ENDPAGE  (SYSPRINT)  » 

PUT  LIST  ( •***  NO*  AT  EOF  ***•  ) SKIP  (3)  » 

PUT  LIST  ( •***  • II  NC  I I • S DUMP  RECORDS  PROCESSED'  ) 
SKIP  (1)  I 

DISPLAY  ( NC  I I • DUMP  RECORDS  PROCESSED*  ) I 
CLOSE  FILE  (DUMP).  FILE  (SYSPRINT)  i. 

END  PINST  ; 


i 


JOTS  INSTRUCTOR  file  LISTIN'*  lULtNANF  ■ INST) 
ON  0O/07/76  AT  1766 


PAGE  t 


10 

RATI 

IN 

N**E 

SCH 

REP  ROT  PNEC 

SNEC 

NEC3 

NEC  4 1 

473626394 

ARH1 

OB  HANSEN 

6E 

7605  7906 

•••• 

CONT 

1 

600 

PRER 

l 

1UU 

FTRN 

l 

0 flet 

1 

u 

SKLV 

• 

. 0 

coev 

t 

IS 

BRIN 

l 

750 

MOUT 

l 

120  AONN 

1 

SO 

SLIB 

l 

0 

EONT 

1 

140 

CTRn 

1 

V 

I SCH 

t 

160  ANLV 

t 

200 

HTC 

CE  PUSH 

6E 

7404  7704 

*500 

CONT 

1 

776 

PREP 

I 

4B 

FTRN 

t 

0 FLET 

t 

0 

SKLV 

t 

B 

COEV 

1 

46 

BKIN 

• 

30 

NOUT 

t 

190  AONN 

1 

250 

SLIB 

1 

336 

EONT 

t 

36 

CTRN 

t ‘ 

0 

ISCN 

1 

0 ANLV 

1 

360 

461700667 

HT2 

R JEFFERY 

6E  1 

7509  7809 

9502 

CONT 

t 

500 

PREP 

t 

250 

FTRN 

t 

0 FLET 

1 

100 

SKLV 

1 

0 

COEV 

1 

SO 

BKIN 

l 

20 

NlHiT 

1 

100  AONN 

1 

50 

SLIB 

1 

30 

EONT 

1 

100 

CTRN 

1 

60 

ISCN 

1 

200  ANLV 

1 

620 

490462714 

NMC 

JH  EARNEST 

6E 

7509  7009  4294 

• 

CONT 

s 

721 

PREP 

l 

125 

FTRN 

1 

0 FLET 

1 

75 

SKLV 

1 

0 

COEV 

t 

45 

HR  In 

1 

75 

NOUT 

1 

152  AONN 

1 

ITS 

SLIB 

1 

175 

EONT 

t 

75 

CTRN 

1 

0 

ISCN 

1 , 

150  ANLV 

1 

312 

49242360) 

ABN) 

NL  STINSON 

6E 

7402  7702 

*502 

CONT 

1 

204 

PREP 

1 

200 

FTRN 

l 

32  FLET 

1 

100 

SKLV 

1 

0 

COEV 

t 

0 

BKIN 

1 

100 

NOUT 

t 

052  AONN 

1 

100 

SLIB 

• 

0 

EONT 

1 

104 

CTRN 

1 

0 

ISCN 

t 

240  ANLV 

1 

240 

<903622306 

NT  I 

0 SHOON 

6E 

7403  7703  4951 

9502 

CONT 

1 

4B2 

PH£P 

l 

200 

FTRN 

l 

66  FLET 

1 

50 

SKLV 

1 

0 

COEV 

1 

36 

BKIN 

1 

36 

NOUT 

1 

140  AONN 

I 

0 

SLIB 

l 

30 

EONT 

I 

60 

CTRn 

l 

120 

ISCN 

t 

200  ANLV 

1 

500 

V-192 
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DOTS  MAINTENANCE  PROGRM  : Filename  « SUPRP6M 

Filetype  * PLI 

PROGRAMMING  LANGUAGE  : PL/1 

NCSS  EXECUTIVES  : SUPER 

SUPERX 

PROGRAM  FUNCTION 

This  program  Is  referred  to  in  Figure  II-l  as  the  Input  Transaction  Proces 
sing  Program.  SUPRPGM  Input  Is  the  DOTS  system  maintenance  transactions 
as  transmitted  from  the  user  site  via  the  WANG  computer  system.  These 
transactions  are  used  directly  as  transmitted  or  reformatted  as  required 
to  effect  the  maintenance  functions. 

PROGRAM  SUPRPGM  INPUT/OUTPUT 

Input  to  this  program  Is  covered  In  detail  In  separate  sections.  Each 
transaction  type  Is  covered  individually  both  In  Input  format  and  output 
resulting  from  SUPRPGM. 


I 

I ! 
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Listing  of  Filename  « SUPRPGM.  FITetvpa  » PLI 


SUPRPGM:  /•  SUPER  TRANSACTION  PROCESSOR*  MON/ 19/ APR/76  */ 
PROC  OPTIONS  (MAIN)  I 


/*  REVISIONS  ! 
WE0/21/JUL/76 


FR 1/13/ AUG/7 b - 


DEBUG  FIXES  TO  ELIMINATE  *10*  ANO  *SIR*  NAMES 
FROM  COURSE  FILE  PROCESSING.  SHOULD  BE  «F1«. 

FIXED  TYPES  2*  14*  19*  2S  TRANSACTIONS 
TO  ALLO»  BLOG  ANO  RM  FIELDS  OF  FACIL  LENGTH 
CHANGE  TO  A (A)  EACH. 

ALSO  REMOVED  SLASH  INSERTION  IN  GETFBL 
SUBROUTINE. 


OECLAPE  BUF  CHAR  (80)  STATIC* 

TRAN  CHAR  (dO)  STATIC* 

BUFA  (80)  CHAR  (1)  BASED  (PB> » 

TRANSA  (80)  CHAR  (1)  BASED  (PT) * 

CC1  CHAR  (1)  DEF  TRAN* 

F64  CHAR  (64)  DEF  TRAN* 

F40  CHAR  (40)  OEF  BUF. 

TNF  CHAR  (2)  DEF  TRAN. 

TRAN64  CHAR  (b4)  DEF  TRAN*  . 

NUMB  PICTURE  '9999** 

TSEU  PICTURE  '9999*  DEF  TflAN  POS  (61)  * 

DECLARE  ( SRET1 « SRET2*  READR*  REOF.  RGEN*  R8UST * SRET3* 
COM678*  VECTOR (27)  ) LABEL  I 

DECLARE  ( COPEN.  AOPEN*  BOPEN.  FLAGEOF  ) BIT  (1)  STATIC. 
PFLAG  BIT  (1)  STATIC  1NIT  ( *1»B  ) * 


DECLARE 


(18)  * 


BLANK  CHAR  (4)  STATIC  INIT  ( • * ). 

NN  FIXED  BIN  (31*0)  STATIC  INIT  ( 0 )* 

ERMSG  CHAR  (13)  STATIC  INIT  ( » ??? ( XXXXX > ??? • 
NNER  PICTURE  '99999*  DEF  ERMSG  POS  (S)* 

DERM  CHAR  (21)  STATIC  INIT  ( 

•ERROR  ONCODE  WAS  XXXX'  )• 

NONC  PICTURE  *9999*  DEF  DERM  POS  (18)* 

DERM2  CHAR  (23)  STATIC  INIT  ( 

•CONVERSION  ROUTE  wAS  AX'  )• 

NNCtR  PICTURE  '99*  DEF  UERM2  POS  (22)  * 


DECLARE  ( NUM2*  NUM2A  ) PICTURE  */4»  STATIC* 
DS 1 320  CHAR  (b>  STATIC  InIT  ( • • ) 

OSOPEN  CHAR  (d)  bTATIC  INIT  ( * • ) 

FILLF  CHAR  (1)  STATIC  INIT  ( •••  )* 
NTRAN  PICTURE  */2Z^'  STATIC* 

JMAX  STATIC  INIT  ( 10  )» 

IHESARC  ENTRY  ( FIXED  BINARY  (31*0) 


OECLARE  SS1320  ( 13:20*  10  ) 
7*  12*  13*  IS* 
0*  0*  (B) 0* 

7*  10*  (8)0* 


FIXEO  BIN  STATIC  INIT 
(6)0* 
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Listing  of  Filename  = SUPRPGH.  Filetype  » PLI  (Cont'd) 


7 » 10*  11*  14*  (6)0* 

7*  10*  11*  13*  14*  16*  (4)0* 

7*  12*  13*  lb*  16*  £ 1 * <£2*  <24*  (2)0* 

7*  10*  11*  1 4 * lb*  16*  19*  22*  23*  26* 

7*  10*  11*  14*  (6)0  ) ; 

DECLARE  SS2126  ( 21:26*  6 ) FIXtD  BIN  STATIC  INIT  ( 
1*  2*  7*  11*  1 4 * 1 w » 

0*  (b) 0 * 

1*  3*  « ♦ 12*  lb*  1 V * 

1*  4*  *♦  11*  1 4 * 18* 

1*  b»  10*  13*  14*  17* 

1*6*  e*12*lb*l*): 

DECLARE  T2126  (19)  CHAR  (23)  STATIC  InIT  ( 

•REVISE'* 

•FORM  A2*4.4*10»16»* 

•form  a6*4*3»4*i'* 

• F OHM  A2«4«*tb*2* 16* • 

•FORM  A2*4*4*4*4«3*l*7*b,» 

• FORM  Xo*4*y**»*  1 • * 

•ORL)tR  2*l*4*b** 

•ORDER  1 ♦ S3  » b<n  bb • • 

•ORDER  b* 1 *4*3*2' • 

• OROEH  2*1»3*4*5»6*7*8*. 

•KE.Y  1*. 

•KEY  1 *S3 • ♦ 

•KEY  1 *3*4» ♦ 

•INCLUDE  1 • ♦ 

•INCLUDE  53* » 1 
•INCLUDE  3 • ♦ 

•FILE  EACIL'* 

•FILE  INST*. 

•FILE  COURSE*  ) 5 


/•••••••••»«•••••«««•«»»•/ 

ON  EHROR  BEGIN  * 

NONC  = ONCOUt  ; 
ER99  * NNER  = 99  J 


NU*S  = NT  * 

DISPLAY  (BLANK)  J 
DISPLAY  (ERMSg)  » 

DISPLAY  (DERM)  * 

DISPLAY  (BLANK)  « 

DISPLAY  ( NUMB  ||  • * ||  TRAN64  ) J 

NN  = 8 ; 

GO  TU  SETCODt  l 

END  : 

ON  CONVERSION  BEGIN  { 

NONC  = ONCOUE  5 

nncer  = ncerk  : 

ER2!  NNER  = 2 » 
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DISPLAY  (BLANK)  t 
DISPLAY  (ERMSG)  I 
DISPLAY  (DERM)  f 
DISPLAY  (DERM2)  * 

OISPLAY  ( NUMB  II*  * II  TNAN6*  ) * 
DISPLAY  (BLANK)  I 

GO  TO  CQNVERTREROUTE  I 

END  ; 


STARTEHRUP: 

PB  s AODR  (BUF)  I 
PT  = ADDR  (TRAN)  { 

NT*  NCEHR*  NtK  = 0 I 
AOPEN*  BOPEN*  COPEN  = »0»B  t 

OPEN  FILE  (TRANS)  RECORD  update  ; 

ON  ENDFILE  (TRANS)  GO  TO  WlNOUP  I 

DISPLAY  (BLANK)  ; 

DISPLAY  ( ‘PRINT  TRACE  OF  TRANSACTIONS  ??  (Y/N)«  ) 
REPLY  ( RUF  ) ) . 

IF  ( BUF A ( 1 ) = * N * ) THEN  PFLAG  * »0»B  I 

DISPLAY  (BLANK)  t 
GO  TO  START  I 

« 

CONVERTREHOUTt : 

IF  ( NCERR  = 1 ) THEN  60  TO  READ1 A ; 

IF  ( NCERR  = 2 ) THEN  GO  TO  ER1  I 

/*  NOTE  - FALLTHRU  IF  NCERR  IS  NOT  * 1 OR  2 */ 

/••••••••••••••••»«•••••«/ 


START: 

READR  = STEP!  * 

READi:  NCEHR  s 1 I 

* READI AJ  READ  FILE  (TrANS)  INTO  (TRAN)  I 

IF  ( CC1  = ) THEN 

UO  ( 

IF  ( PFLAG  ) THEN  DISPLAY  ( F64  ) ( 

GO  TO  READI A * 

END  I 


NT  * NT  ♦ I ; 

TSEU  * NT  f 

REWRITE  FILE  ( TR  A(JS ) FROM  (TRAN)  I 
IF  ('PFLAG  ) THEN  DISPLAY  ( TSEtt  II 


GET  STRING  (TNF)  EDIT  (NF>  ( F(2)  ) * 
NCERR  « 2 I 
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IF  ( NF  > 1 ) & ( NF  < 20  ) 
THEN  GO  TO  HEAPS  i 

GO  TO  twl  * 


STEPi:  GO  TO  VtCTOW  ( nF  ) ; 

/••••••••••«•••«»««««••««/ 

VECTOR ( 1 ) : VECTOH (4) : VECTOR 15) : VECTORS): 

VECTOPUO):  VECTOH  (22)! 

EW1:  /*  HERE « INVALID  F OHMAT  NUMBtN  IN  COLUMNS  1-2  */ 


NEH  = 1 ; 

RBUST  = HEAU1A  J 

GO  TO  HUSTN  ; 

/••••»•••••••••»•«•••»•««/ 

VECTOR (2) J /*  LEVtL-2  CHANGE  TO  FACILITIES  FILE  (NON-KEY)  */ 
REOF  * V2J  ( FLAGEOF  = U*B  t 

BUF  = 'UPDATE*  ; SRE T d = V2A  i GO  TO  WHITEC  t 
V2A:  BUF  = • FILE  FACIL'  I SHET2  = V2B  * GO  TO  WHITEC  * 


V2B : 

BUF  = • CDP=  * ; 

NX  = 5 ( NA  = 7 ? 

NB  = 10  J 

SRET1  i V2C  1 

GO  TO  GETF  ; 

V2C: 

SUBSTR  (BUF*  NX*  5) 

= •BLDG**  1 

NX  = NX  ♦ a ; 

NA  s 11  1 NB  = U 

1 

SRET1  = V2D  ; 

N4IDE  = * ; GO  TO  GETFBL  * 

V2D : 

SUBSTR  (BUF*  NX*  3) 

. S »HMS«  ; 

NX  = NX  ♦ 3 ; 

NA  = 15  1 NH  * lb 

1 

SRET1  = V2E  ( 

GO  TO  GETF  * 

V2E : 

NA  * 19  i nB  = 2A 

; 

SHF.  T 1 = V2F  ; 

GO  To  GtTF  ; 

V2F : 

NX  = NX  - 1 { 

SUBSTR  (BUF*  NX*  S) 

= **SET=*  * 

NX  * NA  ♦ s ; 

NA  * 2b  1 Nb  = 31 

; 

SRET1  = V2G  I 

GO  TO  GETF  ; 

V2G:  SRET3  = V2H  * Ni  = 2 I 

V2GAS  SUBSTR  (BUF*  NX*  1)  = » 

SRET2  = V2H  I GO  TO  bRITEC  * 
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V2H:  READR  * V2I  * 

GO  TO  KEAOl  * 

V2I : IF  ( NF  a Ml  ) 

THEN  GO  TO  SHET3  * 
RGEn  = STEPl  ; 


V2J:  8UF  a 'END*  * 

FLAGEOF  = • 0 ' R * 

SRET2  = HGEN  » 

GO  TO  toRITtC  ; 


VECTOR (3)  ’!  /*  LEVEL-1  CHANGE*  NON-KEY  FIELDS*.  INSTRUCTOR  FILE  */ 

REOF  » V2J  ; FLAGEOF  = * 1 • B * 

BUF  = 'UPDATE*  * SWET2  = VJA  { GO  TO  WRITEC  I 

VJA : BUF  * ' FILE  INST*  ( 

SRET2  = V3«  * GO  TO  UK  I TEC  i 


V3B:  BUF  = «ID=«  » 

NX  a 4 I NA  a 7 ; NB  • 15 ' I 

SRET1  a V3C  I GO  TO  GtTF  I 

V3C:  NA  a 16  J NB  a *21  ; 

SRET1  a V30  ; GO  TO  GETF  l 

V3D : NX  a NX  - 1 ; 

SUBSTR  (BUF*  NX*  5)  a 'aSETa*  f 

NX  * NX  ♦ 5 J 

NA  a 22  I NB  a 37  | 

SRET1  a V3F  ; GO  TO  GETF  * 

VJE:  SRET3  * V3B  i 

Nl  = 3 i 

GO  TO  V2GA  ; 


VECTOR  <6) : /*  LEVEL-1  NON-KEY  FIELO  CHANGE.  COURSE  FILE  */ 

C0M678  a vfrC  T 


V6AAJ  REOF  a V2J  ; FLAGEOF  a ipb  ; 

BUF  a 'UPDATE'  1 SRET2  = VbA  ; GO  TO  KRITEC  I 


V6A: 


BUF  a • 


FILE  COURSE*  » SRET2  a VbH  I GO  TO  tfRITEC  \ 


BUF  a * CDPa • ; 

NX  a 5 J NA  a 7 ; i\lH  = 1 0 I 

SRET1  a COHG7B  I GO  TO  GETF  » 


V6C : 


NA  a U | NO  a lb  t 


1 

1 

-j 
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NXSAV  a NX  ; 

SRET1  a V6D  ; GO  TO  GETF  » 

V60: 

NX  a NX  - I ; 

SUBSTR  (BUF.  NX.  b)  = *=SETa»  ; 
NX  a NX  ♦ 5 ; 

NA  a 17  ; NB  a 32  * 

SRET1  a VbE  t 

| 

NWIOE  = 10  ; 

IF  ( SUBSTR (BUF.NXSAV.4)  a »CTLG»  ) 
THEN  GO  TO  GETFrtL  ; 

1 

NWIOE  = 16  ; 

IF. ( SUBSTR (BUh .NXSAV.J)  = »CRS*  ) 
THEN  GO  TO  GETFPL  l 

GO  TO  GcTF  J 

V6E : 

SRET3  = V6B  t 

ni  = b ; 

60  TO  VEGA  ; 


VECTOR ( 7) : /*  COURSE  FILE.  SIR-SEGMENT.  NON-KEY  FIELD  CHANGE  */ 

C0Mb78  = V7C  l 

GO  TO  V6AA  ; 


V7C:  SUBSTR  (BUF.  NX.  i)  = »Fla»  ; 


NX 

s 

NX  ♦ 

3 ( 

NA 

s 

11  1 

NB  = 

13 

1 

SRET1 

= V7D 

( 

GO  TO 

GETF  ; 

V70: 

NA 

s 

14  » 

NB  = 

19 

\ 

SRET1 

a V7E 

t 

GO  TO 

GETF  1 

V7E : 

NX 

S 

NX  - 

l ; 

SUBSTR  (BUF.  NX.  S)  ' = *=SET=»  I 
NX  = NX  ♦ S { 

NA  a 20  ? NB  = 23  ! 


SRET1  = VfF  I GO  TO  GETF  « 

V7F : SRET3  = VbH  } 

Nl  = 7 ; 

GO  TO  VEGA  { 

/••••••••••••••••»••••«•«/ 

VECTOR (8) : /*  ID-SEGMENT  NON-KEY  FIELD  CHANGE.  COURSE  FILE  */ 

COMo  78  = V8C  ; 

GO  TO  VbAA  * 
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vbc  : 


SUBSTR  (bUF.  NX.  3)  = »F1=*  * 


J 


VBD : 


V8E : 


NX 

s 

NX  ♦ 

3 « 

NA 

s 

li  ; 

NB  = IV 

; 

SRETl 

= VBl)  ; 

GO  TO 

GETF 

; 

NA 

Jg 

20  ; 

NH  = 25 

I 

SRETl 

a VHE  ; 

GO  TO 

GETF 

; 

NX 

;■ 

NX  - 

i ; 

SUBSTH  (BUF.  MX.  5)  * • =SET* • ; 
NX  = NX  ♦ S ; 

NA  a 2R  i Mb  = 29  J 

SRETl  = VbF  J GO  TO  GETF  * 


VBF : 


SRET3  = VbM  i 
Nl  s H I 

GO  TO  V2GA  J 


/#***• 

GETF : 


/*  G.P  FItLD  ISOLATION  S.R.l  RETURN  LINK  IS  (SRETl). 
ENTER  WITH  NA.  NB  (TRAN  REC)  AND  NX  (BUF  REC)  SET. 
LEAVE  RITH  NX  SET  TO  NEXT,  AVAIL  SLOT  IN  (BUF). 

FILL  EITHER  COMMA  OR  BLANK.  ( FILLF ) DETERMINES.  */ 


FILLF  = •.»  5 

GO  TO  GLPI  3 


getfa:  fillf  = • • ; 


GLPI : 
GLP2 : 


NX  = NX  - 1 * 

IF  ( TRANSA (NA)  = • • ) THEN  GO  TO  GFTALLY  » 


NX  * NX  ♦ 1 ; 

BUFA  (NX)  = TRANSA  (NA)  ; 


GFTALLY!  NA  a NA  ♦ 1 * 

.£  IF  ( NA  < a nH  ) THEN  GO  TO  GLP2  i 


PUTCHAR! 


NX  a NX  ♦ 1 ; 

BUFA  (NX)  = FILLF  ; 
NX  a NX  ♦ I ; 


GO  TO  SKFT1  ; 

>••••«•«/ 


GETFRL!  /*  G.P  FIELD  ISOLATION  S.R.J  RETURN  LINK  IS  (SRET1 ) . 

ENTER  WITH  NA.  NR  (THAN  REC)  AND  NX  (BUF  REC)  SET. 
LEAVE  R I TH  NX  SET  TO  NEXT  AVAIL  SLUT  IN  (BUF). 

FILL  ElTHtR  COMMA  OR  HLANK.  (FILLF)  DETERMINES. 
ENTRY  MADE  RiTH  Nw I DE  = MAX  ALLOWED  FIELD  RlDTH  OF 
CHARACTER  FIELD.  */ 


FILLF  = ».»  ; 
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6ETFBLA: 


go  to  gf'hli  ; 

FILLF  = • • i 


GFBLl  : NULL  = 0 « 

NX  = NX  - 1 ; 


6FBL2  5 NX  = NX  ♦ l i 

NF ILL  = NFILL  ♦ 1 ? 
bufm(nx)  = tkansa(na)  ; 


NA  = NA  ♦ 1 ; 

IF  ( NFILL  >=  NwlDE  ) T HEN  GO  TO  PUTCHAR  ; 
IF  { NA  <=  Nb  ) THEM  GO  TO  GFfc»L2  ; 


GO  TO  PUT  CHAP  J /»  IN  ( GtTF ) S.R.*  ABOVE  */ 
/»••«*•»*•••««*«»»»««««*«/ 

VECTOR (11)!  /*  DELETE  AN  OLD  CDP  TRANSACTION  */ 


V 1 1 A : 

COMb78  = V11C  : 
REOF  = W INU2  : 

FLAGEOF 

HUF  = • delete  * ; 

SRET2 

V11B: 

BUF  = • FILE 

FACIL* 

VI  1C : 

C0M678  = VllE  5 

VI  ID : 

BUF  = *CDP=OUT=* 

• 

« 

NX  = 9 J NA  =7 

; nb 

FILE  F AC  I L ' i SRET2  = COM678  I GO  TO  HHITEA  * 


SRET1  = COM67B  * GO  TO  GETF  : 


VI  IE : 
VI  IF : 


SRET3  = Vllh  ; 

substh  (buf»  nx«  i)  = *s*  ; 

SRET2  = VilG  ; GO  TO  RR I TEA  ; 


VUG: 


BUF  = * END • ! 

SRET2  = SRET3  i Go  TO  VR I TEA  ; 


V11H: 

Vllj: 


C0M&78  = VllL  * 

REOK  = *1ND2  » FLAGEOF  = *U*B  ; 

HUF  = 'DELETt*  * SRET  2 = V11K  l GO  TO  HR  I TEA  t 


VI  IK  : 
VllL: 


HUF  = • 


FILE  COURSE*  : SnET2  = C0M678  » GO  TO  BKITEA  I 


COM&78  = V11M  * 

GO  TO  V11D  ; 


V11H! 


SRET3  = START  * 

GO  TO  V11F  J 


/••••••••••••••»«»••»»«••/ 

VECTOR ( 12) : /*  DELETE  AM  OLD  SIR-SEGMENT  TRANSACTION  */ 

. Jl .. . 
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C0MO78  = V12A  ; 

GO  TO  VI 1J  I 

V12A : COM678  = V12C  * 

V12R:  BUF  = *COP=*  * 

NX  = b ♦ MA  = 7 ; N8  = 10  ; 

SRET1  = COM678  ; GO  TO  GETF  ; 

V12C : SURSTR  (BUF*  NX*  7)  = »Fl=OUT=*  I 

NX  = NX  ♦ 7 ; 
na  = n ; Nb  = 13  ; 

SRET1  = VllM  ; 

GO  TO  GETF  ; 

/•••••••»«««•••»••»«««»•«/ 

VECTOR (14):  /*  DELETE  AN  EXISTING  6LDG/RM  FROM  A COP 

C0M67B  = V 1 4 A ; 

GO  TO  V 1 1 A ; 

V14A:  C0K678  = Vl4b  I 

GO  TO  V 12b  ; 


V14BJ  SUBSTR  (BUF*  NX*  3)  = »KM=»  ; 

NX  = NX  ♦ 3 A 

NA  s 15  I NB  = lb  A 

SRET1  =•  V 1 AC  ; GO  TO  GETF  A 

VI AC : SUBSTR  (BUF*  NX*  9)  = »BLDG=OUT=»  A 

NX  = NX  ♦ 9 a 
NA  * 11  A Nb  = 14  1 

V14D:  SRETl  = VllM  ; 

NVIDE  = 4 ; 

GO  TO  GETFbL  A 

/•••••••••••«»•*«••••••••/ 


' VECTOR (27) : /*  DELETE  AN  EXISTING  10  FROM  A COP  */ 

C0M678  = V27A  ; 

GO  TO  V11J  A 

V27A!  COMb7B  = V27B  A 

GO  TO  V 12n  A 

V27BS  SUBSTR  (BUF*  NX*  7)  * «F1*0UT*»  I 
NX  = NX  ♦ 7 A 
NA  r 11  | NB  = 19  * 


SKET1  = VllM  A 

GO  TO  GETF  I 


N 


AD-A040  238 


UNCLASSIFIED 


IBM  CORP  CAPE  CANAVERAL  FLA  F/G  5/9 

DESIGN  OF  TRAINING  SYSTEMS.  TRAPAC  USER’S  MANUAL.  DATA  BASE.  SC— ETCCU) 
SEP  76  K V BRANCH.  J D STALEY.  R E YANKO  N61339-73-C-0097 

TAEG-36  NL 


5 k> 

42a40238 


tae6  Report  no.  36 


Listing  of  Filename  = SUPRPGM.  Filetype  « PU  (Cont'd) 


/••••*••••••••«•••»••*•«•/ 

VECTOR  ( 13)  : /*  DELETE  AN  EXISTING  INSTRUCTS  ID  */ 

VECTOR ( lb) : /*  OELtTE  AN  ENTIRE  SCHOOL  */ 

VECTOR (16)5  /*  CHANGE  AN  EXISTING  COP  NUMBER  */ 

VECTOR (17):  /*  CHANGE  AN  EXISTING  SIR  */ 

VECTOR (18):  /*  Change  an  EXISTING  INSTRUCTOR  ID  NUMBER  */ 

VECTOR ( 19) : /*  CHANGE  AN  EXISTING  HLDG/kM  INOENTIFIEK  */ 

VECTOR (20) : /*  CHANGE  AN  EXISTING  SCHOOL  NUMBER  */ 


NTRAN  = NT  ; 

NUM2  = NF  S 

DS1320  = »m*  ||  NUM2  II  • LX A * i 

• i 

IF  ( DS1J20  -^  = DSOPFn  ) THEN 
L 1 320A  : DO  l 

IF  ( OSOPEN  -s  * • ) 

THEN  CLOSE  FILE  (USGtN)  ; 

OPEN  FILE  (PSGEN) 

TITLE  (USI320)  RECORD  OUTPUT  1 
OSOPEN  = OS  1 320  ; 

END  L i 320 A J 

BUF  = *ETYPE  OFF*  i 

SRET2  = V1320A  ; GO  TO  WOSGtN  I 


V1320A : BUF 

= *EXEC  M*  I I 

NUM2  II  • EXB  * II  NTHAN  1 

NX  = 

17  » 

J = 

1 ; 

LOOP1320 : 

NA  = 

SS1320 

( NF.  J ) 5 

IF  ( 

NA  • 0 

) THEN  GO  TO  V1320B  ; 

NB  = 

SS132U 

( NF.  j*i  > ; 

NX  = NX 

♦ 1 i 

SKET1  = 

TALLY1320  ; 

GO 

TO  getfa  ; 

T ALLY  1 320 : J = J ♦ 2 ? 

IF  ( J < JMAX  ) THEN  GO  TO  LOOP1320  * 

V1320B*.  SHET2  = START  ; 

GO  TO  WUSGEN  ; 


/ 


« 


/ 


VECTOR (211 
VECTOR (23) 
VECTOR (24) 
VECTOR (25) 
VECTOR (26) 


/*  ADD  A NEW  CDP  <*/ 

/*  ADD  A NEW  SIR-SEGMENT  */ 

/*  ADD  A NEW  INSTRUCTOR  TO  THE  INSTRUCTOR  FILE  */ 

/*  AO.D  A NEW  BLDG/KM  TO  AN  EXISTING  CDP  */ 

/*  ADD  A NEW  IO-SEGMENT  TO  AN  EXISTING  CDP  */ 


N1  = NF  I 
REOF  = V2126C  i 
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flageof  = U'H  ; 

IF  ( -»ROPEN  ) THEN 

Do  ; 

OPEN  FILE  (OSrt)  kECOHD  OUTPUT  I 
rtOPEN  = * 1 » H * 

end  ; 
j = l ; 

L00P2126:  HUF  = T*126  ( SS2126  ( NF«  J ) ) I 

SHE T 2 = V212bAA  ; GO  TO  wHITEB  ; 


V2126AA 

J = j ♦ 1 ; 

IF  ( J <s  b ) 

then 

00 

TO  L0OP2I26 

V21 26A : 

BUF  = THAN  * 

SKETc  = V21*bD 

; 

00 

TO  wH I TEH  * 

V212AO: 

REAoH  * V212HH  * 

GO  TO  HEAU1  • 

V2126B : 

IF  ( NF  = N1  ) THEN 

GO 

TO 

V2126A  « 

V2126C : 

HGEN  = STEP1  * 
BUF  * ‘END*  i 

SNET2  = KGEN  * 

00  TO  HHITEri  ? 

/•••••••••••••••••••••••ft/ 

/*  DATASET  handle*  SUBHOUTINES  IN  THIS  SECTION* 
COMMON  HETUKN  VECTOR  IS  ( SHE T 2 > */ 

WflITEC ! /*  THANSACTIUN  TYPES  2*  4*  b*  7*  tt  (CHANGES)  */ 

IF  (COPEN  ) THEN 
DO  { 

OPEN  FILE  (DSC)  KECOHD  OUTPUT  T 
COPEN  = • 1 • H ; 

END  5 

•KITE  FILE  (DSC)  FHOM  (riUF)  I 

WHHET : IF  ( PFLAG  ) THEN  DISPL«Y  ( • * ||  F<m)  ) * 

GO  TO  SHt  T?  t 

MHITEA!  /*  THANSACTIUN  TYhES  11*  12*  14*  27  (DELETES)  */ 

IF  (AOPEN  ) T HEN 
DO  t 

OPEN  FILE  (USA)  KECOHD  OUTPUT  * 

A OPEN  * 'I'M  ; 

End  i 


TAEG  REPORT  NO.  36 

Listing  of  Filename  = SUPRPGM,  FUetype  « PLI  (Cont'd) 

WHITE  FILE  (USA)  FROM  (dUF)  I 
GO  TO  WRRET  ; ♦ 


WRITEB:  /*  TRANSACTION  TYPES  21.  23.  24.  2S.  2b  */ 
WHITE  FILE  (DSR)  FROM  (bUF ) ; 

go  to  wrrf  r i 


WOSGEN!  /*  TRANSACTION  TYPES  13.  IS.  lb.  17.  Id.  IP.  20X  */ 
WRITE  FILE  (uSGEN)  FkOM  (nUF)  i 
GO  TO  WHPFT  i 

/*#***************•&#*•»•»«•*/ 

BUSTN!  /*  ERROR  MESSAGE  OUTPUT  S.R.T 
RETURN  LINa  IS  (RdUST ) » 

ERROR  NUMBER  IS  IN  (NER)  UPON  ENTRY  */ 

DISPLAY  (BLANK)  I 
NNER  = NER  5 
DISPLAY  (ERMSG)  J 
NUMB  = NT  ; 

DISPLAY  ( NUMB  ||«  * | | TRAN64  ) 1 

GO  TO  urtUST  J 

/»•••••••«•«•»«»•••«»««««/ 

WINDUP:  /*  EOF  ON  TRANSACTION  INPUT  FlLti  HERE  */ 

NN  = 0 t 

IF  ( FLAGEOF  > THEN 
WLP:  UO  ? 

HGEN  = **IN02  t 

GO  TO  REOF  J 
ENU  WLP  T 


W IND2 : CLOSE  FILE  (USA).  FILE  (OSd)«  FILE  (DSC)  * 

IF  ( DSOPENs  * * ) 

THEN  CLOSE  FILE  (USGEN)  ; 


SETCODE:  CALL  IHESARC  ( NN  ) i 


END  SUPRPGM  { 
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GENERAL  PURPOSE  DATA  BASE 

EXECUTIVES 

Three  general  purpose  executive  sequences  have  been  developed  to  assist  the 
user  with  common  data  base  maintenance  tasks.  These  executives  bear  the 
names  of  the  files  with  which  they  are  associated,  l.e.,  FACIL,  INST,  and 
COURSE.  As  with  all  NCSS  executives,  the  sequence  is  Initiated  by  typing 
In  the  executive  name.  These  three  executives  require  one  (and  only  one) 
execution-time  arguments.  The  following  Indicates  the  selections: 

Executive  Name 

Arguments 

FACIL 

DUMP 

INST 

RELOAD 

COURSE 

FNS 

INDEX 

DESC 

DESCLOAD 

As  stated  above,  the  execution  arguments  are  mutually  exclusive  and  must  be 
Invoked  one  at  a time.  Selection  of  the  executive  by  the  same  name  as  the 
RAMIS  file  concerned  Is  self-explanatory.  The  arguments  elicit  the  following 
actions: 

DUMP  - A RAMIS  dump  function  Is  executed  against  the  selected  file. 

In  the  case  of  the  COURSE  and  INST  files,  auxiliary  storage 
Is  used  due  to  the  size  of  the  files.  When  completed,  the 
file  dump  will  be  reformatted  (not  required  for  the  FACIL 
file)  and  the  resulting  records  will  be  stored  In  on-line 
disk  storage.  A subsequent  Invocation  of  the  same  execu- 
tive with  the  RELOAD  option  (explained  below)  uses  this 
reformatted  dump  file  to  erase  the  file  concerned  and 
effect  Its  complete  reload.  The  reformatted  dump  records 
reside  In  the  following  files  (fllename/flletype) : 

Facilities  File  - FACIL/DUMP 

Instructor  File  - INST/DUMP2 

Course  File  - C0URSE/DUMP2 

RELOAD  - Using  the  dump  file  created  by  the  DUMP  option  as  explained 
above,  this  argument  forces  the  erase  and  complete  reload 
of  the  file  concerned.  After  successful  execution,  the 
RAMIS  file  will  be  In  the  exact  state  as  existed  at  the 
time  that  the  DUMP  was  made. 
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FNS  - This  option  causes  an  on-line  listing  of  the  executive  sequences 
associated  with  these  three  general  purpose  executives;  e.g., 
the  following  entry: 

course  fns  CR 

will  cause  the  listing  of  executives  E7,  E8,  and  E9.  The  FNS 
option  is  really  only  of  use  to  those  concerned  with  system  or 
program  maintenance. 

INDEX  - This  argument  causes  a RAMIS  listing  of  the  selected  file's 
internal  RAMIS  description. 

DESC  - This  option  lists  the  selected  file's  RAMIS  description  as 
it  exists  in  card- image  form.  For  each  of  the  three  files,  the 
applicable  description  is  stored  in  the  NCSS  system  as  follows 
(filename/filetype) : 

Facilities  File  - FACIL/DESC 

Instructor  File  - INST/DESC 

Course  File  - COURSE/DESC 

DESCLOAD  - This  entry  causes  the  applicable  file's  description  to  be 
entered  into  the  RAMIS  system.  This  action  completely  erases  the 
previous  file  description  as  well  as  the  data  file  itself.  This 
erase  action  is  complete  and  the  previous  description  and  file 
contents  will  be  irretrievably  lost.  If  the  file  description 
(found  in  filename/ DESC)  has  been  modified  before  DESCLOAD, 
then  a subsequent  attempt  at  RELOAD  will  fail  unless  the  re- 
lated RAM'S  functions  associated  with  RELOAD  have  been  modified 
in  conjunction  with  the  description  change. 

The  following  three  executives  utilize  the  reformatted  dump  files  FACIL/DUMP, 
INST/DUMP2,  and  C0URSE/DUMP2  to  produce  a listing  of  the  current  file  con- 
tents. All  fields  in  all  records  are  listed.  No  arguments  are  required  In 
the  operation  of  these  executives.  At  the  time  of  this  document,  all  printer 
listings  were  being  routed  to  the  San  Diego  office  of  National  CSS.  The  user 
may  pick  up  the  printer  output  at  this  location. 

DOTS  File  Printer  DUMP  Executive  Name 

Facilities  PFACIL 

Instructor  PINST 

Course  PCOURSE 

To  assist  the  user  in  effective  data  base  maintenance,  a set  of  forms  can  be 
produced  via  printer..  These  forms  can  be  used  in  a fill-in-the-blanks  manner 


■* 
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to  note  the  requirement  for  data  base  changes.  No  arguments  are  required  In 
the  Invocation  of  these  executives.  No  forms  are  provided  for  the  Facilities 
file. 


DOTS  File  Blank  Forms  Executive  Name 

Instructor  FINST 

\ 

Course  FCOURSE 

Listings  of  the  executive  sequences,  RAMIS  functions,  and  RAMIS  run  procedures 
I that  are  associated  with  the  establishment  and  modification  of  the  three  DOTS 
files  are  on  the  pages  following.  Several  of  these  software  components  are 
used  In  more  than  one  sequence.  Duplicate  listings  are  considered  superfluous 
In  this  Instance  and.  In  general,  are  not  provided. 


Listing  of  Filename  * COURSE t Flletype  « EXEC 


(TYPE  OFF 
(SPACE 

(IF  (INDEX  6T  0 (GOTO  -SI 

(PRINT  ??  NO  FUNCTION*  NO  ACTION  ?? 
(QUIT 

-SI  EXEC  GP1  (1  COURSE  F3  EB  E9  t7 
(QUIT 


Listing  of  Filename  « El.  Flletype  » EXEC 


(TYPt  OFF 

(COMMENT  HELOAD  PROCEDURE  FOR  FAClL 
(COMMENT  THIS  IS  NEW/NEW  FORMAT  LOAD* 
(COMMENT  USE  FACIL1  / PAM  FOP  OLD/NEW  LOAD 
EXEC  RAM  FACIL2  RAM 
(EXIT 
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Listing  of  Filename  = E2,  Filetype  = EXEC 


ATYPt  OFF 

^COMMENT  LIST  FUNCTIONS  OF  FACIL  FILL 
LISTF  FACIL*  * (A) 

EXEC  GPLISTF  El  E d E3 
AQUIT 


Listing  of  Filename  « E3,  Filetype  = EXEC 


ITYPfc  OFF 

iCOHMENT  DUMP  / REFORMAT  FUR  FACIL. 

ICOHMENT  ARCS  ARE  •*  <1>  LAST  FIELD  NAME  FOR  DUMP  // 
EXEC  NDUMP  FACIL  Al  FACIL  DUMP  P 
AEXIT 


Listing  of  Filename  = E4,  Filetype  = EXEC 


ATYPt  OFF 

^COMMENT  DUMP  AND  HEFOHMAT  FOP  INST 
ACOMMENT  THIS  IS  FOR  NE*  INST  FORMAT 
EXEC  NDUMP  INST  Al  INST  DUMP  U TEMP3 
EXEC  REFORM  INST  160  ttOO  2 U 
AEXIT 


Listing  of  Filename  = E5,  Filetype  - EXEC 


ATYPt  OFF 

ACOMMENT  RELOAD  FOP  INST  FROM  INST  / DUMP2 
ACOMMFNT  THIS  IS  NFW  / NFw  FORMAT  * SEE 
ACOMMENT  INSTi  / PAM  FOR  OLO  / NE#  FORMAT  RELOAD. 
EXEC  PAM  INST2  RAM 
AFX  IT 
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Listing  of  Filename  = E6,  Flletype  » EXEC 


4TVPE  OFF 

^comment  this  is  fns  function  fun  inst 

LISTF  INST  * * * (A) 

EXEC  6PLISTF  E4  E5  Et> 

MUIT 


Listing  of  Filename  s E7,  Flletype  s EXEC 


fcTYPfc  OFF 

^COMMENT  DUMP  / REFOHMAT  FOR  NEK  COURSE  FILE 
EXEC  NDUMP  COURSE  M COURSE  DUMP  U TEMPS 
EXEC  REFORM  COURSE  240  720  3 U 
fcFXlT 


Listing  of  Filename  s E8,  Filetype  s EXEC 


&TYPE  OFF 

^comment  this  is  reload  fok  course  file. 

^COMMENT  note  - NEW  DUMP  FORMAT  / NEW  COURSE  FORMAT. 
EXEC  PAM  COURSE-*  RAM 
iEXIT 


Listing  of  Filename  = E9,  Flletype  = EXEC 


4TYPE  OFF 

^COMMENT  THIS  IS  F NS  FUNCTION  FOR  COURSE. 
LISTF  COURSE*  * * (A) 

EXEC  GPLISTF  E7  EB  EV 
MU  IT 
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Listing  of  Filename  s FACIL,  Filetype  = EXEC 

MYPE  oh  f 

&IF  &INOEX  GT  0 A.GOTO  -SI 

NRRINT  ??  NO  H UNCTION.  ImJ  ACTION 
S.OUIT 

-SI  EXEC  GP1  U K h C I L AVHRS  F.  1 EE  EJ 
fcQU  I T 


Listing  of  Filename  = FCOURSE,  Filetype  = EXEC 


MYPfc  OFF 

FILEDEF  SYSPRInT  RTR 

NETROUTE  E Su 

SET  TADDH  AOOHtSS  MEMOE 

LOAD  FCOURSE  (CLEAk  LIRE)  PLIL1B 

START  (BRIEF) 

FILEDEF  SYSPkInT  CLE Ah 

NETROUTE  E A TL 

SET  TADOR  ADDRESS  memo  ' 

&F.XIT 


Listing  of  Filename  - FINST.  Filetype  = EXEC 

fcTYPt  OFF 

FILEDEF  sysphint  PTR 

NETROUTE  E Su 

SET  TADOR  ADDRESS  m£m(^ 

LOAD  FINST  (CLEAh  L I Bt ) HLlLlH 
START  (BRIEF) 

FILEDFF  SYSPRINT  CLEAh 
NETROUTE  E ATL 
SET  TADDR  ADUhEbS  M£mu 
&EXIT 


« 
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Listing  of  Filename  = GPLISTF,  Filctype  » EXEC 


l t 


» 

k i 

P1 


t j 

\ H 


LTYPt  OFF 

LCOMMENT  G.P.  1 To  S FILE  LISTF 
LIF  LlNOEX  Ll  1 LEX  1 T 
LISTF  LI  EXEC  (A) 

LIF  LlNDEX  LT  2 LtXIT 
LISTF  L?  EXFC  (A) 

ME  MNOEX  LT  3 LEXIT 
LISTF  L3  EXEC  (A) 

LIF  LINOEX  LT  « nExIT 
LISTF  LA  EXEC  (A) 

MF  LINDE*  LT  S LtxIT 
LISTF  LS  EXEC  (A) 

LEXIT 


Listing  of  Filename  * GP1,  Filetype  * EXEC 


LTYPt  OFF 

LCOMMENT  PARMS  ARt  : (1)  OPS  K£Y*ORO  / (2)  RAMIS  FN  / 

LCOMMENT  (J)  LAST  FltLUNAMt  FOR  RAMIS  DUMP  / 

LCOMMENT  (4)  EXEC  NAME  FOR  RELOAD  / 

LCOMMENT  (ft)  EXEC  NAME  FOR  FNS  Lib!  / 

LCOMMENT  (ft)  DUMP  AND  REFORMAT  EaEC  NAME  // 

LIF  L INDEX  NE  * LUUIT 

-SI  LIF  LI  NE  MENU  LGOTO  -S2  J 

PRINTF  L2  MENU 
LEXIT 

-S2  LIF  Ll  NE  DUMP  LGOTO  -S3 
EXEC  L6  L3 
LEXIT 

-S3  LIF  Ll  NE  RELOAD  &GOTU  -Sa 
EXEC  LA 
LEXIT 

-SA  LIF  Ll  NE  FILEOEF  LGOTO  -Sft 
PhINTF  l2  FlLEOt^ 

LEXIT 

-S5  LIF  Ll  NE  FNS  LGOTO  -St, 

ExEC  LS 
LEXIT 

-S6  LIF  Ll  NE  Index  lGOTO  -ST 
EXEC  RUNPROC  INDEX  L2 
LEXIT 

-S7  LIF  Ll  NE  DESC  LGOTO  -SH 
PRINTF  L2  DESC 
LtXIT 

-SB  LIF  Ll  NE  UESCLOAd  LGOTO  -SY 
EXEC  kAm  L2  DtSC 
LtXIT 

-S9  LSPACE 

LPRInT  ???' COMMAND  FUNCTION  Ll  NOT  UNDERSTOOD  ??? 

LPPINT  TRY  AGAIN...  \ 

LSPACE  -/I 

LQUI  T 
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{.TYPE  OFF 
{.SPACE 

&IF  &lNDt.<  GT  U nGOTQ  -SI 

sprint  ??  -i>io  Function*  no  action  ?? 

&OUIT 

-SI  EXEC  GP1  Si  Inst  bLlH  Eb  Eb  E4 
K.GU  I T 


Listing  of  Filename  = NDUMP,  Fi1et> 


{.TYPE  OFF 

^COMMENT  IN  THIS  EAEC*  ALL  AktiS  ARE  PHOVIOED. 

{.COMMENT  ALL  KAMIb  MSGS  AkE  SUPPRESSED. 

^COMMENT  ARGS  AHt  S RAMIS  FILE  NAME  / LAST  FIELD  TO  DUMP  / 
&COMMEN 1 DUMP  FN  / DUMP  FT  / DUMP  FM  / 

{.COMMENT  TEMPN  FOR  SPACE  ALLOCATE  // 

MF  MNuEX  LT  S MJUIT 
ME  &S  Eu  P (.GOTU  -SI 
&IF  ib  Nt  U S.GUIT 
ATTACH  &6  AS  1YJ  HP  I EF 

-SI  FILEDEF  RAMUTIL1  DSK  *.3  {.4  sb  HE  FB  L«  «0  HL  «00 
{.SPACE 

{.PRINT  M E IlE  DUMP  IS  STAkTInG 
iSPACE 
&STACK  KT 
SS  TACK  OUMP 
ArSTACK  FILE  (.1 
KSTACK  PRINT  btt  AMD  SAVE 
{.STACK  END 
{.STACK  UN 
ATTACH  RAMIS  ALL  dk 
FILEDEF  o MSG  KILL 
RAMIS 

DETACH  RAMIS  BR 
&STACK  kT 

FILEDEF  HAMUTIlI  CLEaR 
FILEDEF  h CONO 
{.STACK  KT 
{•STACK  L /U  = / 

AST ACK  0 
EDIT  MSG  KILL 
{.SPACE 

{.PRINT  SI  FILE  DUMPED  TO  Nb  DlbK 

&space 

LISTF  {,3  {,4  {.b  (A) 

{.EXIT 
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Listing  of  Filename  * PCB,  Flletype  = EXEC 
iTYPe  off 

ATTACH  TtMP20  AS  193  BRIEF 
*.ST ACK  5 8 14  227  235 

SORT  COURSE  DUMP2  COURSE  PRINT  (BRIEF  WMODt=U) 
LISTF  COURSE  0UMP2  P (a) 

LISTF  COURSE  PRINT  U (A) 

FILEDEF  DUMP  DSK  COURSE  PRINT  U RE  F LK  240  »L  240 

FILEOEF  SYSPRINT  PTR 

LOAD  PCOURSE  (CLEAR  LltiE)  PLILIB 

START  (BRIEF) 

FILEDEF  SYSPRINT  CLEAR 
FILEDEF  DUMP  CLEAR 
DETACH  193  BRIEF 

Listing  of  Filename  = PCOURSE,  Filetype  = EXEC 

{.TYPE  OFF  ” 

ATTACH  TEMP20  AS  193  tJR  IFF 
{.STACK  5 8 1 4 227  235 

SORT  COURSE  UUMP2  COUHbE  PRINT  (BRIEF  WMODE=U) 
LISTF  COURSE  DUMP2  P (A) 

LISTF  COURSE  PRINT  U (A) 

NETROUTE  E So 

SET  TADDR  ADDRESS  MEMU2 

FILEDEF  DUMP  DSK  COURSE  PRINT  U RE  F LR  240  BL  240 

FILEOEF  SYSPRINT  PTR 

LOAD  PCOURSE  (CLEAR  LIBE)  PLILIB 

START  (BRIEF) 

FILEDEF  SYSPRINT  CLEAR 
FILEDEF  DUMP  CLEAR 
DETACH  193  BRIEF 
NETROUTE  E ATL 
SET  TADOR  ADDRESS  MEMO 
{.EXIT 


Listing  of  Filename  = PFACIL,  Filetype  = EXEC 

{.TYPt  OFF 

ATTACH  TtMPlo  AS  193  HR  IFF 
{.STACK  5 b 1 4 

SORT  FACIL  DUMP  FACIL  PRINT  (BRIEF  WMODE=U) 
LISTF  FACIL  DUMP  P (A) 

LISTF  FACIL  PRINT  U (A) 

NETROUTE  E SD 

SET  TADDR  ADDRESS  MEM02 

FILEDEF  DUMP  DSK  FACIL  PRINT  U RE  F LR  80  «L  80 

FILEDEF  SYSPRINT  PTR 

LOAD  PFACIL  (CLEAR  L 1 HE ) PLlLlH 

START  (BRIEF) 

FILEDEF  SYSPRINT  CLEAR 
FILEDEF  DUMP  CLEAR 
DETACH  193  RRItF 
NETROUTE  E ATL 
SET  TADOR  ADDRESS  MEMO 
{.EXIT 
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Listing  of  Filename  = PFCB,  Filetype  « EXEC 

&TYPE  OFF 

ATTACH  TtHPIO  AS  lS3  dRltF 
&STACK  5 h 1 4 

SORT  FACIL  DUMP  FACIL  PRINT  (rtRlEF  «IMODE=U) 
LISTF  FACIL  DUMP  P (A) 

LISTF  FACIL  PRINT  U (a) 

FILEDEF  DUMP  DSK  FACIL  PRINT  U Rt  F LH  dU  bL  dO 

FILEOEF  SYSPKINT  PTR 

LOAD  PFACIL  (CLEAR  LlHE)  PLILId 

START  (BRIEF) 

FILEDEF  SYSPHINT  CLt**« 

FILEDEF  DUMP  CLEAR 
DETACH  IR3  BRIEF 


Listing  of  Filename  = PICB,  Filetype  = EXEC 

R-TYPE  OFF 

ATTACH  TtMP?0  AS  1V3  HR  I k F 
KSTaCK  3j  3o  i * 

SORT  INST  DUMP*!  INST  PRINT  (PRIEF  WMODE=U) 

LISTF  INST  DUMP?  P (A) 

LISTF  INST  PRINT  U (A) 

FILEDEF  DUMP  DSK  InST  PRINT  U RE  F LR  lhO  BL  lt>0 

FILEDEF  SYSPHINT  PTR 

LOAD  PINST  (CLEAk  LIbt)  PLILIB 

START  (BRIEF) 

FILEDEF  SYSPhINT  CLEAR 
FILEDEF  DUMP  CLtAR 
DETACH  1*3  BRIEF 


Listing  of  Filename  = PINST,  Filetype  = EXEC 

F.TYPE  OFF 

ATTACH  f t MP2 u AS  1*3  hRIFF' 

KSTACK  33  36  I * 

SORT  INST  DUMP?  INST  PRINT  (RRItF  *MODE=U> 

LISTF  INST  DUMP?  P (A) 

LISTF  INST  PRINT  U (A) 

NETROUTt  E Su 

SET  TADDR  ADURtSS  MEMO? 

FILEDEF  DUMP  DSK  INST  PRINT  U kE  F LR  lfcO  dL  ldO 

FILEDEF  SYSPR1NT  PTR 

LOAD  PINST  (CLEAR  LIbE)  PLILIB 

START  (BRIEF) 

FILEDEF  SYSPHINT  CLEAR 
FILEDEF  DUMP  CLEAR 
DETACH  1*3  BRIEF 
NETROUTE  E ATL  • 

SET  TADDR  ADDRESS  MEMO 
IEXIT 
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Listing  of  Filename  = PROCESS,  Filetype  ■ EXEC 

4TYPE  OFF 
4SPACE 

STATE  41  42  P 

&IF  4INOEXO  E(J  0 4GOTO  -SI 

4PRINT  SKIPPING  DATASET  *1  / 42  PROCtSSING 
4EXIT 

-SI  4PRINT  NOW  PROCESSING  DATAStT  41  / 42 
4SPACE 

PRINTF  41  42  P 
4SPACE 

4IF  42  EU  RAM  4G0T0  -b2 

EXEC  41 

4EXIT 

-S2  EXEC  RAM  M (.2 
4EXIT 


Listing  of  Filename  = RAH.  Filetype  « EXEC 

4TYPt  OFF 

4C0MMENT  PARMS  ARfc  FILtNAMt  / FILETYPE 
4IF  nINDEX  Nt  £ 4UU I T 
4STACK  KT 

ATTACH  RAMIS  ALL  8* 

4STACK  PT 

EXEC  RAMISIN  41  42 

detach  ramis  hr 

4EXIT 


Listing  of  Filetype  = RDUMP,  Filetype  « EXEC 

4 TYPE  OFF 

4C0MMENT  IN  THIS  EXEC*  ALL  ARGS  ARE  PKOVIOED 
4C0MMENT  RAMIS  FlLt  NAME  / LAST  FIELD  TO  DUMP  / 
4C0MMENT  DUMP  FN  / DUMP  FT  / DUMP  FM 
4IF  4IN0EX  NE  S 4QUIT 

-SI  FILEDEF  HAMUTIL1  OSK  43  44  <*5  RE  FB  LR  80  BL  800 
4STACK  KT 
4STACK  DUMP 
4ST ACK  FILE  41 
4STACK  PRINT  42  ANO  SAVE 
4STACK  END 
AST  ACK  FIN 
ATTACH  RAMIS  ALL  BR 
4ST ACK  KT 

RAMIS 

DETACH.  RAMIS  BR 
FILEDEF  RAMUTIL1  CLEAR 
LISTF  43  44  45  (A) 

4EXIT 
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Listing  of  Filename  = REFORM.  Filetype  = EXEC 

ATYPE  OFF 

ACOMMENT  G.P.  REFORMAT  FOR  DUMP  FILES t COMBINES 
ACOMMENT  2/MOKE  CAhD  images  into  single  RECORD. 

ACOMMENT  PAWMS  : (1)  HaMIS  FN  / (2)  REFORM  LKECL  / 

ACOMMENT  (3)  REFORM  HLKSIZE  / <*)  REFOkM  BLOCKING  FACTOR  / 
ACOMMENT  (S)  DUMP  FILE  MOUt  // 

ASPACE 

UF  & INDEX  NE  *■>  AUDIT 

SPRINT  STARTING  HtFORMAT  OF  DUMP  FIlE  FOh  Al 
FILEDEF  * CLEAR 


STATE  Al  DUMP  a-> 

UF  AlNDEXO  EQ 
ASP AC t 

APR INT  !!!  Al 
-SER  APRINT 

-SOUT  ASPaCE 

FILEDEF  * CLtAR 
At  X I T 

-SI  STATE  A 1 DUMP2 
A IF  nINDEXO  NE 
ERASE  A 1 DUMP2 
-S2  FILEDEF  DUMP  DSK 
FILEDEF  DUMD2  DSK  M 
LOAO  MPGM3  (CLEAh  LlBt)  PLILI8 
START  IHECMS  A4 


0 aGOTO  -SI 


/ HUMP  FILE  DOES  rlOT  EXIST  !!! 
FUNCTION  IS  TERMINATING  ABNORMALLY 


0 AGOTO  -S2 


n 1 DUMP 
UUMP2  P 


AS 

RE 


RE 

FM 


FB 

LH 


LR 

A2 


80 

HL 


BL 
A J 


800 


ASPACE 

AIF  AlNDEXO  EU  0 AGOTO  -S3 

APRINT  !!!  REFORMAT  OF  Al  DUMP  FAILED  !!! 
APRINT  RETURN  INOEXO  WAS  AlNUEXO 

AGOTO  -SER 

-S3  APRINT  REFORMAT  FOR  Al  COMPLETED  SUCCESSFULLY 
APRINT  NORMAL  RELOAD  OPERATIONS  MAY  PROCEED 
ASPACE 

LISTF  Al  DUMP2  P (A) 

ERASE  Al  DUMP  AS 

AIF  A 5 EU  P AGOTO  -SOUl 
DETACH  AS  BRIEF 
AGOTO  -SOUT 


Listing  of  Filename  = RELEASE.  Filetype  = EXEC 


atype  off 

FILEDEF  DSA  CLEAR 
FILEDEF  DSB  CLEAh 
FILEDEF  DSC  CLEAH 
AINDEXl  = 13 
-LOOP  ANN  = M !!  AlNOEXl 
ANN  £ ANN  ! ! EXA 
FILEDEF  ANN  CLEAR 
AINDEXl  ♦ I 

AIF  AINDEXl'  LE  20  AGOTO  -LOOP 
AEXIT 


i 
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Listing  of  Filename  * RUNPROC.  Filetype  ■ EXEC 

ATYPE  OFF 

ACOMMENT  PARMS  ARE  HUNPROC  NAME  / s OPT  PARMS 
MF  AINDEX  LT  1 AUUIT 
AIF  & INDEX  GT  b KvJUIT 
ASTACK  KT 

ASTACK  EXEC  Al  A2  a3  A4  AS  A6 
ASTACK  FIN 
ATTACH  RAMIS  ALL  BP 
EXEC  RAMIS 
DETACH  RAMIS  Bh 
ASTACK  RT 

aex  i r 


Listing  of  Filename  - SETUP,  Filetype 


ATYPE  OFF 
STATE  OSA  RAM  P 
MF  AINDEXO  NE  0 AGOTO  -SI 
ERASE  DSA  RAM  P 

-SI  FILEOEF  USA  OSK  USA  RAM  LR  dO  RE  F BL  HO 
STATE  DSB  RAM  P 
MF  MNDtXO  NE  0 AGOTO  -S3 
ERASE  OSB  RAM  P 

-S2  FILEUEF  USB  DSK  USB  HAM  LR  HO  RE  F BL  HO 
STATE  OSC  RAM  P 
MF  MNOEXO  NE  0 AGOTO  -S3 
ERASE  DSC  RAM  P 

-S3  FILEUEF  USC  USK  OSC  RAM  LR  bft  RE  F BL  bO 
MNDEX1  = 13 

-LOOP  ANN  = M !!  AINOEX1 
ANN  = ANN  i ! EXA 
STATE  ANN  ExEC  P 
MF  MNOEXO  NE  0 AGOT 0 -LSI 
ERASE  ANN  EXEC  P 

-LSI  FILEDEF  ANN  DSK  ANN  EXEC  LR  HO  RE  F HL  HO 
AINDEX1  ♦ 1 

MF  MNDEX1  LE  20  AoOTO  -LOOP 
AEXIT 


i — - T 
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Listing  of  Filename  = SUPER.  Filetype  = EXEC 

ATYPE  OFF 
EXEC  SETUP 

UF  & INDEX  NE  0 AGOTO  -S2 
AARGS  TYPE2  TRANS 

-S2  FILEUEF  TRANS  DSK  A1  A2  LR  80  BL  80  RE  F 
LOAD  SUPRPGM  (CLEAR  LIBE)  PLILIH 
START  (BPIEF) 

APARM  = AlNDEXO 
FILEDEF  TRANS  CLEAR 


EXEC  RELEASE 
ASPACE 

AIF  APARM  EQ  0 AGOTO  -SI 

SPRINT  TRANSACTION  PROCESSOR  COMPLETION  WAS  ABNORMAL... 

SPRINT  COMPLETION  CODE  WAS  APAKM 

AQUIT 

-SI  APRINT  RAMIS  PROCtSSING  STARTS  AT  THIS  POINT 

EXEC  PROCESS  DS A RAM 

EXEC  PROCESS  M13EXA  EXEC 

EXEC  PROCESS  MlSEXA  EXEC 

EXEC  PROCESS  DSb  RAM 

EXEC  PROCESS  M16EXA  ExEC 

EXEC  PROCESS  M17EXA  EXEC 

EXEC  PROCESS  MIBEXA  EXEC 

EXEC  PROCESS  MIYEXA  EXEC 

EXEC  PROCESS  M20EX A EXEC 

EXEC  PROCESS  DSC  RAM 

ASPACE 

SPRINT  RAMIS  PROCESSING  HAS  CONCLUDED 
AQUIT 


Listing  of  Filename  = SUPERDUM,  Filetype  a EXEC 

ATYPE  OFF 

ACOMMENT  IN  THIS  EXEC*  ALL  ARGS  ARE  PROMPTED 
ASPACE 

APRINT  GIMMIE  FILENAME  / LAST  FIELD  NAME 

APR INT  DSK  FILENAME  / FILETYPE  / FILEMOOE 

ASPACE 

AREAD  ARGS 

ASPACE 

AIF  A INDEX  NE  S mjUIT 
AIF  A1  tQ  UUIT  AUUIT 

-SI  FILEDEF  RAMUTIL1  DSK  A3  A4  AS  RE  FB  LP  80  BL  800 
ASTACK  KT 
ASTACK  DUMP 
ASTACK  FILE  A1 
ASTACK  PRINT  x2  AND  SAVE 
ASTACK  END 
ASTACK  FIN 
ATTACH  RAMIS  ALL  BR 
ASTACK  KT 

RAMIS 

DETACH  RAMIS  BR  • 

FILEDEF  RAMUTIL1  CLEaH 
LISTF  A3  A4  A5  (A) 

AEXIT 


«» 
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Listing  of  Filename  * SUPERX,  Flletype  » EXEC 


HYPE  OFF 
EXEC  SETUP 

AIF  AINOEX  NE  0 AGOTO  -S2 
AARGS  TYPE2  TRANS 

-S2  FILEDEF  TRANS  DSK  A1  A2  LR  HO  HL  HO  RF  F 
LOAD  SUPRPGM  (CLEAR  LIBE)  PLILIH 
START  (BRIEF) 

APARM  = A INDEX 0 
FILEDEF  TRANS  CLEAR 
EXEC  RELEASE 
ASPACE 

AIF  APARM  EQ  0 AGOTO  -SI 

APRINT  TRANSACTION  PROCESSOR  COMPLETION  WAS  ABNORMAL.. 
APRINT  COMPLETION  CODE  WAS  APARM 
-SI  AQUIT 


Listing  of  Filename  = SUPRDUMP.  Flletype  » EXEC 


ATYPE  ALL 

ACOMMENT  IF  ARGS  ARE  NOT  PROVIDED*  THEY  ARE  REQUESTED 

AIF  AINOEX  EU  2 AGOTO  -SI 

ASPACE 

APRINT  GIMMIE  FILENAME  / LAST  FIELD  NAME 
AREAD  ARGS 

AIF  AINUEX  NE  2 AQUIT 
AIF  A1  EQ  QUIT  AUUIT 

-SI  FILEDEF  RAMUTIL1  T AP2  RE  FB  LR  00  BL  800 
ASTACK  KT 
ASTACK  DUMP 
ASTACK  FILE  A1 
ASTACK  PRINT  A2  AND  SAVE 
ASTACK  END 
ASTACK  FIN 
ATTACH  RAMIS  ALL  BR 
ASTACK  KT 

RAMIS 

DETACH  RAMIS  BR 
FILEDEF  RAMUTIL1  CLEAR 
AEXIT 


D'f'jv 
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Listing  of  Filename  = COURSE! . Flletype  = RAM 


ERASE 

FILE  COURSE 

END 

INPUT 

READ  COURSE  NOOUP 
RECORD  240 
SET  1 

FORM  4*4*l»lu*l6»3*4»3»3*b*5,2*b*b*5*b 
FORM  4 *4 * 3 » 4 » 3 » 3 » 5* 5 * 3 ♦ 3*  4 ♦ 3 » 3 » b» b*  3 ' 

FORM  4 *5*  2 ♦ 2 » 4 * 3»  3*  2 * 6*  b » 4 « b * 1 0 

ORDER  2*1*3* 4»5*6*7*d»9»10*ll»l2»13*i4*lb»16 

ORDER  17* 18* 19»20*21»22»23.24»2b»26»27*28*29 

ORDER  30*31 *32* 33* 34* 35* 36*37* 3d* 3* *40*41 *42 

ORDER  43*44* 4S 

FILE  COURSE 

END 


Listing  of  Filename  = C0URSE2,  Filety 


REVISE 

READ  COURSE  NODUPS 
RECORD  Id 
FORM  4 * 9* 4 * 1 
ORDER  1 ♦ b3  * b4 ♦ bb 
KEY  1,53 
INCLUDE  b3 
FILE  COURSE 
END 


t 

I 


Listing  of  Filename  * COURSE  3, 


ERASE 
FILE  COURSE 
END 
INPUT 

READ  COURSE  UU*P2 
RECORD  240 
SET  1 

F ORM  4*4*l«10*16«3*4*3*3*b*b*2*b*S*b*b 
F 0RM  4*4*3*4*3*3*b*b*3«3*4*3«3*b*b*3 
FORM  4*5*2*2*4*3*3*2*6*5*4*5*10 
FORM  6 • 6 * 6 * 3 * 3* 3* 4 * R« 4 * 1 

ORDER  l*2*3*4*S*6«7*t>*9*lo*ll*l2,13*14«lS*lb 
ORDER  17*18*19*20*21* 22 *23* 24 *2b* 26 *27*28*29 
ORDER  30*31 *32*33*34*3b*36«37«3d*39*40*4l*42 
OROER  43*44*45*46*47 *4d*49*50*bl *52*53*54,55 
FILE  COURSE 
END 
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ERASF 

FILE  FACIL 

END 

INPUT 

READ  FACIL  DUMP 
RECORD  AO 
SET  1 

FORM  4*4*5*3*3« l*b*5 
ORDER  2*  1 *3*<**b»6»7*8 
FILE  FACIL 
END 


Listing  of  Filename  ■ FACIL2.  Filetype 


ERASE 

FILE  FACIL 

ENO 

INPUT 

READ  FACIL  DUMP 
RECORD  80 
SET  1 

FORM  4*4*4* 4* 3* i*b*S 
ORDER  l*2*3*4*S*b»7*b 
FILE  FACIL 
END 


Listingof  Filename  * INST1 . Filetype  » RAH 


i 


I 

I 


ERASE 
FILE  INST 
END 
INPUT 

READ  INST  NODUP 
RECORD  80 
SET  1 

FORM  9*  lh*2*b*<»*4*  4*4*4 
ORDER  1 * 2 » 3 * 4 * S * 6 » 7 * b * 9 
FILE  INST 
END 


Listing  of  Filename  = INST2.  Filetype  * RAM 


ERASE 
FILE  INST 
ENO 
INPUT 

READ  INST  DUMP* 

RECORD  1 bO 
SET  1 

FORM  P*lb«2*b*4*4*4t4«4 

FORM  4*4*.4*4*4*4*4«4f4 

FORM  4 * 4 * 4 * 4 * 4 * 4 * 4* 4 

ORDER  1 *2*3*4*b*b* 7*M*y 

ORDER  10tll«12*13*l4*lb*lb*17«id 

ORDER  19*20*21* 22 *23*24*25* 2b 

FILE  INST 


DELETE 

FILE  RAMEXtC 
1=0UT= INDEX** 

END 

CATALOG  INDEX 

TABLE 

HEADING 

WAMASTEp  DESL'pIp  I lUN  F Ok 
BAMlb  V ILE  NAMEU  M 
AT  N T T M t ON  M/ATt 
FILE  PAMASTEp 

LIST  NAMt  AND  ALlAa  ANu  LEVEL  AS  •LtW1 
AND  TYPE  AND  LENblH  AS  *LtN' 

AND  SEG  AS  • SEG • 

ANU  LEVEL-TYPE  AS  * SF  LAG  * 

IF  FILE  I s Kl 
END 

END  CATALOG 


W: 

if 

t * 

S'"  t 


> 


I 


; 

Nr. 


' 


h 


pupppi 


TAEG  REPORT  NO.  36 


SECTION  VI 


TRAINING  PROCESS  FLOW  MODEL 
PROGRAM  DESCRIPTIONS 


MODEL  DESCRIPTION 


The  objectives  of  the  Training  Process  Flow  model  system  are  to  provide  train- 
ing management  with  the  ability  to  assess  the  effects  upon  the  training  system 
of  changes  in  demand,  scheduling,  and  capacities,  and  to  present  the  model 
output  data  so  that  effective  decisions  can  be  made  for  maximizing  the  utiliza- 
tion of  training  command  resources.  The  Training  Process  Flow  model  system 
consists  of  the  TPF  model  and  those  support  programs  and  executive  which  inter- 
face with  the  DOTS  data  base,  provide  "what  if"  capability,  control  model  exe- 
cution, and  provide  terminal  output  capabilities.  The  overall  flow  of  the  TPF 
model  system  is  shown  in  Figure  VI-1.  The  support  programs  and  their  associ- 
ated executives  are  described  first,  with  the  description  of  the  TPF  model 
last. 


SUPPORT  PROGRAMS.  The  TPF  support  programs  fall  into  three  categories:  those 

necessary  to  interface  the  TPF  model  with  the  DOTS  data  base,  those  required  to 
support  the  "what  if"  capability  of  the  TPF  model,  and  those  required  to  support 
selective  report  capability  for  terminal  operation. 


FIGURE  VI-1 
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DATA  BASE  INTERFACE  PROGRAMS 

All  data  used  for  TPF  model  execution  are  stored  in  the  DOTS  DATA  BASE  (master 
or  scratch)  using  the  RAMIS  system.  A series  of  executives  and  programs  is 
provided  to  facilitate  unloading  of  the  RAMIS  data  base,  and  recopying  these 
data  in  a format  compatible  to  the  TPF  model.  The  flow  of  these  support  pro- 
grams and  executives  is  shown  in  Figure  VI-2.  All  data  used  by  the  DOTS  sys- 
tem are  stored  in  the  DOTS  Master  data  base.  These  data  can  be  extracted  or 
modified,  and  is  stored  in  the  DOTS  Scratch  data  base.  All  procedures  concern- 
ing the  use  and  manipulation  of  these  data  bases  are  discussed  in  Section  v. 

Data  from  the  DOTS  data  base  must  be  copied  into  TPF  compatible  files  prior  to 
execution  of  the  TPF  model.  The  executive  that  controls  this  function  is  called 
TPFCOPY.  When  this  executive  is  called,  the  parameter  MASTER  or  SCRATCH  may 
be  provided  to  direct  execution  to  the  proper  data  base;  if  not,  it  will  be 
asked  for.  The  first  step  in  the  executive  is  to  assure  that  the  user's  core 
is  set  to  at  least  320K  Bytes,  due  to  RAMIS  requirements.  If  the  core  storage 
provided  is  not  sufficient,  an  appropriate  error  message  is  displayed,  core 
storage  is  set  to  the  proper  value,  and  the  executive  terminates.  The  execu- 
tive must  be  restarted,  as  any  set  core  operation  causes  a re-1  PL  of  the  user's 
system,  which  terminates  any  ongoing  operation.  The  executive  tests  &INDEX 
for  the  number  of  parameters  passed  to  the  executive  by  the  user.  If  no  param- 
eters are  provided,  the  user  is  prompted  to  enter  MASTER  or  SCRATCH.  The 
executive  then  tests  for  the  appropriate  response,  and  will  stay  in  this  loop 
until  one  of  these  two  keywords  is  provided. 

Executive  TPFCOPY  then  invokes  RAMIS,  which  dumps  file  COURSE  if  MASTER  was 
specified.  A RAMIS  procedure,  either  RE48  or  RE48X  controls  this  dump,  and 
directs  that  only  the  first  36  fields  (through  UCAP)  be  dumped.  INDEXO  will 
contain  a zero  if  the  dump  is  successful.  If  an  error  occurred,  a message  will 
be  printed;  otherwise,  executive  TPFSORT  is  called. 

The  data  unloaded  from  RAMIS  must  be  sorted  into  school  code  order  prior  to  TPF 
execution.  To  accomplish  this  sort  the  unloaded  RAMIS  file  dump,  which  con- 
sists of  two  80  character  records  per  course,  must  first  be  combined  into  a 
single  160  character  record  per  course,  sorted,  and  then  returned  to  two  80 
character  card  image  records  per  course,  compatible  with  the  TPF  input.  Execu- 
tive TPFSORT  starts  program  MPGM3  to  combine  the  records,  then  commands  a CSS 
sort  by  school,  by  CDP,  and  then  starts  PGM80  to  reformat  the  records  to  a TPF 
compatible  format.  The  LISTF  feature  is  used  to  track  the  execution  of  this 
executive. 

The  format  of  the  data  as  it  is  unloaded  from  RAMIS  into  the  file  TPF  DUMP  is 
shown  in  Table  VI-1.  The  format  for  the  files  TPF  MASTER  or  TPF  SCRATCH  is 
shown  in  Figure  VI-3,  A and  B.  The  data  are  stored  as  two  80  byte  records 
per  course. 


if 


i- 


TPF  MODEL  - DATA  B 


FIGURE  VI-2 
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RAMIS  DUMP  FORMAT  (MASTER  OR  SCRATCH) 


+ EBCDIC  RECORD  LENGTH  80  CHARACTERS 


FIELD  NAME 

FORMAT 

LENGTH 

CDP 

A 

4 

4 

SCH 

A 

4 

4 

DEL 

A 

1 

1 

CTLG 

A 

10 

10 

CRS 

A 

16 

16 

CONV1 

I 

3 

3 

LEN1 

F4 

.1 

4 

CAP1 

I 

3 

3 

BCAP1 

I 

3 

3 

DMD1 

I 

5 

5 

BDMD1 

I 

5 

5 

OFST 

I 

2 

2 

PFAIL 

F5 

.3 

5 

NADIS 

F5 

.3 

5 

NOSHOW 

F5 

.3 

5 

SETS 

F5 

.3 

5 

X 0 

BKLG 

I 

4 

4 

JNO 

A 

4 

4 

CONV2 

I 

3 

3 

LEN2 

F4 

.1 

4 

CAP2 

I 

3 

3 

BCAP2 

i 

3 

3 

DMD2 

I 

5 

5 

BDMD2 

I 

5 

5 

CHWK2 

I 

3 

3 

C0NV3 

I 

3 

3 

LEN3 

F4 

.1 

4 

CAP3 

I 

3 

3 

BCAP3 

I 

3 

3 

DMD3 

I 

5 

5 

BDMD3 

I 

5 

5 

CHWK3 

I 

3 

3 

PAOB 

I 

4 

4 

AFAIL 

F5 

.3 

5 

PRTY 

I 

2 

2 

CTYPE 

A 

2 

2 

PNEC 

A 

4 

4 

UCAP 

I 

3 

3 

TABLE  VI-1 
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I 


i 


1 


! 


j 


i 
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VI-5 
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ETYPR.  OFF 

EIF  EroPt  GE  320  eguTu  -ok 

EPPINT  COPE  «Ab  NOT  32 0 * - UStP  MUST  PtSTART  PROCEDURE 

SET  C^Rt'  320 

eFXIT 

-OK  & I NOt  * 1 = 1 
E IF  UN'tX  EO  0 EGUTO  -NONE 
EIF  El  ku  MASTtH  EGUTU  -h>un1T 
E INDEX  1 = 2 

MF  El  Eu  SCRATCH  SbU  f u -aunIT 
-NONE  EPP I NT  REPLY  MAbTF.P  OH  SCHAlLM 
eREAD  apgs 
EGOTO  -OK 
EE  X I T 

-RUNIT  ATTACH  KAMlS  ALL  HP 
EPASE  TPF  DUMP 

FILEDEF  PAMUTILI  OS"  TPF  DUMP  Lk  HO  HE  F 
ESTACK  KT 
EINOEX2  = 1 

ElF  EINDEX I to  1 EXEC.  KAMISIN  REaH  ham 
eIF  EINDtXl  EO  2 EXEC  haMSIN  klahx  «Af* 

EIF  EINDEXO  NE  0 EInuE<2  = 10 
DETACH  PAMis  Bh 
EIF  EINDEX2  LT  S EbUTu  -RamOK 
ESTACK  RT 

EPPINT  FILE  NOT  DUMPtu-  hamIS  tPPOR 
EEXIT 

-PAMOK  FILEDEF  * CLFAa 
ESTACK  PT 

EIF  EINDtXl  EO  1 EPHInT  TPF  masTEh  DUMPED  hY  KAMIS 
EIF  EIN0EX1  EQ  2 EbOTU  -SUHTSLP 
tXEC  TPFSORT  MASTtH 
EEXIT 

-SORTSCP  EIF  EINDEX 1 tu  2 ERRIimT  TPF  SCRATCH  PUMPED  BY  PAMIS 

EXEC  TPFbORT  SCRATCH 

EEXIT 


TABLE  VI -2 


VI-7 
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TPFSORT  EXEC 


NTYPf  OF  F 

ATTACH  TfeMPPO  AS  iVJ  HRlfcF 

FILEOEF  DUMP  OSK  TPF  (JUMP  RE  F LP  ho  hl  HO 
FILEDEF  DUMP2  DSk  TPF  wOR*  P Rt  F LR  lt>0  1F>0 

LOAO  MPG-M.T  (CLEAR  Lint)  PLILIR 
START  IHtCMS  2 
FILEOEF  DUMP  CLEAR 
FILEDEF  OUMP<i  CLE«R 
NSTACK  5 8 1 «♦ 

SORT  TPF  tiORK  TPF  SORT  (HrIEF  *MOOE=U) 

LISTF  TPF  DUMP  P (A) 

LISTF  TPF  SORT  u (A) 

LISTF  TPF  WORK  P (A) 

ERASE  TPF'  WORK  P 

FILEOEF  SrSUTl  USK  TPF  SORT  U Rt  F HL  160  LR  1*0 
FILEOEF  SYSUT2  DSK  TPF'  MASTER  P hE  F e»L  HO  LR  HO 

LIF  M EU  SCRATCH  FILEDEF  SYSOT^  DSK  TpF  SCRATCH  P RE  F HL  HO  LR  HO 
LOAO  PGMttO  (CLEAR  LIRE)  PLILIB 
START  (BRIEF) 

MF  M EO  MASTER  LISTF  TpF  masTlR  p (A) 

MF  hi  EU  SCRATCH  LISTF  TPF  SCRATCH  P (A) 

FILEDEF  SYSUTI  CLEAR 
FILEDEF  SYSUT2  CLEAR 
DETACH  1V3  BRIEF 
iFXIT 


RE48  RAM 


USE 

RAMDATA  DATA  U 
END 


DUMP 

FILE  COURSE 

PRINT  UCAP  AND  SAVE 

END 


REH8X  RAM 


USE 

RAMDATA  DATA  U 

END 

DUMP 

FILE  MODCOURSE 
PRINT  UCAP  AND  SAVE 
END 


TABLE  VI -3 


MPQM3  PL  I 
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MPGM3:  /*  COMBINE  /'/MtHt  CArfub  InTu  A SINGLE.  LRECL  - */ 

PROC  (PARMS)  OPTIONS  MAIN)  i 

DECLARE  PApmS  ChAp  (10'j)  vAPYING. 

NEOF  F I aEL)  mIN  (31.0)  STATIC. 

IHESAPC  LnT*Y  ( FIXED  MlNAPY  (U»d>  ) 5 

DECLARE  CAPOS  (2aii)  Lm4k  (1)  STATIC. 

CARDl  Chap  (no)  HAST  0 (PCI). 

CARO?  Chap  («iu  wASEU  IPC?). 

CAPD3  CHAP  (HO)  BASED  ( PC j) » 

BUF?  CHAP  (ISO  BASED  (PM). 

HUFJ  CHAP  (PAO)  b asF  0 (PH)  i 


STAPTF.PPUPP : 

GET  STRING  (P‘»ppS>  FUlT  (NTuT)  ( F(4)  ) i 

PFi  - AUUR  ((.AWUS  ( 1 ) ) 5 

PCI  = AUDk  ( CAPOS ( 1 ) ) 5 

PC?  = AbUP  (CAPOS (Ml ) ) 5 

PC3  = ADUH  (CAPOS  (1M))  ; 

np.  nc  = u ; 

OPFN  FILE  (UUMP)  pECOpl)  INPUT* 

FILE  (UUMP?)  PECuPO  OUTPUT  5 
ON  ENUFILE  (OUMp)  GO  TO  EOJ  ? 


R1 : 


W3 : 

W3A: 

w 2: 


NF.OF  = 0 ; 

PE AJ  FILE  (UUMP)  INTO  (CAPOI)  i 
NC  = NC  ♦ 1 5 
Nb  OF  = 4 5 

READ  FILE  (UUMP)  INTO  (CAPD2)  . 

NC  = NC  ♦ 1 i 

IF  ( nTOT  = ? ) THEN  GO  To  w?  5 

REAu  FILE  (UUMP)  INTO  (CAPOJ)  ; 

NC  = NC  ♦ 1 * 

WRITE  FILE  (UUMP?)  FpOK  (HUFj)  » 
NK  = NP  ♦ 1 • 

GO  TO  Pi  ; 

WRITE  FILE  (UUMP?)  fpum  (HUF2)  ; 

NU  TO  W3A  » 


EOJ:  0 1 SPLAY  ( • • ) J 

DISPLAY  ( NC  I I • : Total  INPUT  OUMP  RECORDS*  ) » 
DISPLAY  ( NR  I I • : TOTAL  OUTPUT  COMBINATION  HECOPDS* 

CLOSE  FILE  (UUMP).  FILt  (UUMP2)  ; 

CALL  IHEsmRC  < NF  OF  ) I 

ENU  mpgm3  J 


■ 
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PGMflO  PLI 


P<»M80:  /•  SCRUNCH  l*n  HYTE  RtCOHDS  TO  80  HY  Tt  MULTIPLES  - 7/20/7*  */ 

PWOC  OPTIONS  (main)  * 

DECLARE  C 1 60  CHAR  (lfru)  2ASEI)  (Hi)* 

A160  (160)  CHAP  (I)  STATIC* 

Cl  Cham  ( e»u ) bASEI)  (Ml)* 

C2  CHAR  ( A')  ) GASEO  (H2)* 

Fl  CHAP  (A)  HAStl)  (Ml)* 

fp  Chaw  (a)  mased  (Pj)  * 

MOVE  Char  (a)  static  ; 

START:  Pi  s AUOR  ( AlMKl)  ) ; 

P2  = AOUR  ( A 1 60 (hi)  ) ; 

P3  * Al)DR  ( A 1 < t>  > ) 1 
NC*  Nh  * 0 : 

OPEN  FILE  (SYSUTl)  RECUHU  INPUT* 

FlLt  (SYSUT2)  RECORD  OUTPUT  S 
ON  ENoFILE  (SYSUTl)  Go  TO  EOJ  1 

RD  REAu  FlLt  (SYSUTl)  INTO  (Clfcu)  i 

NC  = NC  ♦ 1 ; 

MOVE  » Fl  * F1=F2J  F2  = MOVE  i 

PRITE  FILE  ( SYSUT 2 ) FROM  (Cl>  * 

• KlTt  FILE  ( SYSUT  2 ) FROM  (C2)  I 
NH  = Nh  ♦ 2 \ 

GO  To  Pi  : 

EOJ!  CLOSE  FlLt  (SYSUTl)*  FILE  ( SYSUT2)  ; 

DISPLAY  ( NC  I I • : INPUT  records  processed*  ) ; 

DISPLAY  ( NR  II  * : OUTPUT  RECORDS  PROCESSED*  ) * 

END  PGmho  \ 


TABLE  VI-5 
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"WHAT  IF"  SUPPORT  PROGRAMS 

The  TPF  model  user  normally  will  use  the  TPF  system  first  to  examine  a school 
or  center  under  normal,  or  baseline,  conditions,  and  then  to  modify  certain  input 
parameters  and  observe  the  changes  to  the  outputs  that  occur.  Three  approaches 
are  available  to  the  user  to  modify  these  Input  data.  See  Figure  VI-4.  The 
first  is  to  use  the  RAMIS  facilities  to  modify  the  baseline  data  and  create  a 
DOTS  scratch  data  base.  The  use  of  RAMIS  to  accomplish  this  Is  discussed  in  Secti 
II  of  this  report.  The  second  method  Is  to  execute  program  TPFM0D1 , which  allows 
the  user  to  make  modifications  to  individual  courses  for  study,  dr  te  Insert  now 
or  upcoming  courses  in  order  to  observe  their  effects  on  the  overall  system. 
Finally,  program  PARAM  can  be  used  to  make  modifications  to  a certain  type  of 
data  for  all  courses;  i.e.,  reducing  the  demand  for  all  courses  by  10%. 

COURSE  MODIFICATIONS.  Executive  TPFMOD,  in  conjunction  with  program  TPFM0D1 , 
is  used  to  control  the  "what  if"  capability  of  the  TPF  system  for  modifications 
to  individual  courses  or  the  study  or  inclusion  of  new  courseslto  the  center. 

Executive  TPFMOD.  Executive  TPFMOD  is  quite  straight  forward.land  its  flow  is 
shown  in  Figure  VI-5.  This  executive  sets  up  the  program  to  access  either 
the  TPF  MASTER  or  TPF  SCRATCH  data  oase  created  by  copying  and  reformatting  the 
data  stored  In  the  DOTS  data  base.  A third  file,  TPF  VFY,  shown  in  Figure  VI-4, 
is  available  to  the  TPF  model  for  verification  purposes,  but  cannot  be  accessed 
by  TPFHODh  Three  features  of  executive  TPFMOD  should  be  explained.  First, 

&INDEX  contains  the  number  of  parameters  passed  the  executive  during  the  call 
(or  parameter  read),  and  &1  ...  &10  contain  the  parameters.  It  Is  Important 
to  test  that  there  are  parameters  before  testing  the  value  of  the  parameters  as 
the  executive  will  ABEND  on  a value  test  If  none  are  present.  Secondly, 

&INDEX0  contains  the  condition  code  of  the  last  program  run.  In  this  case,  it 
is  used  to  test  the  condition  code  of  the  STOP  command  In  program 
TPFM0D1 , which  will  be  0 if  the  user  desires  to  save  the  data  created,  and  999 
if  it  is  not  to  be  saved.  Finally,  program  TPFM0D1  overrides  the  normal  error 
checking  for  Input/output  errors  of  the  SysteiV370,  and  this  error  checking 
must  be  reset  by  the  SET  SPIE  ON  command  to  allow  normal  processing  to  continue. 
Failure  to  reset  this  SPIE  may  cause  subsequent  programs  to  loop  during  execu- 
tion of  I/O  commands,  resulting  in  excessive  consumption  of  computer  time  and 
charges . 

Program  TPFMOD! . Program  TPFM0D1  is  actually  a load  module  obtained  by  combin- 
ing main  program  TPFMOD  with  subroutines  COMND,  CONVRT,  MSG,  DECODE,  and  SHOW. 

The  FORTRAN  program  TPFMOD  is  discussed  first,  with  each  subroutine  discussed 
separately. 

Program  TPFMOD  has  two  purposes.  The  first  Is  to  allow  the  user  to  access 
specific  courses  from  the  TPF  data  base  (master  or  scratch),  make  alterations 
to  any  of  the  data  elements,  and  to  store  the  modified  course  data  for  TPF 
model  execution.  The  second  purpose  Is  to  allow  the  user  to  create  new  courses, 
prompted  by  the  program,  and  again  store  them  for  TPF  execution.  Program  TPFMOD 
(main)  controls  the  sequence  of  execution  to  accomplish  this.  This  control  pro- 
gram can  be  broken  Into  three  parts:  The  first  part  controls  the  "COPY"  option, 
the  second  controls  the  "NEW"  option,  while  the  third  section  controls  the  "MOD" 
option.  Several  features  are  consistent  throughout  this  main  program  and  the 
various  subroutines.  First,  all  data  set  Input  uses  the  direct  access  method 
of  FORTRAN  read.  This  Is  to  allow  the  user  to  skip  through  the  files  without 
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the  need  to  open  and  close  them  on  each  read.  A CALL  ERRSET  command  Is  declared 
at  the  beginning  of  the  program  to  override  error  checking  during  this  I/O 
operation.  Should  the  user  specify  a course  COP  number  not  in  file,  inline 
subroutine  RANGE  will  be  invoked  to  recover  the  error  and  allow  processing  to 
continue. 

Secondly,  most  terminal  I/O  uses  the  10A1  format.  This  is  to  allow  the  user  to 
intermix  alpha,  numeric,  and  decimal  characters  on  the  same  read  operation  and 
to  allow  entry  of  a variable  number  of  parameters  during  the  s*me  read.  Sub- 
routine CONVRT  is  used  to  change  the  results  of  this  read  back  to  internally 
usable  data.  Finally,  during  any  terminal  read  operation,  terms  such  as  HELP, 
QUIT,  SHOW,  DONE,  etc.,  may  be  entered,  and  subroutine  MSG  will  provide  the 
proper  action. 

The  COPY  option  allows  the  user  to  copy  all  data  for  a particular  course  into 
core  storage  for  subsequent  modification  and  finally  execution  by  the  TPF  model. 
The  course  is  called  by  the  CDP  number,  and  either  file  TPF  MASTER  or  TPF 
SCRATCH  is  searched  for  that  course.  The  course  data  are  stored  in  the  order  they 
are  accessed  rather  than  by  CDP  number.  This  is  to  allow  evaluation  of  a course 
under  several  conditions  during  a single  model  run,  hence  the  same  course  can  be 
copied  several  times.  However,  due  to  the  pointer  method  of  storage,  the 
sequence  of  operation  must  be  COPY,  MODIFY,  COPY,  MODIFY... as  it  Is  Impossible 
to  modify  course  data  after  a new  course  has  been  read  in. 

The  NEW  option  allows  the  user  to  create  new  courses  in  the  file.  The  user  is 
prompted  for  the  proper  data  and  format  for  only  those  data  elements  required 
for  TPF  execution.  This  prompting  is  accomplished  through  a DO  loop,  which 
repetitively  calls  subroutine  DECODE,  handing  off  the  proper  parameter.  The 
course  counter  is  Incremented  once  a new  course  has  been  inserted  in  the  file. 

The  MOD  option  allows  the  user  to  modify  data  for  a course  inserted  in  the  file, 
whether  through  the  COPY  or  NEW  option.  The  user  is  prompted  to  enter  a field 
name.  Subroutine  DECODE  then  validates  the  field  name  and  prompts  for  the  data 
In  the  proper  format.  Subroutine  DECODE  also  accepts  the  field  name,  followed 
by  a blank  and  then  the  data  to  speed  up  the  operation  by  an  experienced  opera- 
tor. The  field  names  in  this  program  are  identical  to  the  field  names  used  in 
the  DOTS  data  base,  and  may  be  displayed  by  entering  HELP  and  asking  for  the 
field  names. 

The  wrapup  of  this  program  allows  the  user  to  bypass  storage  of  the  file  created 
If  errors  occurred,  and  also  supports  the  HELP  option.  The  HELP  option  allows 
the  user  to  display  the  field  names  or  commands  available,  without  reference  to 
an  operation  manual.  Processing  returns  to  the  point  at  which  HELP  was  entered 
upon  completion  of  this  option. 

Subroutine  DECODE  has  three  purposes.  The  first  is  to  support  the  NEW  option 
by  prompting  for  proper  field  data.  The  second  Is  to  support  the  MOD  option, 
by  verifying  field  names,  and  prompting  for  and  verifying  the  field  data.  Fi- 
nally, the  subroutine  supports  the  STAT  command,  and  will  display  the  current 
value  of  any  field  for  the  course  In  process.  Conmunl cation  with  the  main 
program,  or  other  calling  subroutines.  Is  accomplished  through  parameters  passed 
with  the  subroutine  call  for  control  and  return  codes,  and  through  COMMON 
storage  for  data  elements.  DECODE  is  called  in  the  form: 
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CALL  DECODE  (I.  N,  RESP,  IN,  IN2) 

where:  All  data  elements  are  of  the  form  INTEGER*2 

I contains  the  valid  field  number  if  known  (usually  through  the  new 
option),  a zero  if  it  is  not  known,  or  a 9999  if  the  STAT  option  is 
In  effect  (from  subroutine  SHOW). 

N is  a pointer  at  the  data  in  storage  for  the  course  being  processed. 

RESP  contains  the  return  code  (0  for  valid  operation,  99  for  an 
invalid  operation,  or  the  subroutine  MSG  return  code  if  the  operator 
keyed  in  a valid  message  during  execution. 

IN  and  IN2  are  5 element  arrays  containing  the  data  to  be  converted. 

IN  contains  the  field  name,  while  IN2  contains  the  data. 

Subroutine  DECODE  contains  the  type  of  data  (integer,  alpha,  or  decimal)  for 
each  field  in  an  array  called  TYPE,  and  the  limiting  value  for  each  field  in  an 
array  called  SIZE.  This  allows  error  checking  of  data  elements  and  allows 
prompting  of  the  user  if  no  data  are  entered  with  the  field  name  or  an  error 
occurs.  During  execution  of  subroutine  DECODE,  if  any  data  entered  are  invalid 
or  not  recognized,  subroutine  MSG  is  called  to  ascertain  if  a valid  message  was 
entered,  and  if  so,  subroutine  DECODE  terminates,  using  the  message  number  as  a 
return  code. 

Subroutine  CONVRT  is  a FORTRAN  subroutine  called  by  TPFMOD  MAIN  and  subroutine 
DECODE,  as  well  as  other  programs  elsewhere  in  the  TPF  system.  The  purpose  of 
CONVRT  is  to  convert  data  read  into  storage  in  the  A format  to  a data  form 
compatible  with  Internal  processing.  The  A format  is  used  in  the  TPF  system 
for  terminal  Inputs  to  allow  intermixing  of  data,  messages,  and  field  names, 
allow  blank  delimited  input,  to  allow  intermixing  of  integer  and  decimal  data, 
and  to  eliminate  the  need  for  right  or  left  justification  for  data  input.  This 
subroutine  Is  called  in  the  form: 

CALL  CONVRT  (IN,  ANS,  CODE,  DECMAL) 

where:  IN  is  in  the  form  INTEGER*2  and  is  a 5 element  array  containing  the 

data  to  be  converted. 

ANS  is  In  the  form  INTEGERM  and  contains  the  integer  conversion. 

CODE  is  In  the  form  INTEGER*2  and  contains  the  return  code  for  the 
subroutine  (0  for  inteaer  conversion,  5 for  decimal  conversion,  10 
for  invalid  conversion). 

DECMAL  is  in  the  form  REALM  and  contains  both  the  real  and  fractional 
portion  of  the  answer  for  a decimal  conversion. 

Basic  operation  of  this  subroutine  Is  quite  simple.  Each  digit  of  the  number 
to  be  converted  was  read  Into  storage  using  the  A1  format.  Thus,  the  number  1 
Is  stored  In  an  INTEGERS  location  as  hexldeclmal  F140,  rather  than  the  desired 
0001,  and  Is  thus  not  valid  for  processing.  To  convert  each  digit  to  a process- 
able  number  the  value  F000  is  first  subtracted  from  the  number,  in  this  case 
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leaving  0140.  The  number  is  then  divided  by  256,  which  causes  a shift  right  2, 
leaving  0001.  An  equivalence  statement  is  used,  making  the  work  area  for  this 
operation  an  INTEGERS,  to  prevent  underflows.  Traps  are  provided  to  recognize 
multiple  decimals.  The  five  individual  values  decoded  are  then  combined  into  a 
single  decimal  or  integer  value. 

Subroutine  MSG  is  a short  FORTRAN  subroutine  used  to  decode  one  of  9 valid  text 
messages  passed  from  the  calling  program  or  subroutine.  It  is  called  in  the 
form: 

CALL  MSG  (IN,  CODE) 

where:  IN  is  in  the  form  INTEGERS  and  is  a 5 element  array  containing 

the  message  to  be  decoded. 

CODE  is  in  the  form  INTEGER*2  and  contains  one  of  the  following 
return  codes: 

QUIT(1 ) , D0NE(2),  HELP(3),  STAT(4),  SH0W(5), 

COPY (6) , NEW (7) , ALL(8) , M0D(9),  NOT  REC0GNIZED(99) . 

Subroutine  SHOW  is  a FORTRAN  subroutine  to  provide  display  of  all  elements 
for  the  course  in  process.  This  subroutine  is  called  in  the  form: 

CALL  SHOW  (N) 

where:  N is  in  the  form  INTEGER*2  and  contains  a pointer  to  the  course  in 

the  data  matrix  in  process. 

The  user  is  allowed  to  specify  a specific  field  to  be  displayed,  or  call  for 
all  fields  by  means  of  a CR  when  prompted.  The  format  of  the  data  displayed 
is  similar  to  that  used  for  the  TPF  model.  However,  the  student  backlog 
figure  used  in  the  TPF  model  is  found  during  model  initialization,  while  the 
figure  used  here  is  calculated,  with  the  possibility  that  in  a few  cases  the 
backlog  figure  may  differ  slightly.  No  return  code  is  provided  for  in  this 
subroutine,  hence  messages  cannot  be  decoded.  This  subroutine  also  has  the 
BLOCK  DATA  subroutine  attached,  which  accomplishes  initialization  of  all  data 
in  COftlON  storage  prior  to  program  execution. 

t 

Subroutine  COMND  is  an  assembly  language  subroutine  whose  execution  causes  the 
screen  of  the  Hazel  tine  display  to  be  cleared.  It  has  no  effect  on  most  other 
terminals.  It  Is  called  in  the  form: 

CALL  COMND  (I,  J) 

where:  I and  J are  INTEGERS  variables,  I must  contain  a 6 to  cause 

a clear  operations  and  J contains  the  return  code  (0  for  valid 
operation,  1 or  2 for  error). 

The  return  code  is  not  tested.  This  subroutine  is  used  by  most  FORTRAN  and 
PL/ I programs  In  the  TPF  system. 

ACROSS  THE  BOARD  MODIFICATIONS.  Program  PARAM,  in  conjunction  with  executive 
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TPF,  is  used  to  support  "what  if"  capability  of  the  TPF  system  for  "across 
the  board"  modifications  to  input  data.  This  is  accomplished  through  manipu 
lation  of  data  set  TPF  PARM  which  is  an  input  to  the  TPF  model,  and  through 
the  use  of  FILEDEF  commands  in  the  executive  to  direct  the  input/output  for 
the  TPF  model. 


Executive  TPF.  Executive  TPF  controls  execution  of  both  program  PARAM  and 
the  TPF  model . The  executive  requests  which  data  sets  are  to  be  used  as  input 
and  sets  up  the  necessary  flags  in  &INDEX1  and  &INDEX2.  An  option  exists  to 
enter  the  word  SAVE  as  the  second  parameter  when  the  input  file  is  requested, 
and  if  present,  will  set  a flag  in  &INDEX3.  Normally  center  and  school  output 
data  for  the  TPF  model  will  be  written  in  0UT3  FILE,  and  detailed  course  data 
will  be  written  in  0UT4  FILE,  overwriting  data  already  written  there.  If  the 
SAVE  option  Is  specified,  output  will  be  directed  to  0UT1  FILE  for  center  and 
school  data,  and  0UT2  FILE  for  course  data.  Also,  the  TST  DATA  file,  created 
by  program  TPFM0D1  can  be  concatenated  with  any  other  input  data  set  at  this 
time. 

Program  PARAM.  Program  PARAM  is  a PL/I  program  called  by  the  executive  TPF, 
and  is  used  to  modify  the  contents  of  data  set  TPF  PARM.  This  data  set  con- 
tains a single  80  byte  record  that  is  used  as  input  data  by  the  TPF  model  to 
control  execution.  The  format  of  this  data  set  is  shown  in  Figure  VI-3  C. 

This  method  of  control  for  the  TPF  model  was  chosen  to  facilitate  off-line  or 
batch  execution,  as  well  as  on-line  terminal  applications.  The  program  reads 
the  current  record  from  data  set  TPF  PARM,  displays  the  active  elements, 
allows  the  user  to  make  changes,  and  then  rewrites  the  record.  The  first  four 
elements  (input,  first  year,  last  year,  and  AOB  constant)  are  always  active 
and  their  values  will  be  displayed.  The  next  10  fields  are  active  only  if  a 
number  greater  than  zero  appears  in  the  flag  column.  Finally,  the  last  10 
fields  contain  flags,  and  an  indication  will  be  displayed  if  their  value  is 
non-zero.  Use  of  this  parameter  data  are  discussed  in  the  TPF  LOGIC  DESIGN 
section.  The  program  runs  in  a manner  similar  to  the  other  support  programs 
in  this  section,  and  accepts  most  conmands,  such  as  HELP, QUIT,  and  SHOW  as  the 
other  program.  Internally,  most  of  the  field  location  and  data  assignment 
tasks  are  done  using  the  substring  feature  of  the  PL/1  language.  This  is  to 
allow  the  variable  display  format  desired  for  the  active  fields,  and  assist  in 
decoding  and  locating  fields  for  data  entry.  The  COMND  subroutine  Is  used  to 
provide  the  clear  display  feature  at  the  beginning  of  the  program  and  PL/1 
subroutine  IHESARC  is  used  to  pass  a return  code  to  bypass  execution  of  the  TPF 
model  If  the  user  so  directs.  Finally,  the  date  of  the  run  is  acquired  through 
the  PL/I  date  feature,  and  is  passed  to  the  TPF  model  on  the  PARM  card. 
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LISTING  - EXECUTIVE  TPFMOD 


GTYPE  OFF 

-FRST  GIF  G INDEX  EQ  0 GGOTO  -NONE 
GIF  G 1 EQ  MASTER  GGOTO  -OK 
GIF  G 1 EQ  SCRATCH  GGOTO  -OK 
GIF  C 1 EQ  QUIT  GEXIT 

-NONE  GPRINT  REPLY  MASTER  OR  SCRATCH  (INPUT  FILE) 

GREAD  ARGS 

GGOTO  -FRST 

-OK  FILEDEF  « CLEAR 

FILEDEF  3 DSK  TPF  MASTER 

FILEDEF  4 DSK  TST  DATA 

GIF  G 1 NE  SCRATCH  GGOTO  -MASTER 

FILEDEF  3 DSK  TPF  SCRATCH 

GPRINT  SCRATCH  DATA  BASE  USED  AS  MOD  INPUT 
GGOTO  -RUNIT 

-MASTER  GPRINT  MASTER  DATA  BASE  USED  AS  MOD  INPUT 
-RUNIT  TPFMOD 1 
FILEDEF  K CLEAR 
SET  S PIE  ON 

GIF  GINDEX0  GE  959  GGOTO  -QUIT 
-READ  GPRINT  RUN  TPF  MODEL?  (Y  OR  N) 

GREAD  ARGS 

GIF  G 1 EQ  Y GGOTO  -MODEL 
GIF  G 1 EQ  N GGOTO  -SKIP 
GIF  G 1 EQ  QUIT  GGOTO  -SKIP 
GGOTO  -READ 
-MODEL  EXEC  TPF  TEST 
-SKIP  GEXIT 

-QUIT  GPRINT  NOT  SAVED  AT  OPERATORS  REQUEST 
GEXIT 
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(LIST, NAN SQ, 


C TPP  INPUT  CRSATE/HOOIPV  P II OMAN  13JUWT9  OOOOOlOO 

C SUBROUTINES  CALLEO-MSG,  CONYRT,  0 1C OOI,  CONNO  00000200 

INPLICIT  INTC6IM2  (II  00000300 

INTEGER**  tl,*l*,*99,*3*  00000400 

•f ALP*  t9,tll,tl2,*l9«*l*«*l*,*29,*91,t92  00000900 

REAL**  *2A, *9A, *9*  00000*00 

INTEGER*!  VES/*Y*/,  NO/'N*/  OOOOOTOO 

COMMON  /A/  OK l** I • A2A( 1*41 ,*1A4 1**1 , A* 1 1** )» *9 ( 1 **)»•* ( 1**1  OOOOOlOO 

COMMON  /A/  t7ll**l,**(l**l,*9(l**),S10ll**l,*ll(l**l, *1211**1  00000900 

COMMON  /A/  I1SI 1*4 1 «tl* ( 1**)« *19(1**) ,616 ( l**l « *1T( 1*4) « llll 1**1  00001000 

COMMON  /A/  1191 1*41 ,1201 1*4 !• 12 l I 1**1 .1221 l *41 *12 SI l** 1*12*1 1**1  00001100 

COMMON  /A/  1291 1**) • 12*1 1*41,127 ( 1**1 , 1211 I**) ,*291 1*4 1 •1)011**1  00001200 

COMMON  /A/  til ( 1*4  1, 19 2(1*4 1,199(14* 1,19*11*41, *99  ( 1**1 , 19* ( 1**1  00001900 

COMMON  /A/  *21  1 1**1 •till  1**1  00001400 

INTEGER*!  INIS)  /9*0/,  IN2  191  /9«0/,  COO I,  NJ/*/,JN  00001900 

COMMON  NOR  00001*00 

INTEGER**  MEN  /*NEM  •/,  QUIT  /*OUlT*/,  OONE  /'DONE' /,  TEXT,  TCOP  00001700 


OEPINE  PILE  9 I 900,I0,E, J9I 
EXTERNAL  RANGE 

CALL  ERRSET  I 232 , 100,-1 , 1 .RANGE ) 

CALL  CONNO  INJ.JN) 

N • 0 
NCR  • 0 

1000  MRITE  16,11 

1 FORMAT  I / • TPF  COURSE  CREATE/NOOIPV  PROGRAM*/ I 

2 MRITE  I*. 9) 

9 FORMAT  I*  ♦ENTER  **NfM**  OR  ••COPT**  •/) 

* REAO  19,9)  IN 
9 FORMAT  I10A1I 


CALL  MSG  (IN,  COOE) 

IF 

(COOE  .LE.  2) 

GO 

TO 

999 

IF 

(COOE  .EO.  *1 

GO 

TO 

100 

IF 

(COOE  .EO.  7) 

GO 

TO 

200 

IF 

(COOE  .EO.  •) 

GO 

TO 

900 

IF 

(COOE  .EO.  9) 

GO 

TO 

*00 

MRITE  (*.*l  IN 

* FORMAT  HI.  9A1,  • ♦INVAL10-  RETRY*/) 

GO  TO  2 

C •••*•  COPY  *****  COPY  EXISTING  COURSE  FROM  PILE  9 

100  MRITE  I*. 101) 

101  FORMAT  1/  • ♦COPY  EXISTING  COURSE-  ENTER  COP* I 

102  REAO  19,1031  TEXT 
101  FORMAT  (A*) 

IF  (TEXT  .EO.  QUIT)  GO  TO  999 

IF  (TEXT  .EO.  OONE)  GO  TO  1000 

IF  (TEXT  .EO.  NEM)  GO  TO  200 

IF  (TEXT  .EO.  ALL)  GO  TO  900 

IF  (TEXT  .EO.  MELPI  CALL  HELP1 
IF  (TEXT  .EO.  HELP)  GO  TO  100 
C MERE  IF  OIONT  RECOGNIZE  MESSAGE-  SEE  IF  IS  IN  COP  FILE 
00  110  I • 1.  *00.  2 
REAO  (9*1,  103.  ERR-119)  TCOP 
IF  INGA  *6T • 0)  GO  TO  119 
IF  ITCOP  .EO.  TEXT)  GO  TO  120 
110  CONTINUE 

C HERE  IF  ERROR  OR  NOT  IN  FILE 

119  NCR  • 0 

MRITE  (*,ll*l  TEXT 

11*  FORMAT  I IX.  A*.  * ♦NOT  IN  FILE-  RETRY  OR  ENTER  OONE'/I 
GO  TO  102 

C MERE  IF  POUNO  COP 

120  CONTINUE 
N • N ♦ 1 
J • I 


00001*00 

00001900 

00002000 

00002100 

00002200 

00002100 

00002*00 

00002900 

00002*00 

00002700 

00002*00 

00002900 

00009000 

00003100 

00001200 

00003900 

00003*00 

00009900 

00001*00 

00003700 

00003*00 

00003900 

0000*000 

0000*100 

0000*200 

0000*100 

0000*400 

0000*900 

0000*600 

0000*700 

0000*000 

0000*900 

00009000 

00009100 

00009200 

00009900 

00009*00 

00009900 

00009600 

00009700 

00009*00 

00009900 

0000*000 

00006100 

0000*200 

0000*900 

0000**00 


REAO  I9*J.I**.CRR»U9)  tl(N),*2AlN)  • *2*IN)  • A9AIN)  ,tl*(N),**(N).*9(0000*900 
•N) , t*(Nl.t7IN).**INI,*9IN),*10IN)»*ll IN),*12IN),*19IN),*1*IN),  0000**00 

• tl9IN).*l*INI,*17IN).*l*(N).*19INI.t20(NI.*21(NI.*22IN),*29(NI.  00006700 

• A2*(N) »t29(M) ,A2*(M).*27tM).*2*IM) .*29(N) , *101 N) .All IN) , 00006*00 

• *92 (N) .tlllN) ,*9*(N) ,*99(N) . *9*IN)  0000*900 

FORMAT  ( A*,A*. A2.2AR. I 9,F9. 1,21 9.219. 12 .*F*. 9. I*. A*. 21. /.*X.  00007000 

• 2(19, F9.1, 211, 2I9.I9).2P*.1.2A2,2A*I  00007100 

121  MRITE  (*.1221  TEXT  00007200 

122  FORMAT  (/  • COP  •.  A*.  • ♦COPIED-  ENTER  ••OONE»»  OR  ••MOD**  *1  00007100 

121  REAO  (9,9)  IN.IN2  00007*00 

CALL  MSG  (IN,  COOE)  00007900 

GO  TO  1999,  1000,  12*.  12*.  129,  100.  200,  900.  *00),  COOE  00007*00 

MRITE  (*,*)  IN  00007700 

GO  TO  121  00007*00 

12*  CALL  HtLPI  00007900 

GO  TO  121  0000*000 

129  CALL  SHOM  (N)  0000*100 

00  TO  121  0000*200 

12*  I • 9999  0000*100 

CALL  OECOOE  1 1 .N.COOS, IN. IN2  ) 0000*400 

IF  (COOE  .10.  01  GO  TO  121  0000*900 

MRITE  I*.*)  IN2  0000**00 

GO  TO  129  OOOOOTOO 

C pppp  NEM  •**•  CREATE  NEM  COURSE-  PROMPT  FOR  ENTRIES  OOOOMOO 

200  CALL  CONNO  (NJ.2N)  0000*900 

201  MRITE  (*.2021  00009000 

202  FORMAT  (/•  CREATE  NEM  COURSE*/l  00009100 

Nl  • N ♦ 1 00009200 

1 • I 00009100 

CALL  OECOOE  1 1 .NI.COOE. IN, IN2)  00009*00 

IF  (COOE  .SO.  01  GO  TO  210  00009900 

GO  TO  1 999. 1 000. 20*. 209. 209, 100. 200, 900 1 • COOE  00009*00 

203  MRITE  1 6,7)  00009700 

7 FORMAT  (•  ♦ I NY ALIO-  RETRY*/ I 00009*00 

GO  TO  201  00009900 

20*  CALL  MELPI  00010000 

GO  TO  201  00010100 

C MERE  IF  POUNO  COP-  NON  I NCR  I HEN T COUNTER  t CREATE  COURSE  00010200 

210  WRITE  (6,2111  00010900 

211  FORMAT  (/•  ENTER  FOLLOWING  ORTA  TO  CREATE  COURSE*/)  00010*00 

N • N • I 00010900 

00  290  I • 9,  16  00010*00 

IP  (I  .EO. 101  GO  TO  290  00010700 

IP  II  .90.1*1  GO  TO  290  00010*00 

TABLE  VI-7 
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00/14/79 

INPUT  LISTING 

-TPPNO0- 

CARO  NO 

••••  CONTENTS 

4444 

110 

IP  (1  .20.  1*1  II  - 9* 

00011000 

111 

CALL  OCCOOE  1 1 1 .N.COOE. IN. 1N2I 

00011100 

112 

IP  (COOP  .20.  01  CO  TO  290 

00011200 

U) 

eo  TO  IW.IOOO. Ill, 1U.J11. 100. 200,100. *001.  coot 

00011900 

11% 

MITC  <*.*>  IN 

00011400 

119 

CO  TO  212 

00011900 

11* 

221  CALL  HfLPl 

00011600 

117 

CO  TO  212 

00011700 

11* 

222  CALL  SHOM  IN) 

00011*00 

U9 

CO  TO  212 

00011900 

120 

230  MOtTf  16.229) 

00012000 

121 

229  FORMAT  I*  •) 

00012100 

1/2 

C 

f NO  PROMPTED  COURSE  CREATE 

00012200 

123 

231  MAI TE  1 *.232 ) 

00012300 

124 

232  FORMAT  !/•  REV  OATA  ENTERED  POA  CREATE-  ENTER  '•MOO**  OR  "OONl 

••  00012400 

129 

• • 1 

00012900 

12* 

29*  READ  19.9)  IN, 1*2 

00012*00 

127 

CALL  MSG  I IN.COOE ) 

00012700 

12* 

CO  TO  1999. 1000.233. 239. 234.100*200.300. 400).  C006 

00012*00 

129 

MAITE  16.6)  IN 

00012900 

130 

CO  TO  23* 

00013000 

131 

233  CALL  HELP1 

00013100 

132 

CO  TO  231 

00019200 

133 

239  1 • 9999 

00013900 

194 

CALL  OECOOE  1 1 .N.COOE • IN. IN2) 

00019400 

139 

IP  ICOOE  .EO.  0)  CO  TO  231 

00013900 

13* 

MAITE  1*.*)  IN2 

00019*00 

137 

CO  TO  23* 

00019700 

13* 

234  CALL  SHOM  INI 

00019*00 

139 

GO  TO  231 

00013900 

140 

c 

••••  ALL  ••••  HERE  IF  COPY  ALL 

00014000 

141 

300  MAITE  16.3011 

00014100 

142 

301  FORMAT  I/*  "ALL"  OPTION  NOT  SUPPORTED  THIS  PROGRAM*  /) 

00014200 

143 

CO  TO  1000 

00014300 

144 

c 

••94  MOO  •64«  HERE  If  MOO  CALLED 

00014400 

149 

400  IF  IN  . EO.  0)  CO  TO  412 

00014900 

14* 

HAITI  1 *.401 ) *1  IN) 

00014*00 

147 

401  FORMAT  1 / • M 001  Ft  OATA  POA  COP  *,A4) 

00014700 

14* 

402  MAITE  IA.403I 

00014*00 

144 

403  FORMAT  I/*  ♦ENTER  FIELD  TO  *E  CHAN CEO* ) 

00014900 

190 

404  REAO  19,9)  IN.1N2 

00019000 

191 

1 • 0 

00019100 

192 

CALL  OECOOE  1 1 .N.COOE . IN. IN2) 

00019200 

193 

IF  ICOOE  .EO.  0)  CO  TO  402 

00019900 

194 

CO  TO  1444. 1000.410.402.411. 100.200.300.400) • COOE 

00019400 

199 

MAITE  !*.*)  IN 

00019900 

19* 

CO  TO  402 

00019*00 

197 

410  CALL  HElPl 

00019700 

19* 

CO  TO  402 

00019*00 

194 

411  CALL  SHOM  IN) 

00019900 

1*0 

CO  TO  402 

0001*000 

1*1 

412  MAITE  l*.419l 

0001*100 

1*2 

419  FORMAT  I*  MOO  INVALIO-  NO  COURSE  IN  FILE*/) 

0001*200 

1*9 

CO  TO  1000 

0001*900 

1*4 

c 

6444  WRAP UP  4444 

0001*400 

1*9 

499  MAITE  14.901) 

0001*900 

1** 

901  FORMAT  I/*  SAVE  NEM  OATA  RASE?  IV  OR  Nt«l 

00016*00 

1*7 

REAO  19.91  IN 

0001*700 

1** 

IF  IIN  III  .EO.  YES)  CO  TO  910 

0001**00 

1*4 

IP  UN  111  .EO.  NO)  CO  TO  1999 

0001*900 

170 

CALL  NSC  1 IN.COOE) 

00017000 

171 

CO  TO  11994, 1999, 920. 920. 920* 100.200. 900.4001. COOE 

00017100 

172 

920  MAITE  I*.*)  IN 

00017200 

173 

CO  TO  499 

00017300 

174 

910  NSAVE  • N 

00017400 

179 

00  919  N • 1.  NSAVE 

00017900 

17* 

919  MAITE  14*916)  *1  IN) .A2AINI * *2*1 N I .*3AINI.*9*INI.*4INI.*9I 

00017*00 

177 

4N).  t*IM).STtNl.i*INI*S9IM).*lOINI.*lllMI,S12IM).*19IN),*14IN). 

00017700 

170 

• *19INI,*l*(NI.*ltN),tl7IN).*l*INI.tl9IN).*20IN).*2IINl.*22INI. 

12900017*00 

174 

4 CN1 «*24(N) * *29(NI . *2*1 N) .927 IN) , *2*1 Ml .*24 IN) ,*90 INI .991 IN) , 

00017900 

1*0 

4 *92INI.*39INI .*94 INI .*99 IN). *9* IN I 

0001*000 

1*1 

91*  FORMAT  1 A4.A*. A2.2A*. I9*P9.0*2I9*2I9» I2.4P4.9* I4.A4* 21 */,**• 

0001*100 

1*2 

4 21 I9.F3.0.2I9,2I9*I3),2P4. 1.2A2.2A4) 

0001*200 

1*3 

STOP 

0001*900 

1*4 

1444  STOP  944 

0001*400 

1*9 

ENO 

0001*900 

1*6 

SURROUTINE  HELP  1 

0001*400 

1*7 

INTECER44  TEXT ,0U! T/*QU!T*/ .SKIP/*  SKIP* /.PI EL/*FIEL*/.C00f/*C00C*  /OOOIOTOO 

l*t 

INTECf R*4  DONE  /•OOME*/ 

00010*00 

1*9 

1 MAITE  1 *• 3) 

0001*900 

190 

9 FORMAT  I/*  ♦HELP  CALLED-  ENTER  PIELO,  COOES.  OR  SRIP*) 

00019000 

141 

REAO  19.9)  TEXT 

00019100 

192 

9 FORMAT  |A4) 

00019200 

199 

IP  1 TEXT  .SO.  QUIT)  CO  TO  999 

00019900 

194 

IP  (TEXT  .SO.  DONE  1 CO  TO  999 

00019400 

199 

IP  ITEXT  .CO.  SRIP)  CO  TO  999 

00019900 

14* 

IP  (TEXT  .CO.  PIED  CO  TO  100 

00019*00 

147 

IP  (TEXT  .CO.  COOCI  CO  TO  200 

00019700 

19* 

MRITC  14.101  TEXT 

00019*00 

144 

10  PORNAT  111.  A4.  • INVALIO-  RETRY* 1 

00019900 

200 

CO  TO  1 

00020000 

201 

100  MRITC  16.101) 

00020100 

202 

101  PORNAT  I//*  TPP  PICLOS  ARE  I • / 

00020200 

209 

6*  COP  C0NV1  LEN1  CAP1  0CAP1  0M01  *0N01  Of  ST*/ 

00020900 

204 

••  CTLC  C0NV2  LEN2  CAP2  0CAP2  0M02  *0 N02  CMWR2V 

00020400 

209 

4*  CAS  CONVS  LENS  CAP*  CCAP9  0M03  19*03  CMWR2* / 

00020900 

20* 

4*  SCH  PPAIL  NAOIS  NOSMO  SET*  *RLC*/ 

00020*00 

207 

••  JNO  PNCC  PAO*  APRIL  PATV  CTYPf • // 1 

00020700 

20* 

CO  TO  499 

00020*00 

209 

200  MRITC  1 4. 201 1 

00020900 

210 

201  FORMAT  I//*  VALIO  COOES  ARC**/ 

00021000 

211 

• • *01 T SOM  HU,  XT*  T SHOD  CO,,  MX  ALL  HOOV/I 

00021100 

212 

CO  TO  999 

00021200 

219 

999  RETURN 

00021900 

214 

•NO 

00021400 

219 

SUOROUTINC  RANCC  IRR.LL I 

00021900 

21* 

COMMON  NCR 

00021*00 

217 

NOR  • 10 

00021700 

21* 

A*  • 0 

00021*00 

219 

LL  4 292 

00021900 

220 

return 

00022000 

221 

ENO 

00022100 

XI  *7  — ** 
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0B/I4/75  INPUT  LISTING  -OECOOE- 


LISTING  - SUBROUTINE  DECODE 

FORTRAN  MOOULE 

CMO  NO 

•66*  CONTENTS 

•••• 

1 

C 

OECOOE  SUBROUTINE  FOR  TPE  •NMAT  IF*  22NAV7S 

00000100 

2 

SUBAOuT  1NE  OECOOE  (I.N.RESP.IN.IN2) 

00000200 

S 

IMPLICIT  INTEGER*;  151 

00000300 

4 

INTEGER**  5I.414.533.434 

00000400 

5 

REAL**  45.411.412.413.414.41i.525.43l.432 

00000500 

6 

REAl*4  42A.43A.43i 

00000600 

7 

c 

00000700 

• 

COMMON  /A/  41U44I.42A(144I»43AU44}.44(146|. 4511441.4411441 

00000500 

6 

COMMON  / 6/  4711441. 4a(144l.44(144).410ll44). 4111144). 4121  1441 

00000400 

10 

COMMON  /A/  4131 144) .41411441.4151144), 416(1441.4171 144). 4151144) 

00001000 

11 

COMMON  /A/  414(144). 4201 144) .421 ( 144) . 4221144). 423(144). 4241144) 

00001100 

12 

COMMON  /A/  425(144), 424(144). 427(144), 424(144). 424(144). 430(144) 

00001200 

1) 

COMMON  /A/  431(1 44), 4 32 (144 1.43311 44), 434 (|44 1.4351  144 ) * 4361  1 44 1 

00001300 

14 

COMMON  /A/  424  ( 144 ) , 4341 144) 

00001400 

15 

INTEGERS  NOM  (5)  /5*0/»  COOE.  TYPE  (34).  OEC.  INT.  ALPHA 

00001300 

16 

OATA  TYPE  /3**A*.  7**|*,  4**F*,  *|*.  *A*.  15**I*,*F*.  4**A*/ 

00001600 

17 

OATA  ALPHA  /*A*/,  INT  /•!*/.  OEC  /*F*/ 

00001700 

li 

REAL'S  ALPHA 1 « ALPHA2 

00001500 

14 

INTEGtR**  ANS,  A4  (2).0UIT/*0UIT*/ #OONE/ * DONE* / »HEL  P/ ‘HELP* / »ShON/ 0000 1600 

20 

••SHON*/ 

00002000 

21 

INTEGER*;  IN  (5I.IN2I5I.F  (5.34I.  COP  (51.  CTLG  (5).  CRS  (5) 

00002100 

22 

INTEGER*2  CONYl  (5).  LEN1  (51.  CAP1  (51.  4CAP1  (5),  DM01  (5) 

00002200 

2) 

INTEGER*;  40MD1  151.  OFST  (51.  PERIL  (5),  NAOIS  (5).  NCSHO  15) 

00002300 

24 

INTEGER*;  SET4  (5).  4RLG  (3).  JNO  (5).  C0NV2  (5).  LEN2  15) 

00002400 

25 

INTEGER*;  CRP2  (5).  4CAP2  (5),  0M02  (5).  40M02  (5),  CHMR2  13) 

00002300 

26 

INTEGER*;  C0NY3  (3),  LEN3  (5).  CAP3  151,  4CAP3  (4).  0M03  (5) 

00002600 

27 

INTEGER*;  40M03  (3),  CHVR3  (5).  PA04  (SI.  APRIL  (31.  PR  TV  (51 

00002700 

24 

INT£GER*2  CTVPE  (5).  PNEC  (5),  SCH  (5).  BLANK  /•  •/ 

00002500 

24 

INTEGER*;  RESP.  SUE  (36),  A2  (4),  NA2  (41 

00002400 

30 

OATA  SUE  /4,  10.  16,  3.  4,  2*3.  2*5,  2.  4*5.  2*4.  3.  4. 

00003000 

31 

• 2*3,  2*5,  2*3.  4,  2*3,  2*5.  3.  4.  5.  2*2.  2*42 

00003100 

32 

EQUIVALENCE  ( A2 « ALPHAl ) , ( 44, ALPHA  1 ) . (NA2.ALPHA2) 

00003200 

33 

EQUIVALENCE  (COP.  Ell. 11),  (CKO,  Ell, 2)1,  (CRS.  EII.3II 

00003300 

34 

EQUIVALENCE  (CONYl.  Ell, 41),  (LEN1.  F(I.SI).  (CAPI.  Ell. 4)) 

00003400 

35 

EQUIVALENCE  I4CAP1.  Ell, 7)1,  (OMOI.  1(1,411.  (40M01.  Ell, 61) 

00003300 

36 

EQUIVALENCE  (OEST.  Ell.lOII.  (PERIL,  F(l.UI).  (NAOIS.  FI1.121) 

00003600 

37 

EQUIVALENCE  (NOSHO,  Ell, 131).  ( SETi,  FI1.14I).  14RLG.  Ell, 15)1 

00003700 

30 

EQUIVALENCE  UNO.  E(l,16|),  (CONY  2.  Ell, 17)1,  (LEN2  • Ell.lil) 

00003400 

36 

EQUIVALENCE  ICAP2,  E(l,16|l.  (4CAP2.  E « 1.20 1 1 • (0MO2.  Ell, 211) 

00003400 

40 

EQUIVALENCE  (B0M02,  Ell, 221).  (CMMR2 * EI1.23II.  (C0NV3.  Ell, 24)1 

00004000 

41 

EQUIVALENCE  (LEN3,  Ell, 2511.  (CAP3,  E(1.26)l.  (4CAP3.  Ell, 27)1 

00004100 

42 

EQUIVALENCE  (0M03,  5(1.251).  (50M03.  Ell, 241),  ICHMR3,  Ed, 30)) 

00004200 

43 

EQUIVALENCE  (PA05,  El|,31)l.  IAEAIl.  E ( 1 . 32  I I • IPRTY,  El  1.331 ) 

00004300 

44 

EQUIVALENCE  ICTYPE.  Ell, 3411.  (PNEC.  Ell,35l).  (SCH.  E(1.34)l 

00004400 

45 

OATA  C0P/*C*.*0*.*P*.*  *,*  */.CTLG/*C*.*T*,*L*.*G*,*  •/ 

00004300 

46 

OATA  CRS/*C *.*••»' S* , • *,*  */,C0NVl/*Ca.*0* . *N* . • V* . • 1 • / 

00004600 

47 

OATA  LENl/*L*,*E*,*N*,*l*,*  */.CAPl/*C*.'A* »*P*,*l*»*  •/ 

00004700 

46 

OATA  4CAP1/ *4* ,*C*,*A*»*P*»* 1* /.OMOI/ *0* »*M*,*0*»*1*»*  */ 

00004400 

44 

OATA  40M01/*4*,*0*.*M*.«0*,*1*/,OEST/*0*.*E*.*S(.*T*.*  •/ 

00004400 

50 

OATA  peail/*p*.*e*.*a*.*i*.*l*/,naois/*n*.«a*.*o*.* 1 *,*$•/ 

00005000 

51 

OATA  NOSHO/ *N*,*0*»*S*,*H*, *0* / , SET4/*S* ,*E*,*T*.*4*,*  •/ 

00003100 

52 

OATA  SCH/*S*,*C*.*H*,*  *,*  */.4RLG/*i*  »*R*,*L*,*G‘»*  •/ 

00003200 

53 

OATA  JNO/ • J* ,,N*»*0*»*  *,*  */.C0NV2/*C*,*0*.*N*.*V*,*2*/ 

00005300 

54 

OATA  LEN2/*L'.'E*.*N*,*2*,*  */,CAP2/*C* ,*A* ,*P* ,*2* .*  •/ 

00005400 

55 

OATA  4CAP2/*i«,*C*.*A«,*P*.*2*/,ON02/*0*,*N*.*0*.,2*.*  •/ 

00003500 

56 

OATA  B0M02/*4*.*0* .*M*,«0*. *2*/ ,CHNK2/*C*.*H*. *M«.*R«.* 2*/ 

00003600 

57 

OATA  CONV3/*C*,*0*«*N*,*V*,*3*/,LEN3/*L*,*E*.*N(,*3*,*  •/ 

00003 TOO 

si 

OATA  CAP3/*C*,*A*,*P*,*3*,*  • /.4CAP3/ *5* , *C * . *A* , *P* • • 3* / 

00005500 

56 

OATA  0M03/ * 0*,*M*,*0*»*3*,*  */ .40N03/ *4* • *0* • *M* • *0* • • 3*/ 

00005400 

40 

OATA  CHMR  3/ *C  * • *H* ,*N* » *R* , • J* / , PAOi/ *P*,*A*,*0*.*8*,*  •/ 

00006000 

41 

OATA  AEA|L/*A*,*E*,*A*.*|*.*L*/,PRTY/*P*.*R*,*T*.*V«.«  •/ 

00006100 

42 

OATA  CTVPE/«C*.*T*.<V*,*P*.*E*/.PNEC/*P*.*N*.*E*.*C*.*  •/ 

00006200 

43 

RESP  - 0 

00006300 

44 

ISAVE  - I 

00006400 

65 

NEMEL  • 1 

00004300 

66 

IE  ||  .EQ.  6666)  1 • 0 

00004600 

47 

c 

IE  | HAS  VALUE  ALREADY  RNON  COOE-  SKIP 

00004700 

6i 

IE  (|  .GT.  0)  GO  TO  100 

00006400 

46 

c 

OONT  RNON  IE  EIELO  OR  MSG-  SEE  IE  MSG 

00006400 

70 

NEMEL  • 0 

00007000 

71 

CALL  MSG  (IN, COOE) 

00007100 

72 

IE  (COOE  .OE.  45)  GO  TO  403 

00007200 

73 

c 

HERE  IE  MSG-  SEE  IE  STAT 

00007300 

74 

IE  (COOE  .EQ.  41  CO  TO  400 

00007400 

75 

c 

NOT  STAT-  RETURN  FROM  SUM  MITH  MSG  COOE 

00007300 

76 

RESP  ■ COOE 

00007600 

77 

GO  TO  444 

00007700 

7« 

c 

••••  STAT  ••••  - LORO  IN2  INTO  IN 

00007400 

76 

600  00  402  J • 1.3 

00007400 

•0 

602  INI J)  • IN2I J ) 

00004000 

• 1 

ISAVE  • 4644 

00004100 

•2 

c 

SEARCH  OUT  EIELO  NUMBER 

00004200 

•3 

403  00  410  J • 1.36 

00004300 

•4 

00  411  R • 1.3 

00004400 

•5 

IE  (IN  IKI  .NE.  E IR.JI)  60  TO  410 

00004300 

•6 

411  CONTINUE 

00004600 

•7 

1 • J 

00004700 

•• 

IE  (ISAVE  .EQ.  44441  GO  TO  200 

00004400 

•6 

GO  TO  430 

00004400 

60 

410  CONTINUE 

00004000 

6| 

RESP  • 66 

00004100 

62 

GO  TO  466 

00004200 

63 

c 

EIELO  VAL 10-  TEST  IE  OATA  IN  SECONO  MORO 

00004300 

64 

450  00  660  j • 1.3 

00004400 

65 

IE  .ME.  5LANR)  GO  TO  470 

00004300 

66 

460  CONTINUE 

00006600 

67 

c 

HERE  IE  4LANR  EIELO-  GO  ANO  RE AO  INPUT  OATA 

00004700 

6i 

GO  TO  100 

00004400 

66 

c 

MERE  IE  SECONO  OATA  EIELO-  BLANK  DELIMIT 

00004400 

100 

474  R • 0 

00010000 

101 

00  4i0  J • 1.3 

00010100 

102 

MUM  (J!  • 4L AMR 

00010200 

103 

IE  IIN2IJ)  .EQ.  iLANR)  GO  TO  4Q0 

04010300 

104 

R • R * 1 

00010400 

105 

NUN  IRI  • IN2  IJI 

00010300 

104 

440  CONTINUE 

00010600 

107 

GO  TO  643 

00010700 

10i 

c 

••••  PROMPT  OATA  ENTRY  •••• 

00010400 

106 

100  MRITE  16.1011  IE  (J.II.J  • 1.51.  TYPE  II).  SUE  III 

00010400 
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IN*UT  UStlNC 


101  KH»  «•  ♦»?<«  a.tOli  II.  ••••Oil  II.  •»•  I 0001 1000 

10  IT¥M  III  .00.  IIOMII  00  TO  110  0001 1100 

moo  is.ioii  hum.  mi 

lot  OOOMT  IIOOII  000 1 1100 

009  con  convot  inun,*ns.coo<  •ofcuu  00011*00 

10  ICOOf  .<0.101  CO  TO  109  00011900 

10  ICOOf  .10.  01  DICOOL  • *NS  00011*00 

(O  to  Ilf  0001 1 TOO 

109  CU.L  use  mu*.  COOCI  00?11!?? 

10  ICOOf  .IT.  901  SO  TO  109  00011900 

C MOM  10  BSC  010  NOT  MCOCNIM  TfIT  ICOOf-991.  HINT  (1*01  00011000 

10  INtNOl  .CT.  01  CO  TO  110*  OOOIIIOO 

00  HOT  J • 1.9  OOOIIIOO 

hot  m iii  • nun  i j i oooiuoo 

€0  TO  909  00012400 

110*  Ml  Tf  It. 10*1  NUN  00011900 

10*  FONNtT  III.  9*1.  < •INVM.IO-  MTIT'/I  00011*00 

00  TO  |00  C0012T00 

too  ois*  • cooe  ooonooo 

If  ICOOf  .to.  *1  CO  TO  900  00011900 

OO  TO  499  0001 J 000 

110  MAO  (9.1111  ALPHA  l o ALPHA?  OOOIIIOO 

111  FORMAT  I2A0I  00011200 

MSP  ■ o OOOIIIOO 

IF  (A*  (II  *F0.  QUIT)  MSP  • 1 00011400 

IF  ( A4  (II  .CO.  OONf I RCSP  • 2 OOOIIIOO 

IF  ( A4  111  .CO.  HILPI  RCSP  • I 00011400 

IF  IA4  III  .CO.  SMOM  RCSP  - 9 00011  TOO 

IF  (RCSP  .Ml.  01  CO  TO  444  0001 1000 

IF  ISI2C  III  .CO.  41  CO  TO  112  00011400 

IF  ISI2C  III  .CO.  21  CO  TO  111  00014000 

IF  (Size  III  .CO.  101  CO  TO  114  00014100 

IF  (Size  III  .CO.  141  MRITC  I4.III1I  ALPHA l » ALPHA?  00014200 

1111  FORMAT  I1K.2A0I  00014100 

CO  TO  121  00014400 

112  MRITC  14.1191  A4  111  00014900 

119  FORMAT  I1I.A4I  00014400 

CO  TO  121  000I4T00 

111  MRITC  14.1141  A 2 III  00014000 

114  FORMAT  I IK. 42 1 00014400 

CO  TO  121  00019000 

114  MRITC  14.1171  AIPMA1.NA2  III  00019100 

117  FORMAT  111.  AR.  A2I  00019200 

CO  TO  121  00019100 

110  IF  ITVPC  III  .CO.  OCCI  CO  TO  1I1R  00019400 

C MfRC  IF  INTCCCR  00019900 

ITCST  - 10  44  SIM  m 00019400 

IF  IANS  .CC.  ITCST I CO  TO  1114  00019700 

IF  IANS  .CT.  127401  CO  TO  1119  00019000 

MRITC  14.1191  AMI  00019400 

CO  TO  121  00014000 

1119  MRITC  14.11201  AMS  00014100 

1120  FORMAT  I II. 19. • TOO  LARCC-  RCTRT»/I  00014200 

CO  TO  100  00014100 

1110  MRITC  (4.1201  DCCMAL  00014400 

119  FORMAT  III*  191  00014900 

120  FORMAT  IF4.1I  00014400 

121  CONTIMue  00014700 

c 4444  MRITC  TO  CRS  4444  00014000 

IF  II  .CT.  101  CO  TO  710  00014400 

CO  TO  I1.2.1.4.9.4.7.0.9.10I.I  00017000 

1 01 INI  • A4I1I  00017100 

CO  TO  944  00017200 

2 02AINI  • ALPMA1  00017100 

020INI  • NA2  111  00017400 

CO  TO  944  00017900 

1 no  in  i • alpha  i 00017400 

010INI  • ALPHA2  00017700 

CO  TO  944  00017000 

4 04  INI  • ANS  00017400 

CO  TO  944  00010000 

9 09  INI  • ONS  OOOIO 100 

CO  TO  444  00010200 

4 04  INI  • ONS  00010100 

CO  TO  944  00010400 

7 07INI  • ONS  00010900 

00  TO  944  00010400 

0 00  INI  • ONS  00010700 

CO  TO  444  00010000 

9 OtINI  • ONS  00010900 

CO  TO  944  00019000 

10  OIOINI  • ONS  00019100 

SO  TO  994  00019200 

710  IP  II  .Cl.  201  CO  TO  720  00019100 

11  • I - 10  00019400 

CO  TO  Ill.l2.ll.l4.l9.l4.l7.l0.l9.20l.il  00019900 

11  Oil  INI  • DCCMAL  00019400 

CO  TO  499  00019700 

12  012INI  • OOCMAl  00019000 

CO  TO  999  00014900 

IS  OISINI  • OOCMAL  00020000 

CO  TO  994  00020100 

14  0I4INI  • DCCMAL  00020200 

CO  TO  944  00020100 

19  019  INI  • ONS  00020400 

CO  TO  499  00020900 

10  OIOINI  •04111  00020400 

CO  TO  999  00020700 

17  017  (HI  • ONS  00020000 

00  TO  999  00020900 

10  OIOINI  • ANS  00021000 

CO  TO  999  00021100 

19  0I9INI  • ONS  00021200 

CO  TO  994  0002 1 MO 

20  020INI  • ANS  00021400 

00  70  999  00021900 

720  II  • I - 20  00021400 

CO  TO  <2I.22.21.24.29.24.27.20.29.BO.1I.S2.S1.14.19.S4I.II  00021709 

21  021 INI  • ONS  00021000 

CO  70  999  00021900 

22  022INI  • ONS  00022000 

00  TO  999  . 00022100 
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INPUT  LISTING 


9291*1  • MS 
GO  TO  TW 
•24  INI  • 4NS 
GO  TO  W 
•29INI  • ANS 
GO  TO  ••• 

•2AIN)  • ANS 
GO  TO  444 
•2TINI  • ANS 
GO  TO  444 
•20INI  • ANS 
GO  TO  444 
•24INI  • ANS 
GO  TO  444 
•90INI  • ANS 
GO  TO  444 
•SI INI  • ANS 
GO  TO  444 
•S2  INI  • OCCMAL 
GO  TO  444 
•SSINI  • ANS 
GO  TO  444 
•SAINI  • A2III 
GO  TO  444 
•S9INI  • AAIII 
GO  TO  444 
•SAINI  • AAIII 
GO  TO  444 

• STAT  ••••  SMON  ISTAT  (GOAT IONS  - MfM  IP  HAVC  POUNO  PICLO 
IP  II  .GT.  |OI  GO  TO  210 

GO  TO  I 90lt902tM9t904t909t  904t907t90C.904t9IOItl 

AAIII  • A1INI 

GO  TO  AOA 

ALPHA | • A2AINI 

NA2III  • 920  INI 

GO  TO  AIO 

ALPHA l • ASAINI 

ALPHA 2 • •MINI 

GO  TO  AIA 

ANS  • (A  INI 

GO  TO  AOO 

OCCNAL  • MINI 

GO  TO  AOI 

ANS  • MINI 

GO  TO  AOO 

ANS  • MINI 

GO  TO  AOO 

ANS  • MINI 

GO  TO  AOO 

ANS  • MINI 

GO  TO  AOO 

ANS  • GIOINI 

GO  TO  AOO 

IP  II  .GT.  201  00  TO  220 
II  • I - 10 

GO  TO  ISII»SI2«SIS*SIA»l!9»S!4«f lT«S!0«SI4tS20l til 

OCCNAL  • MUNI 

GO  TO  AOI 

OCCNAL  • 912INI 

GO  TO  AOI 

OCCNAL  • 91SINI 

GO  TO  AOI 

OCCNAL  • 9IAINI 

GO  TO  AOI 

ANS  • 9I9INI 

GO  TO  AOO 

AAIII  • •MINI 

GO  TO  AOA 

ANS  • GI7INI 

GO  TO  AOO 

OCCNAL  • GIOINI 

GO  TO  AOI 

ANS  • •I4INI 

GO  TO  AOO 

ANS  • A20INI 

GO  TO  AOO 

II  • I - 20 

GO  TO  l92lt922t929t924.929t924t92Tt92«t924t990.99lt992t999. 

•tSSAItll 
ANS  • G2IINI 
GO  TO  AOO 
ANS  • G22INI 
GO  TO  AOO 
ANS  • G2SINI 
GO  TO  AOO 
ANS  • G2AINI 
GO  TO  AOO 
OICNAL  • •29INI 
GO  TO  AOI 
ANS  • G2AINI 
GO  TO  AOO 
ANS  • G2TINI 
CO  TO  AOO 
ANS  • G2GINI 
GO  TO  AOO 
ANS  • G24INI 
GO  TO  AOO 
ANS  • • SO INI 
GO  TO  AOO 
OCCNAL  • Mllll 
GO  TO  AOI 
OCCNAL  • M2INI 
GO  TO  AOI 
A2III  • Gif INI 
GO  TO  A02 
A2III  • • SAINI 
GO  TO  AOS 
AAIII  • GS9INI 
CO  TO  AOA 
Mill  • •SAIN) 

GO  TO  AOA 

■■IT!  I A*  9001  IPlitlltS  • I til. ANS 


00022200 
00022200 
00022400 
00022900 
00422400 
00022 TOO 
00022000 
00022400 
00029004 
0002 SI 00 
0002S204 
0002 S SOT 
00029400 
0002 9900 
00029000 
0002 STOO 
00029400 
00029400 
0002 AOOO 
00024  tOO 
00024200 
000 2 A 900 
00024400 
00024900 
00024400 
00024700 
00024000 
00024400 
00029000 
00029100 
00029200 
00029900 
0002 9400 
00029900 
00029400 
00029700 
00029000 


00024100 
00024200 
00024900 
00024400 
00024900 
00024400 
00024700 
00024000 
00024400 
00027000 
00027100 
00027200 
00027900 
00027400 
00027900 
00027400 
00027700 
00027000 
00027400 
00020000 
00020 100 
00024200 
00020900 


00020400 

00020700 

00020000 

0002G400 

00024000 

00024100 

00024200 

00024900 

00024400 

00024900 

00024400 

00024700 

00024000 

994,99900024400 

00090000 

00090100 

00090200 

000M900 

00090400 
00090900 
OOOIOIOO 
00090700 
00090000 
00090400 
00091000 
00091100 
00091200 
00091900 
000 9 1 AOO 
00091900 
00091400 
00091700 
00091000 
00091400 
00092000 
00092100 
00092200 
00092900 
00092400 
00092900 
00092400 
00092700 
00092000 
00092400 
00099000 
00099100 
00C99200 
00099900 
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LISTING  - SUBROUTINE  MSG 


TABLE  VI-10 


F 


’ 

; l 

> 


vtuumnn 
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Li 


I. 


* 


limit  U ST 106 


i 


LISTING  - SIBWUTINC  SHOW 

I IMST.OAMSl.SOURCSCII 


1 

2 
I 

4 

* 

4 

f 

• 

I 

I# 

U 

12 

II 

l« 

II 

14 

I? 

II 

II 

21 

21 

22 

21 

24 

21 

24 

2? 

24 

21 

90 

11 

12 
SI 

14 

If 


4| 

42 

41 


44 

44 

47 


50 

11 

12 

51 
S4 

SI 


ST 

SI 

SI 

40 

41 

42 
41 


70 

71 

72 
71 
74 
74 
74 
77 
70 


01 

02 

01 


04 

04 

07 


11 

12 


COOT1NTS 


C OISHAV  CUOICOT  C0U4 SC  (TMMOOI,  N IS  COS  NO  III  P!l«  l 9 JUNTO 
suooouTim  smoo  mi 
M01ICIT  107000042  III 
107000044  41. 014, 099. 494 
004144  44. Ill, 012. Oil. 414 
004140  424.014.010 

/4/  III  1441.0241 1441.0141 1441.041 1441 .Oil  1441.4411441 
i /A/  07 1 144 1 . 40 1 144 1 • 00 1 144 1 .010 1 1|4 1 .Oil 1 144 1 .412 1 1441 
/4/  4111 1441 .414II44I.41III44I.4I4I 1441 .41711441 .4101 1441 


00000100 

00000200 

00000100 


410. 021. 411 .442 


ooooosoo 

00000400 

00000700 

00000400 

00000400 


/ 4/  4111 144 I .4201 144 1.42 I I 1441 .022 I 144) .4211 1441.02411441  00001000 
/A/  4291 1441 .4241 1441.42711441. 4201 1441 .4211 1441 .4101 1441  00001100 
tU  4IHI44I.4I2II44|.4I|(|44».4I4I144I.4ISI  1441.4141 144)  00001200 


/!/  420  11441.010(1441 
I07M0042  10  III  /I40 /.  HOIK  /•  •/.  COM 
I • O 

is  ii  .to.  oi  oo  to  m 

14  II  .47.  1441  00  ?0  HO 

1 00171  14.21 

2 400047  (/•  SMOO*  107ft  411  00  4||iO  0401 • ) 
MAO  H.S)  10 

I 4004*4 T 1141 1 

C41L  NSC  110.  COM) 

00  TO  IIH.III.I0.I0.I0.I0.I0.I00.10I.  COOC 
C OfM  14  007  ICCOOOI2CO-71S7  14  0140014  M7U00I 
14  110  III  .CO.  014001  00  70  100 
C 007  OlCOOOlIfO  OSO  00  01400- 7CS7  14  4IC10  MA4K 


C411  Of COOC  I OO.O.COOC. 101 
14  (COOC  .10.  0)  00  TO  III 

10  MO 1 71  14.111  10 

11  400047  I I0.S4I • ' ♦ I 07 41 10-  01707*/) 


COOVI  44  C44|  47  0C44I  Oil  OOtC  MOS 


If.  217.  41.  •#  STU*.  IS) 
C0U0S1  11007m  OTS*.  4S.I. 


C ••••SMOO  411  •••• 

too  i • o 

C CAIC  STU  0010-  04  Cl 

OOOl  • 0 

14  (4411)  .11.  0)  00  70  211 
IC44  • 4411)  - 4711) 

14  IIC44  .11.  01  00  70  211 
CO 70  • SO.  /44II) 

0001  • 4IIIII/CO70  • IC44 
211  COOT | OUC 
C ——  40I0T  IT 

M0I7C  (4.40011  41(11.414(1) .41011) 

00171  14.4002)  44(1). 41 711) .424! I ) .0041 
M0I71  (4.4009  ) 491 1 ) .410(1 ) .4211 1 ) .0191 1 ) 

MO 1 71  (4.40041  4941 11.9141 1 1 .424(1 1 .4201 1 1 .4191 1 1 
••  44(1) .4111 1 1 .424(1) 

MO  1 71  14.4009)  471 1 ).420( I ) .4271 11.4291 1 ) 

MOITl  (4.4004  ) 40(1). 42 III) .4201 1 ) .4901 1 ) 

MOITt  14.4007)  49111 ) .4921 1 ) .494(1 ) .41911 ).0III).422(I ) .4291 1 ) 

••  410(11 

04714  - 4111 1 ) 4 100. 

04710  • 412(1)  4 100. 

0AT1C  • 419(1)  4 100. 

MOITl  (4.4000)  04714.  04710.  047IC 

4001  400047  ( // 11.44.  91.  240.  41.  •—  SCMlOUll  0474—  47  47*1 

42  COS  04CKL06*) 

4002  400M4T  (•  *,  791.  *4M0U4l  CfiNVlNlOOS 

4009  400M4T  (•  SC  Ml  200  CATAIJ6  00  01 C 

• 247.1.  41.  *4  MRS*.  19) 

4004  400047  (•  *.  2 144.  II).  40.  42.  II.  44.  41.  *COUOS(  C444CI77*. 

• 917) 

4009  400047  (•  *,  791.  *9U410S  C444CI77*.  917.  91.  *47*1  MR*.  14) 
4004  400047  I*  4 401  44411  T74|  4077  400041  010400* • 21.  917. 

• 91.  *47*2  MR* . |4) 

4007  400047  I*  *,  49.1.  44.1*  *«*.  91. U .91. 42 .91.  *4U4I0S  010400* • 

• 21.  917.  91.  *044SIT*.  19) 

4001  400047  (/*  04TKS*  44ll*.49.l.*«|  H40ISS49.I.  *1)  OOSMOM*  .49. 1. 

••///) 

60  70  m 
lie  MOITt  (4. Ill  I 

II  400047  I/II.I9.*  C0U4 SC  MOT  10  400CISS-  SMOO  SRIH10*/I 
HI  RITUOO 
100 

MOCK  0474 

1041 ICt 7 I0TI61I42  (II 

IMTI6C044  4I.SI4.499.S94 

014144  49. 41 1.112. 419. 414. 111. 429. 191. 492 

014144  424.494.490 

/!/  Ill  144) .421(144) .!90( 1441.441 1441.491 1441 .441 1441 
/A/  471 144) .40(1441 .III  144) .1101 1441 .1111 1441. 4121 1441 
COONOM  /A/  41 9( 1441 .4141 144) .419 I 144 I .III ( 144) .4171 1441 ,4111 1441 
/A/  4111 144I.I2K 1441.421 I 1441.4221 1441 .4291 1441 ,4241 144) 
/A/  4291 1441 . 424 ( 144 1.027 ( 1441 .4211 1441.4211 1441.4901 1441 
COOOOO  /A/  4911 1441 .4921 1441.0991 1441 .0941 1441.4991 144) .4941 1441 
COMMON  /A/  420  ( 1441.0901 1441 

0A7A  41 .414. 499. 494/9744*  */.4|A.49A. 990/4924*  */.420/*  •/ 

OATA  49. All. 412.419.014. 410.429, 491. 492  / 1144*0./ 

0A7A  44, 44.47, 40, 41.410.419, 417.411. 420, 421. 422. 429.424, 424. 

1 427,  420,  421,  490,  494  /2000  • 0/,  499  /•  •/ 


00001900 
00001400 
00001900 
00001400 
00001700 
00001000 
0000 1900 
00002000 
00002100 
00002200 
00002900 
00002400 
00002900 
00002400 
00002700 
00002000 
00002400 
00009000 
00009100 
00009200 
00009900 
00009400 
00009900 
00009400 
00009700 
00009000 
00009100 
00004000 
00004100 
00004200 
00004900 


00004900 

00004400 

00004700 


00004100 
00009000 
00009100 
00009200 
00009900 
00009400 
00009900 
00009400 
47*00009700 
00009000 
00009100 
00004000 
00004100 
00004200 
0000*900 
00004400 
00004900 
00004400 
00004700 
00004000 
100004100 
00007000 
00007100 
00007200 
00007900 
00007400 
00007900 
00007400 
00007700 
00007000 
00007100 


00000100 

00000200 

00000900 


00001100 

00001200 
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71=20. 


EXECUTIVE  TPF 


TAEG  REPORT  NO.  36 
LISTING  - EXECUTIVE  TPF 


TPF  t Xt C 


GTYPE  OFF 

-TESTIT  GIF  GINDLX  EQ  0 CGOTO  -NONE 
GIF  tl  EQ  QUIT  CGOTO  -QUIT 
G INDEX  1 = 1 

GIF  G 1 EO  MASTER  GGOTO  -GOT  IT 
G I NOE  XI  = 2 

GIF  G 1 LQ  SCRATCH  CGOTO  -GOT  I T 
Gir.DEXl  = 3 

GIF  G1  EQ  VERIFY  GGOTO  -GOTIT 
G INUEX1  r 4 

GIF  G 1 EQ  TEST  GGOTO  -TEST 
GIF  G 1 EQ  QU IT  GEXIT 

GIF  G I EQ  CoPY  GPP.INT  TPF  MODEL-  CJPV  INVALID-  ENTER.  QUIT  TG  EXIT 
GIF  Cl  EQ  MOD  GPRINT  TPF  MODEL-  MJD  INVALID-  f NT£  R QUIT  TO  EXIT 
-NONE  GPRINT  REPLY  MASTER,  SCRATO,  uR  TEST  (INPuT  DATA j 
GREAD  ARGS 
GGOTO  -TEST  IT 

-TEST  GPP.INT  COMHINf  TEST  FILE  WITH  MASTER  OR  SCRATCH'’  (Y  OR  NJ 
CINDEX2  = 1 
GREAO  ARGS 

GIF  G1  NE  Y GGOTO  -GOTIT 
GINDEX2  = 10 

GPRINT  REPLY  MASTER  OP  SCRATCH 

GREAD  ARGS 

CGOTO  -TEST1T 

-GOTIT  GPR  I NT 

GPRINT  INPUT  This  RUN: 

GIF  CINDEX1  LQ  1 GPRINT  MASTER 
GIF  G INDEX  1 EQ  2 GPRINT  SCRATCH 
GIF  GINOEX1  EQ  3 GPRINT  VERIFY 
GIF  CINDEX1  EQ  4 GPRINT  TEST 

GIF  GINDEX2  EQ  10  GPRINT  COMBINED  WITH  TEST 
GIF  G INDEX  LT  2 CGOTO  -NOSAVE 
GIF  G 2 NE  SAVE  CGOTO  -NOSAVE 
GINDEX3  = ID 

GPRINT  SAVE  OPTION  IN  EFFECT  THIS  RUN 

-NOSAVE  GPRINT  ENTER  CARRIAGE  RETURN  TO  CONTINUE 

GREAD  ARGS 

GIF  G1NDEX  EQ  0 GGOTO  -PARM 
GIF  G 1 EQ  QUIT  GGOTO  -QUIT 
-PARM  FIlEDEF  » CLEAR 
FILEDEF  PARM  DSN  TPF  PARM 
PARAM 

GIF  G INDEX0  Gt  2 GGOTO  -QUIT 
FILEDEF  « CLEAR 
FILEDEF  5 DSX  TPF  PARM 
FILEDEF  b DUM 
FILEDEF  8 DUM 

GIF  CINDEX1  EQ  1 FILEDEF  10  DSX  TP*  MASTER 

GIF  GINDEX1  LQ  2 FILEDEF  10  DSX  TPF  SCRATCH 

GIF  GINDEX1  EQ  3 FILEDEF  10  DSX  TPF  VFY 

GIF  GIN0EX1  EQ  4 FILEDEF  10  DSX  TST  DATA 

GIF  C INDEX 2 EQ  10  FILEDEF  10  DSX  TST  DATA  CONCAT 

GIF  GINDEX3  EQ  10  GGOTO  -SAVEOUT 

FILEDEF  9 DSX  0UT4  FILE  LR  81 

FILEDEF  11  DSX  OUTS  FILE  LR  81 

GGOTO  -MODEL 

-SAVEOUT  FILEDEF  9 DSX  UUT2  FILE  LR  81 
FILEDEF  11  DSX  OUT1  FILE  LR  81 
-MODEL  RUN  XEND  (BRIEF) 

FILEDEF  •••■  CLEAR 
SET  SPIE  ON 

GPRINT  LNO  TPF  EXECUTION 

GPRINT  ENTER:  CTRRUN  FOR  CENTER  SUMMARY;  CRSRUN  FOR  COURSE  OUTPUTS 
GEXIT 

-QUIT  FILEDEF  « CLEAR 
SET  SPIE  ON 

GPRINT  MODEL  NOT  RUN  AT  OPERATOR  REQUEST 
GEXIT 


TABLE  VI-13 
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LISTING  - PROGRAM  PARAM 

param:  PHOC  OPTIONS  MAIN)  ! 

/*  TPF  PARAMETER  Cahd  MOO  PROGRAM  yoFtB7b  */ 

OCL  (PCARD*OATA)  Cnup  («0)»  RED  CHAP  ( 1 0 > • LINE (8)  CHAR  (HO)  VARY  I NO » 
FIELDS  (24)  CHA«  (b)  INITIAL 

( 'Fa  IL' » 'NOSHO' * »UMU* ♦ • TRlhO' * 'CONV  . • LtN * ♦ 'CAP*  « ’SETs' ♦ 

•CDP' « 'SCH*  » 'PRINT* , t*KS' ♦ »Tk AC' » »P»t ' * 'PELS' ♦ 'END' * 'STaT* ♦ 

'CPS'  * 'SCHL' ♦ 'CTR*  « • Inrut ' * 'FYh»  « 'LYh' • ' AON* ) * 

LEN  (24)  FIAEU  H1N  ( H 1 0 ) INITIAL 
( (10)4* (10) 1*2* (3)4) « 

COL ( 24 ) FIXED  BIN  (8*0)  INITIAL  ( 1 b ♦ 2 1 * 2b . 31  * 3b *4 1 * 

4 b * Bb  « b 1 » bb  » 7 1 * 72*73*74*73*  1 6*  (7*76*  7y*H0»l*3*7*ll)  ♦ 
(K«LP*I*P1»P2)  FIXED  HlN  ( d « 0 ) ; 

DCL  FIELD6  CHAR  (b) * F I tLD4  CHAR  (4)  UEF  PCARO  POS  (52)5 
l)CL  COMND  EXTERNAL  ENTRY! 

DCL  IHESAPC  ENTRY  (FIXED  MIN  (Jl.O))! 

DCL  <Il*JJ>  FIXED  SIN  ( 1 S ♦ 0 ) * 

OPEN  FILE  (PARM)  record  UPDATE  * 

READ  FILE  (RArM)  INTO  (RCARD)  ! 

II  = b«  CALL  COMND  (II* J J ) 5 
INTPO: 

DISPLAY  ( • TPF  MODEL  - WANT  INSTRUCTIONS  (Y  OR  N)')  REPLY  (DATA)! 

IF  DATA  = 'N'  THEN  00  TO  PhehuN  ! 

HFLP:  DISPLAY  (•  •)! 

DISPLAY  CENTER:  FNAmE  XXXX  (SET  FNAME  TO  VALUE)')! 

DISPLAY  ('  FNAME  DEACT  (DEaCT  FNAME)')! 

DISPLAY  (•  SHOt*  (SHOw  RUN  CONDO! 

DISPLAY  (•  RUN  (R'Jn  MODEL)  •)! 


DISPLAY  CENTERS  FNAmE  XXXX  (SET  FNAME  TO  VALUE)')! 

DISPLAY  (•  FNAME  DEACT  (DEaCT  FNAME)')! 

DISPLAY  (•  SHOw  (SHOw  RUN  CONDO! 

DISPLAY  (•  RUN  (RUN  MODEL) •)! 

OISPLAY  (•  ')! 

0 1 SPLAY  ('FIELDS!  FYR  (NNNN)  LYR  (NNNN)  AOB 

AA)  SCH  ( A A AA ) ' ) ! 

DISPLAY  (•  FAIL  (NNNN)  NOSHO  (NNNN)  DMD 

NN)  CONV  (NNNN)')! 

DISPLAY  (•  LEN  (NNNN)  CAP  (NNNN)  SETB 

DISPLAY  C ')! 

DISPLAY  ('REPORTS:  CRS  (N)  SCHL  (N)  CTR  ( 

• ) ! 

prerun:  flag  = 2!  go  to  TubF_ir: 

COME_0ACK:  Flag  = 0!  DISPLAY  (•  '){ 

DISPLAY  CENTER  RUN*  QUIT*  OR  FIelD  TO  BE  CHANGED')! 
PARMS:  DISPLAY  (•  •)! 

DISPLAY  CENTER  REQUEST:*)  REPLY  (jATA)  ! 

IF  DATA  = 'RUN*  THEN  GO  TO  F ILE_I T ! 


FYR 

(NNNN) 

LYR 

(NNNN) 

AOB 

(NNNN) 

CDP 

( AA 

fail 

(NNNN) 

NOShO 

(NNNN) 

DMD 

(NNNN) 

TREND 

(NN 

LEN 

(NNNN) 

CAP 

(NNNN) 

SETB 

(NNNN) • ) 

• 

f 

CRS 

(N) 

SCHL 

(N) 

CTR 

(N) 

PRINT 

(N) 

TO  FLO ! 

TO  HtLP! 

TO  TUHE_IT 
TO  UUIT! 


IF  DATA  = 'RUN*  THEN  GO  TO  F ILE_I T ! 

IF  OATA  = 'FLAG'  THEN  GO  TO  FLO! 

IF  DATA  = 'HELP'  THEN  GO  TO  HtLP! 

IF  DATA  = 'SHOW  THEN  GO  TO  Tu8£_IT  i 

IF  DATA  = 'QUIT'  THEN  GO  TO  UUIT: 

PI  * INDEX  (DATA*'  •)  i 

P2  * Index  (substr  (data*po ) ♦ • •)  ! 

REQ  = SUBSTR  (DATA* 1 *Rl-l ) ! 

00  I * 1 TO  24  ! 

IF  REU  * FIELOS  (I)  THEN  GO  TO  GOT_IT  ! 
END! 

DISPLAY  ('FIELDNAME  NOT  REC0GwI2ED')  ! 

GO  TO  PARMS  ! 

GOT.IT:  IF  SUBSTR  ( DAT A « P I ♦ 1 * b ) = • UEACT 

• TABLE  VI-14 


Then  go  to  ueac  ! 
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LISTING  - PROGRAM  PARAM  (Continued) 


IF  SUdsTR  (DaTA*  1 .Pi-1  ) = ' SLH * THEN 

IF  PP  < b f Ht  N »eL  - ->i 

IF  P2-1  -=  LtN(I)  r HF  N GO  TO  t.KK<f  ; 

IF  I < = 1C>  THEN  GO  TO  H AG_ANu_VALU  S 
SUHSTP  (PCAPU.CUL ( i ) *Lt N ( I ) ) = budbTP 
GO  TO  H/1PH3  * 

TUhE.IT:  DISPLAY  (•  * ) 5 DISPLAY  I'PHE 

DO  K = ] TO  R i 

linf(o  = ••  ; 

END; 

l p = o ; 

DO  K ■=  1 Tu  7 ; 

IF  SUHSTp  (PCARD* 1 i +S*K , 1 ) -=  *0*  Tnt 

LINE  (LP/3  ♦ 1)  = LINK  (LP/3  ♦ 1)  II 


(UATA.P1.-1  ,LtN  ( I ) ) 


DISPLAY  ('PRESENT  PUN  CONDITIONS'); 


(LP/3 


rntN  no  ; 

I I FIELDS  (K) 


LP  = LP 


SUHST  * 

l ; 


(PC«pD*  13*S<»«*4)  I | 


END  : ton; 

DO  K = H To  10  ; 

IF  SUdSTP  ( PCAKU*  1 b*bOK  , n -.=  »o» 

LINF  <Lp/3  ♦ 1)  = LINE  (LP/3  ♦ 1) 
• = • II  sUhSTp  (kCaPD*  1 7 + S^K  • A) 
LP  = LP  ♦ 1 ; 

END  5 END? 

LP  = ( ( L P ♦ 3 ) / 3 ) j; 

LINF  (LP  / 3 ♦ 1)  = ' REPORTS : '? 

FLA(,1  = 0 J 

DO  * = 11 . 1H« 19**0  5 

IF  SUHSTH  ( PC  ApD « COL  <K)*1)  -='0' 

FLA01  = 10 ; 

LINE  ( l P/3  ♦ I)  = LINE  (LP/3  ♦ 1) 

end:  end; 

IF  FI.AG1  -=  10  THEN 

LINE  (LP/3  ♦ 1)  = LINE  (LP/3  ♦ 1) 

LP  = LP  ♦ 3: 

LINE  (LP/3  ♦ 1)  = 'INPUT  = ' II  S 
II  SUHSTP  (PCAPD*3.A)  II  • L 

I I ' AOH  = • I I SUHSTP  (PC 

K = (LP/3)  ♦ 1 ; 

DO  I = 1 TU  K ; 

DISPLAY  (LINE ( 1 ) ) ; 

END  ; 

IF  FLAG  = * THEN  GO  TO  CUMt_OACK; 
GO  TO  PARva  ; 

FLAG_AND_VALU : 

SU8STW  (PCARD«COL( l) »LEN(I) *1)  = 
•1»  II  SUHSTP  (DATA.P1 ♦ 1 *LEN ( I ) ) 
GO  TO  HARPS  ; 

UE AC ! IF  I > <10  THEN  GO  TO  E PR  1 ; 
SURSTR  ( PCAPD » CUL ( I ) • 1 ) = 'O'  ; 


THEN  DO  ; 

I I FIELDS (N ) 
ii'  • ; 


Then  DO; 


fields 


1 ) II  •**  NONE  ' ; 

I SUHSTP  (PCaPD.I.e)  II  ' FYP 

LYP  = • II  SUHSTP  ( PCAPD  *7*4) 
(^capu*ii,4)  ; 


TABLE  VI-14  (Continued) 
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1 LISTING  - PROGRAM  PARAM  (Continued) 

l*h 

L 

\ 

. 

. ) 

i go  to  parms  ; 

ERRi : display  (‘invalid  request*)  ; 

GO  , TO  PARMb  ; 

ERR?:  DISPLAY  (‘INVALID  DATA  F uR:VIaT  * ) i 
GO  TO  PARfcb  ; 

FLG:  DISPLAY  (‘FLAGS  - RKS  TkAL  PRE  PELS  ENu  STAT  YEAH  PRINT  I N I T • ) * 
GO  TO  PARK;>; 

GUI  T : II  = Hi  CALL  IhESAKC  (ID? 

FlLE_I I : FlELDb  = uATE  5 FIELD*  = SUdSTR  (F ltLDb* J*A) ? 

RESPITE  FILE  (PARM)  FROM  (PCmkO)  ? 

I CLOSE  FILF  (PARM)  ? 

<»  END  PARAM  ? 


t.s> 


--  - 
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DISPLAY  SUPPORT  PROGRAM 

The  objective  of  the  display  support  program  is  to  allow  the  user  to  effective- 
ly interface  with  the  large  amounts  of  data  that  the  TPF  model  may  produce. 

This  support  package  Is  general  purpose  in  nature,  and  is  useful  for  dlsplay- 
i ng  the  contents  of  other  data  sets  as  wel 1 . 

EXECUTIVE  DISP.  Executive  DISP  is  used  to  control  the  execution  of  program 
DISPLAY.  This  short  executive  accepts  a parameter  passed  from  the  user  or 
calling  executive  and  uses  this  parameter  to  define  the  data  set  to  be  dis- 
played. FORTRAN  data  set  7 is  used  as  the  output  data  set  and  Is  termed  CONO 
by  NCSS  convention  to  label  it  the  console  or  terminal  device.  This  output 
data  set  is  used  rather  than  the  conventional  data  set  6 so  that  FORTRAN  I/O 
error  messages  will  not  be  displayed.  SET  SPIE  ON  is  specified  in  this  execu- 
tive as  the  FORTRAN  I/O  error  checking  is  disabled  by  internal  subroutines,  and 
this  condition  must  be  reset.  This  executive  is  usually  called  by  executives 
CTRRUN,  CRSRUN,  CENTER,  or  COURSE.  These  executives  are  three-line  executives 
that  merely  pass  the  proper  file  name  to  the  DISP  exec.  CTRRUN  and  CRSRUN  are 
used  to  display  center  and  course  data  respectively  for  TPF  runs  where  the 
SAVE  option  is  not  specified,  while  CENTER  and  COURSE  are  used  to  display  those 
data  if  SAVE  was  specified. 

PROGRAM  DISPLAY.  Program  DISPLAY  is  a FORTRAN  program  used  to  display  the 
contents  of  TPF  output  data  sets.  The  program  ascertains  the  format  of  the 
output  data,  determines  page  size,  and  presents  these  data  along  with  options 
to  the  user.  A standard  TPF  output  data  set  is  in  the  form: 


CTL 

CHAR(l) 


Blank 

/ 

Blank 

1 


First  line  of  page 
Data  (variable  number  of  lines) 
Last  line  of  data 
Null  line 

First  line  of  next  page 


Program  DISPLAY  first  searches  the  first  column  of  each  record  for  a "/",  to 
determine  If  a TPF  data  set  is  to  be  displayed,  and  if  so,  to  ascertain  the 
size  of  each  page.  Next  the  program  skips  through  the  file  to  determine  the 
number  of  pages  in  the  file.  Finally,  if  the  file  contains  25  lines  per  page. 
It  is  assumed  to  be  a course  file,  and  the  CDP  options  are  enacted.  If  the 
file  is  not  a TPF  file,  the  program  defaults  to  ?0  lines  per  page. 

The  user  has  the  option  of  specifying  the  page  number  to  be  displayed,  or 
entering  a carriage  return  to  display  the  next  (or  first)  page.  The  user  may 
also  enter  LOOK,  followed  by  a blank  and  a page  number  to  display  only  the 
first  line  of  a page.  Finally,  if  the  file  is  a course  file,  the  user  may 
specify  the  CDP  number  of  the  course  to  be  displayed. 

Direct  access  I/O  is  used  by  this  program  in  locating  and  displaying  data  so 
as  to  allow  the  user  to  browse  back  and  forth  through  the  data.  All  terminal 
responses  are  read  in  the  "A"  format  as  in  program  TPFM&D1  to  allow  the  user 
to  Intermix  alpha  and  numeric  data  and  to  avoid  left  or  right  justification. 
Subroutine  CONVRT,  detailed  in  the  section  describing  TPFM0D1  is  used  to 
convert  these  Input  data  to  a machine  processable  form.  Subroutine  COMND,  also 
described  in  that  section  Is  used  to  clear  the  display  screen  prior  to  a page 
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LISTING  - DISPLAY  EXECUTIVES 


COURSE  EXEC 

(TYPE  OFF 
EXEC  DISP  OUT 2 
(EXIT 


CENTER  EXEC 


(TYPE  OFF 
EXEC  DISP  OUT  1 
(EXIT 


CRSRUN  EXEC 


(TYPE  OFF 
EXEC  DISP  OUT4 
(EXIT 


CTRRUN  EXEC 


(TYPE  OFF 
EXEC  DISP  OUT3 
(EXIT 


DISP  EXEC 


(TYPE  OFF 

FILEDEF  >«  CLEAR 

FILEDEF  3 DSK  (I  FILE 

FILEDEF  7 CONO 

DISPLAY 

SET  SPIE  ON 

FILEDEF  « CLEAR 

(EXIT 


TABLE  VI-15 


. 


( 
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04/14/79  INPUT  LISTING  -OISPLAV- 

LISTING  - PROGRAM  DISPLAY 

FONT MAN  NOOOLf  ILlST.NANSOtSOUNlSkOI 

CANO  NO  ••••  CONTINTS 


1 C TPP  SOP  PONT  - UPOATf  22NAVT9  OOOOOIOO 

2 C 01  SPLAT-  01  SPLAYS  OUTPUT  PILf  PON  I NOOCS  (AUTO  SfLfCT  OP  STO/NON-S TO 1 00000200 

S C STANOANO  PILf  CONTAINS  I IN  COL  I NT  STANT  OP  PACK*  / APTfN  LOST  LINK  00000)00 


A 

C 

1.  COUNSC  PILf  129  LINE  S/PAMI  SfLfCT  »V  PAM 

ON  COP. 

00000400 

9 

c 

2.  SCHOOL /Cf NT fN  PILf  - SfLfCT  47  PAM  NO. 

00000900 

A 

c 

)•  NON  STANOANO  PILf  - SfLfCT  4V  PAM  NOl  Of P AULT  TO  20  LlNf S/PAGf 

00000400 

? 

|NTfOfN*2  INI 91  * IN2I9I • COOf.  TEST  14*91* 

SI Zf*NSTA4T* NNN* ENOIT 

00000700 

• 

DATA  TfST/*0***U***l***T***0***0*.*N*.*f* 

#*L*.*0*.*0***N** 

00000400 

9 

1 *P*t*A***G*  **f • •*C***0***P#»*  */ 

00000900 

10 

INTf0CN*2  ALANN  /•  •/ 

00001000 

II 

MAL44  COP*  OONf • PACf • OUIT*  SfLfCT 

00001100 

12 

NfALPN  LlNf  (101 

00001200 

1) 

INTfGf 4*4  NUN 

00001)00 

u 

CONNON  MCA* NGN 

00001400 

19 

f ITfNNAL  NANGf 

00001900 

IN 

flTfNNAL  ALPHA 

00001400 

IT 

Of P INf  PILf  3 1 2900 *41 • f . J 3 > 

00001700 

IN 

OATA  SLASH/ •/•/.COP /'COP  •/ .OONf /«OONf •/. 

PAGE /• PAGE  */*OUl T/*OUl T* /00001400 

19 

CALL  CNNSfT  (2)2* 100.-1 * 1 *NANGf » 

00001900 

20 

CALL  fNNSf T 1 219* 100. -1  * 1 .ALPHA  1 

00002000 

21 

NCA  - 0 

00002100 

22 

NGN  ■ 0 

00002200 

2) 

NSTANT  • - | 

00002)00 

24 

LOOKPL  • 0 

00002400 

29 

NSET  • 2 

00002900 

2A 

* 

NNN  • 4 

00002400 

27 

CALL  CONNO  INNN.Jl) 

00002 TOO 

2N 

c 

LOAO  PAGE  SUE  TO  CALC  POSITION 

00002400 

29 

00  20  I • 1*  24 

00002900 

10 

Nf  AO  I )'  1 * I9.ENN.449I  CHCAN 

0000)000 

31 

19  PONNAT  I A1.40XI 

0000)100 

32 

IP  (CTLCAN  .EO.  SLASH!  GO  TO  30 

0000)200 

33 

20  CONTINUE 

0000)300 

34 

c 

Hf Nf  IP  NO  SLASH  IN  1 - INVALIO  PILf 

00003400 

39 

UNITE  17*29!  ' 

00009900 

34 

29  PONNAT  (•  NON  STANOANO  PILE  TVPf  - Of PAUL T 20  LlNfS  PfN  PAGE* I 

00003400 

37 

SIZE  • 20 

00009700 

)• 

NSET  • 0 

0000)400 

39 

CO  TO  24 

0000)900 

40 

c 

00004000 

41 

30  SIZE  • 1 ♦ 1 

00004100 

42 

UNITE  (7*39!  SIZE 

00004200 

41 

39  PONNAT  (•  STANOANO  PILE  - **!2**  LINES* 1 

00004)00 

44 

c 

OfTfNNINE  NUNAf N OP  PAGES  IN  PILf 

00004400 

49 

24  00  10024  1 • 1*  100 

00004)00 

44 

N • 1 • SIZE  ♦ 1 

00004400 

47 

Nf AO  l)*N* 19*ENN*999I  CTLCAN 

1 

00004700 

44 

IP  (NGN!  10024*  10024.  10027 

00004400 

49 

10024  CONTINUK 

00004900 

90 

10027  NGN  • 0 

00009000 

91 

UNITE  17*10024!  1 

00009100 

92 

10024  PONNAT  lllv  |),  • PACKS  IN  P|Lf*l 

00009200 

3) 

IP  (SIZE  .Nf.  29!  GO  TO  27 

00009)00 

94 

IP  II  .EG.  11  GO  TO  27 

00009400 

99 

UNITE  IT*  40! 

00009900 

94 

40  PONNAT  I/*  ♦COUNSI  PILf  - SELECT  07  ••COP**  04  **PAM**  *1 

00009400 

97 

GO  TO  241 

00009700 

94 

27  UNITE  17*34! 

00009400 

99 

34  PONNAT  I /•  ♦ENTf N PAM  NUNOfNM 

00009900 

40 

241  Nf AO  19*9!  IN.IN2 

00004000 

41 

9 PONNAT  IIOAI! 

00004100 

42 

INPLG  • 0 

00004200 

43 

C 

TEST  IP  IN  IS  NUNOfN  ON  COOf 

00004)00 

44 

242  CALL  C0N7NT  1 IN, NUN. COOf *OUN! 

00004400 

49 

IP  ICOOE  .LI.  91  GO  TO  444 

00004900 

44 

c 

HAS  ALPHAS-  SEE  IP  7ALI0  COOK 

00004400 

47 

IP  (INPLG  .GT.  0!  GO  TO  247 

00004700 

44 

INPLG  • 10 

00004400 

49 

00  244  1 • |*9 

00004900 

TO 

00  24)  J • 1*4 

00007000 

71 

IP  (IN  IJI  .Nf.  Tf STI J* III  00  TO  244 

00007100 

72 

24)  CONTINUE 

00007200 

7) 

c 

HENE  IP  NECOGNIZSO  COOf 

00007)00 

74 

GO  TO  1999*999* 249* 244. 4001*1 

00007400 

79 

GO  TO  247 

00007900 

74 

244  CONTINUE 

00007400 

77 

247  UNITS  14*41  IN 

00007700 

74 

4 PONNAT  1 ll*9AI * • ♦IN7ALI0-  NfTNT*/! 

00007400 

79 

GO  TO  241 

00007900 

40 

c 

HENf  IP  LOON-  Nf  IT  LINE  IP  PAM 

00004000 

41 

249  LOONPL  • 10 

00004100 

42 

c 

NON  TEST  IP  IN2  IS  OLANN  ON  HAS  NUN 

00004200 

4) 

244  00  244  1 • 1*9 

00004)00 

44 

IP  IIN2III  .Nf.  4LANNI  GO  TO  249 

00004400 

49 

244  CONTINUK 

40004900 

44 

c 

Hf  Nf  IP  4 LAM-  40  MT  NUN 

00044400 

47 

CO  TO  27 

04444790 

44 

c 

NAVI  SfCONO  ENTN7-  LOAO  INTO  IN  1 Of COOf 

00004000 

49 

249  00  290  1 • 1*9 

00000904 

90 

290  IN  III  • IN2  III 

00009004 

91 

INPLG  • 10 

00009100 

92 

GO  TO  242 

00009200 

9) 

444  IP  (NUN  .Nf.  01  GO  TO  1444 

00009)00 

94 

NSTANT  • NSTANT  ♦ SHI 

00009494 

99 

NUN  * NSTANT  / Sltf  ♦ 1 

00009900 

94 

c 

CALC  NSTANT  POSITION  OP  PAM 

00009400 

97 

1 

1444  NSTANT  • INUN  - II  4 Sill  ♦ 1 

■ 

! 

94 

447  ENOIT  • NSTANT  ♦ (Sill  - NSET 1 

00009000 

99 

IP  (LOONPL  .GT.  11  ENOIT  • NSTANT 

00009900 

100 

c 

CLEAN  PAGE  THEN  OUTPUT 

000,10009 

101 

CALL  CONNO  INNN.il 1 

00010100 

102 

IP  (LOONPL  .10.  01  UNITE  17*1031  NUN 

00010200 

103 

10)  PONNAT  I*  PAM**  141 

00010)04 

104 

LOONPL  • 0 

00010400 

109 

00  110  1 • nstant*enoit 

00010900 

104 

Nf AO  l)*|*||9*ENN«300l  CTLCAN *L INf 

00010400 

107 

119  PONNAT  1 AI*9A0*A7I 

00010700 

104 

IP  (NON!  120*120*300 

00010000 

109 

120  IP  ICUCAN  .HI.  SLASH!  40  TO  140 

NON 1 0900 
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110 

110  NRITf  17,11*)  LINK 

00011000 

111 

II*  70# NAT  (ll,4A#,ATI 

00011100 

112 

C 

00011200 

11) 

140  MRITE  17,  *41  NUN 

00011)00 

114 

GO  TO  241 

00011400 

IIS 

*4  FORMAT  | • PAGE* • 14, • •PAUSING-  ENTER  Nf ST 

FAGE  NO.*) 

00011900 

IU 

C 

ALPHA  ERROR 

00011*00 

117 

200  NGA  • 0 

00011700 

lit 

MRITE  l*,*l  IN 

00011*00 

lit 

GO  TO  241 

00011400 

120 

c 

RANGE  ERROR 

00012000 

121 

*00  NGR  • 0 

00012100 

122 

MRITE  (T,*10l  NUN 

00012200 

12) 

*10  FORMAT  I|«,l4 , II, ’OUT  OF  RANGE  - R(7Rr»» 

00012*00 

124 

GO  TO  241 

00012400 

12* 

c 

00012900 

12* 

c 

COF  SELECT  ROUTINE 

00012*00 

127 

tOO  MRITE  ( 7, #02) 

00012700 

12t 

•02  FORMAT  I/*  ♦ENTER  COF* 1 

00012*00 

12* 

#0*  REAO  (9,42»ERR«#00 1 SELECT,  IN2 

00012400 

1*0 

42  FORMAT  IA4,U,*AII 

0001*000 

1*1 

IF  (SELECT  .60.  QUlTI  GO  TO  444 

0001*100 

1*2 

IF  (SELECT  .EQ.  DONE  1 GO  TO  444 

0001*200 

IS* 

IF  (SELECT  .EO.  FAGS)  GO  TO  24* 

0001 **00 

1)4 

c 

SEARCH  IF  COF  IN  FILE 

0001*400 

1** 

00  tl*  1 • 1,  100 

0001*900 

1** 

N • III  - 1)  • SI2E ) ♦ 1 

0001**00 

1*7 

REAO  (S'N, t0*,ERA*t90l  COFA 

0001*700 

ISO 

#0*  FORMAT  ( IK,  A4) 

0001**00 

1)4 

IF  (NGRItlO,  010,  190 

0001*400 

140 

tIO  IF  ICOFA  .EO.  SELECT)  GO  TO  020 

0001*000 

141 

tl*  CONTINUE 

00014100 

1*2 

c 

00014200 

14* 

c 

HAVE  COF  IN  FILE  - FAINT  FACE 

00014*00 

144 

#20  CALL  CONNO  tNNN.Jlt 

00014400 

14* 

NUN  • I 

00014900 

14* 

ENOIT  • N ♦ 2* 

00014*00 

147 

00  #2*  1 • N,  ENOIT 

00014700 

14# 

REAO  I S'l  , ll9,EAA*t90l  CHCAR.LINS 

00014*00 

144 

IF  (NGR)  #22,  #22,  #90 

00014400 

1*0 

#22  IF  ICTLCAR  .EG.  SLASH)  GO  TO  #M 

00019000 

1*1 

#29  MRITE  (7,11*1  LINE 

00019100 

1*2 

c 

ENO  OF  FAGE 

00019200 

19) 

•SO  MRITE  (7,#|2l  NUN 

00019*00 

1*4 

•»2  FORMAT  (•  PAGE*. 14 ,*  ♦PAUSING-  ENTER  COF, 

PAGE,  OR  QUIT*! 

00019400 

19* 

GO  TO  #0* 

00019900 

19* 

c 

MERE  IF  #A0  REAO  / NO  SELECT  / OUT  OF  RANGE 

00019*00 

197 

#90  NGR  • 0 

00019700 

19t 

MRITE  IT,  #921  SELECT 

00019*00 

194 

•92  FORMAT  III,  A4,  • ♦NOT  IN  FILE  OR  INVALIO  - 

RETRY* 1 

00019400 

1*0 

GO  TO  #0* 

0001*000 

1*1 

c 

MRAPUP  (ENOI 

0001*100 

1*2 

444  MRITE  (7,44#) 

0001*200 

US 

44#  FORMAT  (*  ♦Of SPLAT  TFF  ENOEO'I 

0001**00 

1*4 

STOP 

0001*400 

1*9 

ENO 

0001*900 

1** 

SUBROUTINE  RANGE  IRR,LL ) 

0001**00 

1*7 

COMMON  NGA, NGR 

0001*700 

1*0 

NGR  • 10 

0001**00 

1*4 

RR  • 0 

0001*400 

170 

LL  • 2)2 

00017000 

171 

RETURN 

00017100 

172 

(NO 

00017200 

17* 

SU# ROUTINE  ALPHA  IRR.LLI 

00017*00 

174 

COMMON  NGA, NGR 

00017400 

179 

NGA  • 10 

00017900 

17* 

RR  • 0 

00017*00 

177 

LL  • 219 

00017700 

170 

RETURN 

00017*00 

174 

(NO 

00017400 

TABLE  VI-16  (Continued) 
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TPF  LOGIC  DESIGN 

The  design  of  the  TPF  model  Is  such  that  It  might  be  termed  a front-end  loaded 
model.  That  Is,  all  schedule  and  demand  conditions  for  a course  are  loaded  at 
the  beginning  of  the  year,  and  the  model  then  projects  the  resultant  conditions 
for  the  remainder  of  the  year.  Likewise,  the  basic  model  projects,  rather  than 
predicts.  The  model  Itself  is  a true  simulation,  or  mathematical  representation 
of  the  mechanics  of  the  overall  scheduling  function  for  the  center.  All  major 
functions  that’affect  student  flow  are  modeled  to  a detail  similar  to  the  actual 
operations  at  the  center,  which  Include  quota  control,  BUPERS  detailing,  sche- 
duling, failures,  and  setbacks.  The  model  outputs,  however,  can  be  predictive 
If  the  Inputs  themselves  are  predictive.  To  use  the  model  for  decision-making 
purposes,  the  user  must  input  his  predictions  of  demands,  schedule  changes,  new 
courses,  etc.,  and  the  model  then  projects  the  annual  throughputs,  failures, 
AOB's,  and  such,  based  on  these  predictions.  Likewise,  a simulation  model  is 
not  an  optimization  model;  the  large  number  of  variable  input  parameters  pre- 
cludes this.  The  user  can  manipulate  the  model  inputs  to  achieve  optimal 
results. 

PROGRAM  LOGIC  DESIGN.  The  TPF  model  consists  of  a main  control  program  and 
seven  subroutines,  all  coded  in  the  FORTRAN  language.  This  structure  was 
chosen  for  several  reasons.  All  Input  data  enter  through  the  main  control 
program,  which  edits  the  Input  data  and  builds  a matrix  for  communication 
between  the  subroutines.  Thus,  If  Input  methods  should  be  changed,  such  as 
entering  backlog  as  students  rather  than  the  present  method  of  entering  weeks, 
only  one  routine  would  be  required.  As  another  example,  the  entire  scheduling 
routine  Is  contained  In  subroutine  CRSRLS.  This  subroutine  represents  the 
methods  and  procedures  currently  in  use  at  the  center.  Should  It  be  desirable 
to  represent  other  centers  with  different  methods  and  procedures,  a new  sub- 
routine to  represent  that  center  could  be  written,  and  the  appropriate  sub- 
routine could  be  linked  to  the  model  at  execute  time.  In  sunnary,  the  model 
has  been  written  In  a modular  form  so  as  to  allow  adaptability  and  ease  of 
modification  without  extensive  rewrite. 

Certain  programming  conventions  are  followed  throughout  the  design  of  the  TPF 
model  and  its  subroutines.  All  Input  data  are  read  In  at  the  beginning  of  the 
operation,  with  proper  editing  and  error  checking  provided  at  that  time. 
Parameter  Information  Is  read  In  and  various  flags  are  set  to  control  subse- 
quent execution.  In  both  cases,  assumptions  are  made  for  missing  or  Inaccurate 
data  and  processing  continues  with  appropriate  error  messages.  Finally,  all 
communication  throughout  the  model  Is  through  C0W10N  storage,  with  minimal 
use  made  of  subroutine  parameter  passing. 

TPF  MODEL  MAIN.  The  TPF  model  Is  compiled  and  stored  for  execution  under  the 
name  KEND.  This  Is  to  allow  executives  to  use  the  name  TPF.  The  basic  control 
routine  In  this  FORTRAN  program  Is  called  MAIN.  This  module  Is  the  primary 
Interface  of  the  TPF  model  with  the  rest  of  the  TPF  system  All  Input  data 
and  parameters  are  entered  and  edited  by  this  section,  and  all  control  of  the 
TPF  model  execution  Is  set  up  by  MAIN.  MAIN  also  controls  all  cycling  for 
the  various  loops  necessary  for  the  TPF  simulation. 

Parameter  Options.  The  first  operation  In  MAIN  Is  to  read  In  the  control 
parameter  card,  this  method  of  control  was  chosen  to  provide  for  card  batch 
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operation  as  well  as  on-line  terminal  execution.  The  format  of  the  parameter 
card  is  shown  in  Figure  VI-3C.  Four  elements  of  the  parameter  card  are  key 
to  execution;  input,  first  year,  last  year,  and  AOB  constant,  as  they  set  up 
control  for  execution.  Input  specifies  whether  the  data  are  to  be  read  from 
cards  (05),  or  from  an  on-line  data  set  (10),  with  the  default  value  being  10. 
First  year  and  last  year  are  used  to  control  the  years  of  the  projection 
(default  1 year,  maximum  3 years)  and  the  years  entered  are  printed  as  titles 
on  output  reports  and  control  data  base  access.  AOB  constant  is  used  to 
denote  the  method  and  value  to  be  used  for  average-on-board  calculations.  A 
value  of  300  or  greater  will  cause  weekend  days  to  be  counted  in  AOB  calcula- 
tions, while  a value  of  less  than  300  will  alter  the  model  so  that  only  working 
days  are  counted. 

The  next  8 parameters  on  the  parameter  card  control  across-the-board  modifica- 
tion. The  first  character  in  each  field  is  a flag  (0  for  off,  1 for  active) 
and  the  remaining  four  characters  are  a multiplier.  If  the  flag  is  1 or 
greater,  the  multiplier  is  passed  to  other  routines  for  data  overrides.  The 
next  two  fields  allow  the  user  to  select  only  a course  CDP  number  or  school  for 
execution,  without  the  need  to  alter  the  data  base.  The  date  field  contains 
the  month  and  day  of  the  run,  as  set  by  program  PARAM. 

The  last  10  fields  on  this  card  contain  flags  used  to  control  various  options 
of  the  TPF  model.  If  the  1N1T  flag  is  set,  the  model  will  perform  the  pre-run 
initilization  described  later  in  this  section.  The  output  data  provided 
is  controlled  by  flags  C0URSE($R1),  SCHOOL ($R2),  and  CENTER ($3).  A 1 in 
any  of  these  fields  will  produce  the  specified  reports,  while  all  zeros  in 
these  fields  will  cause  the  model  to  cycle  with  no  output  data  generated. 

The  rest  of  the  flags  control  trace  routines  used  for  detailed  analysis  of 
operation  of  each  of  the  TPF  model  subroutines.  Use  of  these  trace  flags  is 
not  recommended  for  normal  operation  due  to  the  volume  produced.  They  may  be 
set,  however,  using  program  PARAM  and  their  names  may  be  displayed  by  the 
program  by  requesting  FLAGS. 

Data  Entry  and  Editing.  The  next  major  section  of  program  MAIN  consists  of 
the  logic  to  read  data  into  storage,  provide  reasonableness  checks,  and  to 
perform  data  overrides.  All  data  are  read  into  main  storage  to  reduce  disk  I/O 
operations  as  the  system  runs  under  virtual  storage.  Each  data  element  is 
tested  for  reasonableness  and  the  value  Is  clamped  If  necessary,  allowing  the 
model  to  execute  using  a data  base  with  known  errors.  The  various  overrides 
are  performed  next  for  those  fields  where  the  override  flag  Is  set.  Logic  is 
included  to  assure  that  the  overrides  produce  meaningful  results,  l.e.,  course 
convenings  clamped  to  Integer  values,  rather  than  allowing  a value  such  as 
2.87  convenings.  Following  these  operations,  MAIN  passes  control  to  the  cyc- 
ling portion  of  the  model. 

Model  Control  and  Cycling.  Except  for  one  routine,  the  test  of  the  main  pro- 
gram logic  fs  straightforward,  using  standard  FORTRAN  coding  techniques.  Three 
major  cycling  paths  exist  In  the  model;  the  year  loop,  the  quarter  loop,  and 
the  week  loop.  One  of  these,  the  quarterly  loop,  can  undergo  alteration  to 
Initialize  the  model.  The  TPF  model  does  not  snapshot  existing  conditions,  but 
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rather  it  views  conditions  over  a period  of  time.  It  considers  the  schedule  and 
classes  as  they  are  today*  and  projects  for  one  year.  One  Important  factor 
must  be  recognized.  Today  there  may  be  70  courses  in  session  that  were  started 
In  a preceding  period  and  which,  because  of  their  length,  terminate  In  the 
period  being  projected.  To  represent  this,  the  quarter  loop  can  reconfigure 
and,  for  the  first  quarter  loop,  the  model  operates  as  though  It  were  the 
quarter  prior  to  model  start.  No  totals  are  accumulated  for  the  run;  the  only 
effect  Is  to  release  courses  so  that  they  may  be  active  at  model  start.  Sub- 
routine PRERUN  is  used  to  accomplish  this,  and  this  initialization  will  be 
discussed  In  further  detail  In  that  segment. 

The  lowest  order  cycling  loop  In  the  model  Is  the  week  loop.  An  understanding 
of  how  this  loop  operates  will  probably  lead  to  an  understanding  of  the  entire 
model.  This  loop  first  scans  each  course  loaded  In  the  model,  one  at  a time, 
to  ascertain  If  a course  should  convene  that  week.  It  does  this  by  testing 
the  convening  frequency  of  the  course  against  a matrix  loaded  In  core, 
for  convening  frequencies  of  1 to  50  convenings  per  year.  Before  this  compari- 
son Is  made,  the  matrix  Is  rationalized  for  offset,  change  week,  and  multiple 
convenings.  This  routine  is  described  Immediately  following  this  segment,  but 
for  now,  all  that  Is  necessary  to  know  Is  that  If  this  matrix  returns  a code 
that  the  course  should  start,  subroutine  PRERUN  will  be  called  and  the  course 
started.  When  a course  Is  started.  It  Is  placed  In  an  active  matrix,  which  Is 
described  In  the  subroutine  PRERUN  segment.  Upon  completion  of  the  test  for 
possible  convening  of  all  courses,  the  MAIN  program  then  tests  all  active 
courses  to  see  If  any  end  In  that  week.  As  the  model  cycles  on  a weekly  basis, 
many  courses  will  begin  and  end  In  the  same  weekly  loop.  When  a course  Is 
found  to  end,  subroutine  CRSENO  Is  called  which  closes  out  the  course,  allocates 
the  AOB,  and  calculates  attrition.  When  all  of  the  300  possible  active  courses 
have  been  tested,  the  weekly  loop  recycles  to  run  another  week. 

Every  13  weeks,  the  quarter  loop  cycles,  calling  subroutine  QRTEND,  to  allocate 
AOB  against  quarters  and  accumulate  totals.  Finally,  after  4 quarters,  the 
year  loop  cycles,  calling  subroutine  YEARND,  which  controls  printout  for  the 
yearly  report. 

Scheduling  Algorithm.  Several  scheduling  algorithms  were  studied  as  candidates 
for  this  model.  As“part  of  the  design  effort,  the  actual  convening  dates  for 
many  of  the  courses  were  plotted.  These  plots  were  then  analyzed  and  an  allow- 
ance was  made  for  common  holidays.  The  data  were  then  transferred  to  the  matrix 
shown  In  Figure  VI-7.  This  shows  the  scheduled  convening  weeks  for  courses 
with  a convening  frequency  of  1 to  50  per  year.  Many  courses  convened  more 
frequently  that  this,  and  these  are  handled  by  breaking  them  Into  multiple 
courses,  each  with  convening  frequencies  of  less  than  50,  but  whose  overall 
convenings  are  the  same  as  the  original.  For  example,  a course  with  51  conven- 
ings Is  handled  as  two  courses,  one  that  convenes  25  times  annually.  Provision 
exists  to  break  each  course  Into  10  separate  courses.  The  convening  matrix  It- 
self Is  stored  in  core  and  names  ISCHED.  The  data  are  loaded  In  hexl decimal 
format  to  accomplish  this.  FORTRAN  allows  the  loading  of  hexl decimal  data,  but 
does  not  allow  Individual  bit  testing  or  manipulating.  Therefore,  a synthetic 
method  of  bit  testing  was  developed.  This  technique  Involves  extracting  the 
proper  bit  pattern  by  division  by  various  constants  based  on  week  and  quarter, 
which  leaves  a 1 on  the  low  order  bit  position  If  the  course  Is  to  start,  or  0 
If  it  should  not.  This  extracted  bit  pattern  Is  then  tested  to  determine 
whether  the  low  order  bit  Is  a 0 or  1,  which  Is  accomplished  by  a division 
by  Integer  2,  and  then  a multiplication  by  Integer  2.  If  the  result 
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Is  the  same  as  the  original,  the  low  order  bit  was  0 and  the  course  is  not 
released.  Two  rationalizations  must  be  made  prior  to  lookup  in  this  table. 

First,  if  a course  convenes  only  once  a year,  the  matrix  will  start  it  the 
first  week  of  the  model  run.  In  reality,  this  course  may  convene  on  the  21st 
week.  Offset  was  introduced  as  an  input  to  the  model  to  allow  fine  tuning  of 
the  course  release  date.  An  offset  of  20,  for  example,  will  tell  the  model  to 
enter  the  schedule  matrix  as  week  1 when  the  model  is  in  the  21st  week,  the 
second  term  to  be  rationalized.  If  the  schedule  change  date  has  passed,  the 
"B"  convening  schedule  is  used,  otherwise  the  "A"  convenings  are  used. 

As  this  technique  uses  matrix  lookup,  the  table  must  be  protected  for  Invalid 
entries  while  preserving  flexibility.  If  the  convening  frequency  is  0,  the 
matrix  will  be  bypassed.  If  the  week  Is  greater  than  52,  52  is  subtracted  from 
the  week  until  it  is  less  than  52.  If  offset  is  positive,  such  as  21,  no 
courses  will  be  released  until  the  22nd  week,  regardless  of  the  convening  fre- 
quency. A negative  offset  of  31  would  accomplish  the  same  schedule  shift,  and 
courses  could  be  released  from  the  start  of  the  model  run. 

SUBROUTINE  CRSRLS.  The  course  release  subroutine  contains  the  scheduling  logic 
for  the  center.  This  includes  keeping  backlog  counts,  scheduling  only  local 
seats,  and  overbooking  certain  courses  with  high  no-show  rates.  The  logic  of 
this  subroutine  schedules  the  BUPERS  students  based  on  the  annual  BUPERS  plan, 
divided  by  current  convening  frequency.  This  is  done  even  if  the  result  exceeds 
the  seats  controlled  by  BUPERS.  Next,  local  quotas  are  released.  This  is 
accomplished  by  releasing  students  to  a backlog  pool  based  on  local  demand, 
divided  by  current  convenings.  This  pool  Is  released  to  the  course  up  to  the 
local  capacity.  No-shows  are  then  calculated  using  historical  no-show  percent- 
ages. Only  local  students  are  used  for  this  calculation  as  BUPERS  students 
generally  are  on  TAD  or  PCS  orders,  and  are  not  identifiable  as  no-shows.  Fin- 
ally, for  courses  running  near  capacity,  up  to  10  percent  of  the  capacity  is 
released  from  the  backlog  pool  as  substitute  quotas.  This  routine  then  builds 
an  entry  in  the  course  active  matrix.  Included  is  utilization,  weeks  till 
termination,  and  a term  to  allocate  AOB  between  quarters  and  between  classes 
if  a student  should  be  set  back.  This  subroutine  closely  represents  the  sched- 
uling methods  in  use  at  the  center.  If  other  centers,  with  different  algorithms, 
should  be  studied,  this  subroutine  would  most  likely  be  replaced  by  one  represent 
ing  the  location  under  study. 

SUBROUTINE  PRERUN.  As  mentioned  previously,  the  model  can  run  in  an  initializa- 
tion mode  for  one  quarter  prior  to  the  actual  model  run.  Subroutine  PRERUN  is 
called  by  CRSRLS  any  time  the  model  is  in  the  initialization  mode.  It  is  re- 
quired for  two  functions.  First,  courses  are  tested  prior  to  release  to  ascer- 
tain whether  they  should  be  running  at  model  start  or  not  at  all.  Secondly, 
this  subroutine  allocates  AOB  for  those  courses  to  assure  that  AOB  applicable  to 
the  first  quarter  Is  charged  to  the  first  quarter. 

SUBROUTINE  CRSEND.  This  subroutine  Is  called  each  time  a course  is  found  to 
end  In  a particular  week.  Several  functions  are  performed  by  this  subroutine. 

The  first  function  consists  of  disposing  of  all  references  to  the  course  in 
the  active  matrix.  Secondly,  failures  are  calculated,  with  fractional  failures 
pooled,  using  the  current  failure  rate.  The  third  function  Is  to  calculate  non- 
academic  disenrollments,  based  on  historical  rates.  This  subroutine  also 
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calculates  setbacks.  Setback  logic  currently  allows  setbacks  for  those  courses 
3 weeks  or  longer,  and  where  more  than  1 convening  Is  in  session  at  a time. 

This  setback  rate  is  currently  based  on  a fixed  percentage  of  failures  per 
class.  AOB  for  setback  Is  allocated  between  the  "entered  In"  and  "finished  In" 
convening.  Finally,  this  subroutine  calculates  AOB  based  on  the  current  calcula- 
tion method  in  effect. 

SUBROUTINE  QTRENO.  This  short  subroutine  Is  used  to  accurately  allocate  AOB 
between  quarters.  Only  the  active  courses  are  tested  at  the  end  of  a quarter, 
the  accumulated  AOB  is  charged  to  the  current  quarter,  and  the  active  course 
AOB  Is  adjusted  accordingly. 

SUBROUTINE  YEARND.  The  function  of  subroutine  YEARND  is  to  calculate  annual 
totals  for  all  courses,  prepare  the  model  for  multiple  year  runs,  aggregate 
school  and  center  total  If  those  reports  are  keyed,  and  call  appropriate  sub- 
routines to  provide  output  reports.  This  subroutine  requires  that  courses  be 
entered  In  the  data  matrix  sorted  by  school  code  If  proper  school  stannary 
reports  be  produced. 

SUBROUTINE  CRTOUT.  Subroutine  CRTOUT  produces  course,  school,  and  center  reports 

In  a 79  column  format.  This  format  is  compatible  with  the  Hazeltlne  2000 

terminal  which  only  has  79  usable  columns  for  formatted  data.  A sample  of  the 

reports  produced  by  subroutine  CRTOUT  is  shown  In  Figure  VI-8.  The  format  used  1 

for  the  control  character  In  colunn  1 was  described  In  this  section  under  display 

support  programs.  The  same  format  routines  are  used  for  the  data  portion  of  the 

school  and  center  reports,  and  subroutine  YEARND  loads  center  data  Into  the  1 

school  matrix  prior  to  calling  CRTOUT  to  provide  a center  report. 
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FOH  EACH  mEEk  IN  THIS  SLHtUULfc:  AN  INDICATES  THE  COURSE  HILL  BE  RELEASEO 

A INDICATES  THE  COURSE  HILL  NOT  BE  RELEASEO 
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0204  FINANCIAL  MGMT 

SCML  OATC  CATALOG  NO  NLC 
S/OA  Hit  A-S31-003L 

P AOM  pfail  TYCt  PRTY 

2.*  7.0%  FI  )1 


— SCHEDULt  OAT  A- - 
ANNUAL  CONVENINGS 
COURSE  LENGTH  UYS 
COURSE  CAPACITY 
UUPCRS  CAPACITY 
ANNUAL  demand 
supers  demand 


CRS  ItACELOG 
I STU  32 
• MAS  5 

ft* l ME  0 
FY*t  ME  J 
OFFSET  i) 


QUARTERLY  PROJECTIONS 

I 1 QR  FY  73  ! 2 QR  FY  75  ! J QR  RY  75  ! 4 (,'R  FY  73  ! ANNUAL  TOTAL 


• CONVENINGS! 
CRS  CAPACITY! 
UTIL  I2AT  ION  ! 
NO  SHOMS  ! 
RAELUG  0/MES! 
STU  DAYS/AOb I 
1 

TOTAL  PASS  I 
TOTAL  FAIL  I 
SETUACL  ACAD! 
UISENROLL  NAI 


4 ! 

1 

3 

1 

1 

3 

! 

3 ! 

! 

13 

100  ! 

1 

75 

I 

I 

73 

• 

75  ! 

1 

323 

67  ! 

67.09! 

30 

1 

40.09! 

29 

30.7*! 

30  ! 

40.09! 

136 

11  ! 

14.1%! 

5 

! 

14.39! 

3 

14.7%! 

3 ! 

14.3%! 

26 

0 ! 

0 WES! 

0 

! 

0 mksi 

0 

0 WES! 

0 ! 

0 MES! 

0 

333  1 

3.7  ! 

150 

1 

1.6  ! 

145 

1.6  ! 

130  ! 

1.6  ! 

700 

1 

i 

1 

! 

1 

I 

! 

62  ! 

92.3%! 

27 

I 

90.09! 

23 

06.29! 

26  1 

06.7%! 

140 

3 1 

7 . 3% ! 

3 

! 

10.09! 

3 

10.39! 

3 ! 

10.091 

14 

0 ! 

0 • 0%  ! 

0 

I 

0.09! 

0 

0 . 0%  I 

0 ! 

0 . 0% ! 

0 

0 ! 

0.04! 

0 

1 

0.09! 

1 

3.49! 

1 ! 

3.391 

2 

40.0% 
14.JE 
9 EES 

2.1 

19.7% 
9. lit 
9.9* 
1.3% 


TPF  MODEL  — FISCAL  YEAR  1976  SUMMARY 
SCHOOL  CODE  COMM 


COMM  SCHOOL  SUMMARY  (RUN  001275) 


TPF  NOOEL  — FISCAL  YEAR  1976  SUMMARY 
■■  TOTALS  FOR  TRAPAC  TRAIN  INC.  CENTER  "" 

CENTER  COOC  N SUMMARY  (RIP!  0*1273) 


FY  76  I 2 QR  FY  76  ! 

. 1 

I 69S I I 

122314 1 I 

67 .1% 1 12339 1 33 .9% I 
13.091  19741  13.6%) 
9 MES!  2679111  MES! 
1000.91731331  109.4! 


3 QR  FY  76 


FY  76  I ANNUAL  TOTAL 


I CONVENINGS! 
CRS  CAPACITY! 
UTlLUATld*  I 
NO  SHOMS  £ I 

saklog  t/tKs I 


STU  UAYS/iy>b! 
total  pass!  ! 

TOTAL  FAIlX  I 
SETSACE  aAdi 
OISENROLL  VI 


739! 

239001 

162091 

24231 

34321 

920661 

I 

136061 

417! 

36! 

1061 


I I I 

96. 6% 1 12069 1 96 . 1% I 
2 . 6% I 3731  3.0%! 

0.291  27!  0.29! 

0.791  1131  0.99! 


670!  I 

21640!  ! 

11923!  34.6%! 
1061!  13.6%! 
2323 ! 13  WES! 
71320!  793.0! 


! .»  I 

111340!  96.0%! 
! 363!  3.1%! 


720! 

24263! 

12910! 

2092! 

2172! 

73931! 

123931 

4001 

30! 

123! 


I 2032  ! 

! 92333  I 

33.291  33311  ! 39.09 
13.99!  0340  ! 13.39 

13  WES!  2172  ! 13  WES 
S10.2!311372  I 033.1 
I I 

93.991  31496  ! 96.2% 
3.1%!  1337  ! 2.9% 

0 . 2% I 120  ! 0.2% 


u 


KEND 
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««•*»«««««»««  TPF  MODEL  - AS  OF  TUESDAY  FEB  2**  1976 
IMPLICIT  INTEGER*2  (A-Z.s) 

JNTEGER*2  DOLLAR  /•**/ 

REAL**  SELCRS,  TCDr 
COMMON  DATA  FOR  CLASS  DATA  MATRIX 


REAL**  LEN*  NOSHG w*  NOSriPL* 
REAL**  TUMANU  • 3ETHAK*  OAT  t 


riKLGHL*  BPOOL * NADIS*  FAIL*  CDP 


COMMON  /DATA/  cGP  (J2E),  CRSKUN  (328) » CUNV  (3*328)*  LEN  (3*328) 
COMMON  /DATA/  cam  (3»3?B>*  8CAP  (3*3<;»).  CHUUK  (2*328) 

COMMON  /DATA/  OFFSET  (32d>*  DEMAND  (3*328)*  BDMAND  (3*328) 

COMMON  /DATA/  hPOOL  (328)*  FAIL  (328)*  nADIS  (328)*  NOSMPL  (328) 
COMMON  /DATA/  8AKLOO  <32rt)«  NOSHOw  (3?8)*  BKLGPL  (328) 

COMMON  /DATA/  BALo  (328)*  T DM AND » SETBmk*  DATE 


4* 

III; 


C 

c 

c 


INTEGER**  PNEC 
REAL**  PAOB ♦ PF « I L 
WEAL*8  NAME  1 * N A M 1 2 ♦ 


CATNOl 


COMMON  /TEXT/  PFAIH328)*  NAME1  (328)*  NAME2  (328)*  CATNOi  (328) 
COMMON  /TEXT/  CATN02  (328)*  PNEC  (328)*  TYPE  (328)*  PAOB  (328) 
COMMON  /TEXT/  PRTY (328) * SCH 1 (328) *SCH2(328) * SCH3 ( 328 ) * SCH* ( 328 ) 

QUARTERLY  AND  ANNUAL  COURSE  TOTALS  ACCUMULATION 

REAL**  TFAIL*  TNADIS 
INTEGER**  TSUAYs*  TCAP*  TUTIL 

328) 
328) 
328) 


i 

COMMON 

/TOTALS/ 

TCAP  (S 

. 328)*  TUTIL 

(S* 

328 ) * 

TSETBK 

(S* 

COMMON 

/TOTALS/ 

TSUAYS 

(3*  328)*  TFAIL 

(S. 

328)  « 

TNOSHO 

(S* 

> 

COMMON 

/TOTALS/ 

TNADIS 

(S.  328)*  T8KL0G 

(5* 

328)  ♦ 

TCONV 

(S* 

C 

C 

C 


C 

C 


COMMON  FOR  COURSE  ACTIVE  MATRIX  ELEMENTS 
REAL**  ACTCTR 

COMMON  /RUN/  ACT  I Vt  (2S0)*  ACTCTR  (2s0)*  ACTuTL  (260)*  ACTNEG(2S0) 

COMMON  FOP  COMMUNICATION  BETWEEN  SUBROUTINES 

INTEGER**  ITEM,  I TEMi ♦ I TEM2*  ITEM3*  ITEM*,  ITEMS*  WHERE 
REAL**  TEM*  TEmI*  TEm2»  TEM3*  TEM**  TEMS*  SLEN 


C 

C 

C 


COMMON  DUMMY*  SCONV*  SLEN*  SCAP.  SBC AP ♦ LAST*  COURSE 

COMMON  tKl *$R2*SR3*SHA«  TEM*  TEMI*  TEM2 . TEM3*  TEM**  TEM5 

COMMON  ITEM*  ITEMI*  I TEM2 ♦ ITEM3*  ITEM**  ITEMS 

COMMON  YEAR*  CRSES*  U*  W*  WKOFF*  INIT*  WHERE*  NEGFLG*  AOfaCON 

COMMON  TRACEF*  RLSFLG*  ENDFLG.  preflg*  YRFLG* YEARUN*PR1NTF*NGR 

DIMENSION  AND  DATA  FOR  SPECIAL  SCHEDULER  ROUTINE 

DIMENSION  C (10)*  ISCHD  (*«  s0>*  DIV  (13) 


DATA  I SCHO/Z800 *3*20 .Z0.Z800. 22*20 *Z0 *21000 *Z1 00 *2**2*21000. 
*Z800*Z1 000*28*2*0 *2 100 *2801 • Z 1 00 *Z 1 OCR  * 2 1 0 1 *210 ♦ Z81 0 *2*08  * Z81 « 
*Z*0*Z 1020 *21 0*0 *281 0*2820 .28*1 .2*2 10* *2* 10 *2 108* *2*20 *28*2*2210* 
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KEND  FORTRAN 


*Zlo6A*4'444,Z10fa»i’1'Z'5H««2l  1 1 0 * ZB44 , ZBbB  » ZBM9 * Z222 » Z 1 1 2 * Z«,44 * Z 1 1 12 * 
*Z4db,Z4d9,22<,4*  / 1224,Z1 124  »Z24«,Z124<,,Z1224,Z  124b*  Z892.Z924*Z92b» 
4Z4y2»ZZ49»2492»Zl24*»Z4A4»Z4>*2»ZA4A»ZAdA  «ZAb2,Z2b2,2A4y,Z1294, 
*Zl4A4*Z94A»ZAb2»Z4V5*Zb4A*Z4Ab»Z9b2  * Z Ayb»ZSb4 « ZSbb, Zb2A«2*ZAAA  * 
*ZlAA»2*ZAAA»Zlbb4,  Zbbb  »ZAAA»ZlSSb»ZAAA»ZSSS»ZAAA»  Z 1 AAA  »Z lbb4»ZAAA * 
*Zld55,ZlAAA»21bbA»ZAHb,2AAA,ZlbbA»ZlAAA»ZAAA,Zl ADb, Z 15bA»Z 1 AB4, 
*Z0sA  « Z lbAD,  ZD6b  »ZrJSA»Z6db»ZldAD»ZlSRb»ZlSAC  ♦ ZOaD,  Zlb8b«ZD86*  Z IBS  A • 
«ZdbU,Zi5Bb,ZlbDA,Z  l HbC , ZDdb » Z 1 HbD » ZDDd » ZUBb , Z 7bD » Z 1 uUB » ZDD6 » ZEDA , 
*ZDd7,ZUBd,ZEED,Zld7d»ZH7d»Zll)da,Z177b,ZiDDC»ZEEO»Z16BB»Z1777»ZEEE» 
*Z7dB,Z1777,ZF7H,ZlHBA*ZEF  f » Z 1 777 » ZF7H , Z 1BDE » Z7BD, Z 1DEF »Z 1 7BE » 
*ZltFA*ZEF8»ZlBEF»2FUF«ZFHE»Z?EF»Z17DF,Zi7EF»ZlBFb»ZF7E»ZlFBF»ZFF7, 
4ZlEFE»ZF7S»ZlF7F*ZFF*»ZlF0£»ZFdF»ZlQFF»ZFFF»ZFFE»Z7FF,2*ZFFF» 
*ZltFE,ZFFM,ZlFFF ,ZFFF , ZIFF t*Z7FF, ZIFF K,ZFFF,ZlFFt»ZFFF»2*ZlFFF, 
*Z1FFE»ZFFF»Z1FFF/ 

C 

DATA  DlV/40yb,2u4rt,i024»S12*25b»12b»b4»i2*lb»8»4»2»l/ 

DEFINE  FILE  10  ( HUO * HO * E * J3 ) 

EXTERNAL  RANbE 

CALL  ERRSET  (232, 100,-1 » 1 »RANGE> 

C 

C READ  RUN  PARAMETERS:  * WHERE  ’ lb  InRUT  DEVICE?  ’FRSTYR  f>  LASTYR’  ARt 

C FIRST  AND  LAST  FISCAL  YEARS  OF  RUN. 

C OVERRIDES  - ITEM(FmIL)*  ITEMl  (NOSdO*)  « 1 1 EM2  ( DEMAND ) » ITEM3(C0NV), 

C ITEH4 (LEN) * ITEMS(CaP),  TDMAND  IS  DEMAND  T RtNU  OVERRIDE  - USED  YREND 
C U FLG  FOR  COURSE  StL ♦ W FLG  FOR  SCHOOL  StL*  12  F LG  FOR  LENoTH  IN  MEEKS 
C 

READ  ( b * 1000*  END=  1 998 ) *H£RE,  FRSTYR*  LASTYR,  A08C0N, 

1 ITEM,  TEM,  ITEMl,  TtMl,  ITEm2,  TtM2,  I,  T DM aND , ITEMS*  TEM3, 

2 ITEM4,  T EM4 , ITEMS,  TEMb»DATt»  1 1 »SETd«K,  U*  SELCRS,  w,  SLSCH1* 

3 SlSCH2,SLSCH3,SLSCH4,YRFLG,wKFLG,TRaCEF,PHEFLG,RLSFLG,ENDFLG, 

4 STAT,  $Rl,SR2,SR3 

1OOO0FORMAT (12,  314,  lx,  r (II,  F A . 3 ) , 1 X * A4 , 1 1 , F4 . 3 , 1 1 , A4 » 1 1 *4A1 , 1 0 1 1 ) 

C 

C CLAMP  SETBACK  RATE  (AS  PCT  OF  FAILURES),  CLAMP  AOB  CONST  IF  MISSING 
IF  (II  ,LE.  0)  SETdAK  = (i.D 
IF  (AOBCON  .LE.  0)  AOBCON  = 3bb 
IF  (I  .LE.  0)  10MAND  = 0 
C 

C SET  INIT  Flag  - ::iED  to  key  model  prerun 

C CLAMP  INIT  AS  USED  TO  SET  NEGKUN  FLAG  WHOSE  ACTUAL  VALUE  IS  SIGNIFCANT 
C 

INIT  = 1 ; PRINTF  = 0 5 nEGFLG  = INIT 
C 

C SET  TRACE  FLAG  - USED  F OH  DETAILED  COURSE  RUN  PRINTOUT 
TRACEF  = THACEF  ♦ PHEFLG  ♦ RLSFLG  ♦ ENOFlG 
C 

C CLAMP  DEVICE  TO  READER  OH  OISK  FOR  DATA  INPUT 
C 

IF  (WHERE  *NE.  10)  wHEkE  = b 
IF  (SR2  .GT.  1)  »R2  = 1 
NGh  = 0 
C 
C 

C FIND  NUMBER  of  YtANS  FOR  MODEL  RUN  - MAX  3 YEARS,  PROTECT  FOP  NEGATIVE 
C FRSTYR  IS  FIRST  FY  OF  RUN,  LASTYR  IS  LAST  YR,  YEAR  IS  CURRENT  YEAR  OF 
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C RlJN*  ASSUME  1976  IF  MlSSINo*  INVERT  IF  YRS  OUT  OF  OROtK 
C 

C TEST  FOR  MISSINO  DAT* 
v E aRUN  = 1 

IF  (FRbTYR)  26*  2b*  27 
C 

C DATA  MISSING-ASSUME  197*  % RUN  1 YE  Ah' 

26  YEAR  = 197b  ; bo  To  32 
C 

C HA VF  FrST  YEAR,  TF.Sl  FOR  L^bT.  RON  1 YEAR  IE  NONE 

27  IF  (LASTTR)  31*  31*  2a 
C 

C HERE  IE  HAVE  1ST  K l»SJ  Yr,  FIND  DtL T A FOR  YEAKb  RUN 

28  YEARUN  = LaSTYk  - ERSTYR 
IF  (YEARUN)  2**  30*  30 

C 

C NEG  DELTA,  YEARS  Uu r OE  ORDER  - S TrA IGrT tN  OUT 

29  YEARUN  = -YE  ARUi*  « FRSTyR  = LASTYR 

30  YEARUN  = YEARUN  ♦ i 

31  YEAR  = FRSTYR 

IF  (YEARUN  ,bT,  3)  YEArUN  = 3 
3?  CONTINUE 
SELYr  = 1 

IF  (FRSTYR  • EO • 197/)  SElYr  = 2 
IF  (FRSTYR  .Eu.  19/6)  SELYR  = 3 
C 

C PRINT  CHARACTERISTICS  UNIOUF.  TO  THIS  MODEL  RUN 
C 

WRITE  (6,  1001) 

1001  FORMAT  ( • IBEblN  TRAINING  PROCESS  FLOw  MODEL  EXECUTION  - CHAPACTEHl 
1STICS  KOH  TeiIS  RUN  ARE:*) 

C 

WRITE  (6,  1002)  YEAR*  YEARUN 

1002  FORMAT  (/  • FIRST  FISCAL  YEAR  uF  MODEL  RUN**  IS*  4A»  * YEARS  PROJEC 


*TEu * * 13) 

IF  (AOHCON  . b T . 300)  w* I T 2 (6*  1006)  AOHCON 

1006  FORMAT  (/•  AOH  CUNSTANT  IS*,  lA,  • WEEKEND  DAYS  UStD  IN  STUDENT  D 
*AYS  AND  AOH  CALC') 

IF  (AOHCON  .LE.  J00)  wHlTt  (b,  1007)  AOHCON 

1007  FORMAT  (/*  AOB  CONSTANT  IS'*  1a*  • ONLY  WORKING  DAYS  USED  IN  STUD 
*ENT  DAYS  AND  AOa  CALC*) 

IF  (WHERE  .EO.  H)  WRITE  (o*  100H) 

1000  FORMAT  (/  • COURSt  DATA  INPUT  DEVICE  - READER t STATISTICS  INPUT 
* DtVICt  - READER*) 


IF  (WHERE  .GE.  10)  WRITE  (6*  1009) 

1009  FORMAT (/•  ALL  INPUTS  THIS  RUN  FROM  UNLOADED  DATA  HASE  • ) 


WRITE  (6*  1010)  PRtFLG*  RLSFLG,  ENDFLb*  YRFLG 
1010  FONMATU*  TRACE  FLAGS  THIS  HUN J PREHUN**  12*  •»  CRS  REL'*  12*  •* 
•CHS  END'*  12*  •*  YEAR  FORMAT**  12  /) 
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IF  (INIT  ,6r.  0)  WRITE  (o*  1012) 

1012  FORMAT  ( • INIT  FLAG  IS  SET  - MODEL  WILL  INIT  COURSES  IN  SESSION  A 
*T  1ST  OUARTEH  STaRT*  /) 

C 

IF  (STAT  .GT.  0)  TE  (6*  11013) 

11013  FORMAT  ( • STAT  FLAG  IS  SET-STAT I ST  I CAL  FAIL  l)ATA  WILL  OVERRIDE  Hi 
•STORICAL  RATES'  /) 

C 

C END  OF  MODEL  RUN  DATA  MESSAGE:*  - OUTLINE  ERROR  MESSAGES 
C 

WRITE  (6.  1011) 

1011  FuRMAT  ( • 

• ) 

C COP  OR  SCHOOL  SELECT  N READ  ROUTINE  * 

OONEFL  = 0 }/»  INIT  DOME  FLAG  FOR  SELECT  OPT  */ 

IF  (0  .LE.  0)  GO  TO  2120  ?/*  SELECT  CDP  OPTION  */ 

WRITE  (6* 1201a  ) SELCRS 
12014  FORMAT  ('  CDP  SELtCT=  '♦  Aa) 

C 

DO  2117  II  = It  2 

READ  (10*11*2111. ERR=211e>  TCDP 
2111  FORMAT  <4X.A4*72X> 

IF  (NGR  .GT.  0)  GO  TO  2112 


IF  ( T CUP  .EO.  SELCRS)  GO  TO  2119 

2117  CONTINUE 

2118  GO  TO  1998  5/*EXIT-  NO  CRSES  */ 

2119  DONEFL  = 1 i GO  TO  2131 

2120  IF  (w  .LE.  0)  GO  TO  2130  S/*  SELECT  SCHOOL  OPTION  */ 

11=1  1 IF  (SLSCH1  ,EO.  DOLLAR)  GO  TO  2129 

IF  (SR2  .GT.  0)  SR2  = 2 J/*  KEY  SEL  SCH-  2 IFSELECT  ON  */ 

DO  2127  II  = 1 »bS6*2 

READ  (10*11*2121*  ERR=21 2b ) TSTSCH 

2121  FORMAT  (Al*  79X  ) 

IF  (NGR  .GT.  0)  GO  TO  2128 

IF  (TSTSCH  .EO.  SLSCH1)  GO  TO  2129  k 

2127  CONTINUE 

2128  GO  TO  1998  5/*  EXIT-  NO  CRSES  */ 

2129  DONEFL  = -1  5 GO  To  2131  SET  FLAG-  GO  READ  */ 

C READ  IN  DATA-  DONEFL  = -1  IF  SCHL  SEL*  ♦!  IF  CDPSEL*  0 IF  NONE 

2130  11=1 

2131  CRSES  = 0 

2132  I = CRSES  ♦ 1 

READ(10'I1.2l33.ERR=2139)sCHl (I) *SCH2(I) « SCH3 ( I ) • SCH4 ( I ) « CDP ( I ) • 

1 CATNOKD*  CATN02  ( I ) * NAME  1(1)*  NAME2(I)«  CONV  (1*1)*  LEN  ( 1 » I ) * 

2 CAP  (1*1)*  8CAP  (1*1)*  DEMAND(1*D*  BDMAND  ( 1 * 1 ) » OFFSET  ( I)  * 

3 FAILU)*  NADI S (I)«  NOSHOW  (I)»  8AKL0G  (I)* 

4 CONV  (2*  I ) » LEN  (2*1)*  CAP  (2*1)*  BCAP  (2»D*  DEMAND  (2*1)* 

5 ROMANO  (2*1) « CHGwK ( 1 « I ) * CONV  ( 3* I > * LEN  (3«I)«  CAP  (3*1)* 

6 BCAP  (3*1)*  DEMAND  (3*I)»  8UMANU  (3*1) » CHGWK  (2*I)t  PAOB  (I)* 

7 PFAIL  (I)*  PRTY  (I)»  TYPE  (I).  PNEC  (I) 

C 

2133  FORMAT  ( 4A1 * A4 * 1 X * AM* A2 *2AB * 1 3*F4 . 0 1 2 1 3* 2 IS* 12* 3FS.3* 3X * / 

• I4*4X*  2(13. F4. 0.213*215*13) • F4 . 1 * F5. 3* 2A2* A4* JX ) 

C 

IF  (NGR  *GT.  0)  GO  f 0 2139 

TABLE  VI-17  (Continued) 


o n o n n 
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II  * II  ♦ 2 

IF  (DONEFL)  213b*  213A.  12139  i /•  -1  SEL.O  NOKM.l  COP*/ 

2134  CRbES  = CRStb  ♦ 1 1 IF  (11  .GT.  ebb)  bO  TO  2139  ;/*ExIT-  FULL  */ 


GO 

TO  2132 

J/*hEAO  ANOTHER  COURSE  */ 

C SCHOOL 

SELECT 

- DOLLAR  In  FItLL)  BLANKS  SEARCH 

213b 

IF 

(SLSCHl 

• EU. 

DOLLAR)  bU  TO  213b 

IF 

( SLbCHI 

. E 0 . 

bCHi ( I ) ) GO  TO  213b 

GO 

TO  2139 

21  3b 

IF 

(SLSCH2 

• to. 

DOLLAR)  GO  TO  2137 

IF 

(SLSCH2 

• to. 

bCHE  ( I ) > GO  TO  213  7 

GO 

TO  2132 

2137 

IF 

(SLSCH3 

• to. 

DOLLAR)  bO  TO  21JM 

IF 

<SLaCH3 

• EQ. 

bCH3(I))  GO  TO  213B 

oO 

TO  2132 

213* 

IF 

(SLbCHA 

• Eu. 

DOLLAR)  Gu  To  213a 

IF 

( SLSCH4 

• EU. 

SCHA ( 1 ) ) Go  TO  2134 

GO 

TO  2132 

121 

CRSES  = CRSES  ♦ 

l 

2139 

c 

IF 

(CRStS 

.LE.  0)  GO  TO  199B  {/*  C*IT-  NO  CRbES 

WRITE  (6. 

12002) 

ChSES 

12002 

C 

FORMAT  (•  1 

COURSES  ACTIVE  T«Ib  hJN*.  lb) 

CC  INITIALIZE  BACKLOG  POOL  - B*KLOb  lb  COUKbt  BACKLOb  IN  WEEKS*  CONVERT 
C TO  STUDENT  DEMAND  K IMT  TO  BKLGhL.  ZERO  BACKLOG  IF  NEGATIVE  INPUT  EhR 
C IN  I T BACKLOG  POOL  TO  H CONVtNlNbS  IF  NO  'A*  CONVENINGS. 

C 

DO  720  1*1*  CRbES 
IF  (BAKLOG  (I))  HI*  72 0*  712 

711  RAKLOG  (I)  = 0 

WRITE  ( b » 11011)  COP  (I) 

11011  FORMAT  (•  NEG  HaCKLOG  COURSE  '♦  aa.  » /EROEu  THIS  PUN') 

GO  TO  720 
C 

712  II  = 1 

IF  ( CONV  (II.  I))  713*  713*  ZlA 

C NO  'A'  CONVENINGS.  TfcaT  H CONVENING^ 

713  II  = 2 

IF  (COnV  (II.  D)  720  • 720.  71a 
C HAVF  CONVENINGS.  II  POINTS  AT  WHICH  ONE 

714  12  = CAP  (11.  1)  - HCAP  (II.  1) 

IF  (12)  720.  720.  71b 

71b  SELCRS  * bO.  / CONV  (11.  I) 

HKLGPL  (1)  = (oAKLOG  (1)  / SELCRS)  * 12 
BKLG  (1)  * HKLGRL  (I) 

720  CONTINUE 

OVERRIuE  ROUTINES  - FROM  PARAMETER  CARO 


FAIL  OVERRIDE  - ITEM  IS  FLAG.  TtM  IS  MULTIPLIER 


IF  (ITtM)  91007.  91007.  91001 

91001  IF  (TtM)  91002.  91004.  910OA 

91002  WRITE  (b*  91003)  TtM 

91003  FORMAT  (•  NtGATIVt  OVtMRlOt  - REUUEST  IGNORED. 
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60  TO  91007 

91004  WRITE  (6*  91005)  1 EM 

91005  FORMAT  (•  FAIL  OVERRIDE-  RATES  MULT  bY * * Fb.3* 
DO  91006  1*1*  CRSES 

91006  FAIL  (I)  = FAIL  (I)  * TEM 


THIS  RUN  ONLY*) 


TEM1 


91007 

91011 

91'012 


91006  FAIL  (I)  = FAIL  (I)  * TEM 
C 

C NO  SHOW  OVERRIDE  - FLAG  IS  I TEMl * MULT  IS  TEM1 
C 

91007  IF  (ITEM1)  91017*  91017*  91011 
91011  IF  (TEMl)  91012*  91014,  91014 
9li012  WRITE  (6*  91003)  TEMl 

GO  TO  91017 

91014  WRITE  (6*  91016)  TEMl 

91015  FORMAT  (•  NO  SriOw  OVERRIDE  - RATES  MULT  0Y**F6.J*»  THIS  RUN  ONLY*) 
DO  91016  1*1,  CmSES 

91016  NOSHOW  (I)  = NUSHOw  (I)  * TEMl 
C 

C DEMAND  OVERRIDE  - FLAG  IS  ITEM2*  MULT  IS  TEM2 
C 

91017  IF  (ITtM2>  91027,  91027*  91021 
91021  IF  (TEM2)  91022*  91024*  91024 


DEMAND  OVERRIDE  - FLAG 


I TEM2»  MULT  IS  TEM2 


<ITtM2>  91027,  91027*  91021 
(TEM2)  91022*  91024*  91024 


91022  WRITE.  (6*  91003)  TE  M2 
GO  TO  91027 

91024  WRITE  (6*  9102b)  TtM2 

91025  FORMAT  (•  DEMAND  OVER® I DE -DEMANDS  MULT  dY*,E6.J**  THIS  RUN  ONLY') 
00  91026  1*1*  CRSES 

DO  91026  II  = 1*  3 

DEMAND  (11*  1)  = DEMAND  (II*  I)  * TEM2  ♦ .5 

91026  HOMAND  (II*  I)  = BDMANU  (II*  I)  * TEM2  ♦ .5 
C 

C OVERRIDE  ANNUAL  CONVENINGS  - FLAG  IS  ITEM3*  MULT  IS  TEM3 
C 

91027  IF|(ITEM3)  9103/,  91037,  91031 
91031  IF"  TEM3)  91032,  91032*  91034 


91027  IF|(ITEM3)  9103/*  91037,  91031 

91031  IF"  TEM3)  91032*  91032*  91034 

91032  WRITE  (6*  91003)  TEM3 
GO  TO  91037 

91034  WRITE  (6*  91035)  TtM3 

91035  FORMAT  (•  CONVtNlNGS  OVEHM I DE-FRED  MULT  BY**Fb,3**  THIS  RUN  ONLY*) 
, DO  91036  1*1,  CRSES 

00  91036  II  = 1,  3 

91036  CONV  (II*  I)  = CONV  (II,  I)  * TEM3  ♦ 0.6 
C 

C CAPACITY  OVERRIDE  - FLAG  IS  ITEMS . MULT  IS  TEM5 
C 

91037  IF  (ITEMS)  91057*  91057*  91051 
91051  IF  (TEM5)  91052*  91052*  91054 


ITEMS.  MULT  IS  TEM5 


91037  IF  (ITEMS)  91057*  91057,  91051 

91051  IF  (TEM5)  91052*  91052*  91054 

91052  WRITE  (6*  91003)  TeMS 
GO  TO  91 057 

91054  WRITE  (6*  91055)  T EM5 

91055  FORMAT  (»  CAPACITY  OVERRIDE-CAP  MULT  8Y**F6.3** 
00  91056  1*1*  CRSES 

00  91056  II  * 1*  3 

CAP  (II,  I)  = CAP  (II*  I)  * TEMS  ♦ .5 

91056  BCAP  (11*  I)  * BCAP  <11,  1)  • TEMS  ♦ .5 

C TABLE  VI-17  (Continued) 
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91057  IF  (TDMAND  .GT.  0.)  WRITE  (h,9l05H)  TOmanD 

91058  FORMAT  <•  TREND  OPTION-  DEMANDS  MULT  Hr  • * Fb.3»  • EACH  YEAR*) 

C 

C TEST  IF  LENGTH  INPUT  In  DAYS*  CONVERT  TO  wEtKS  IF  IN  DAYS  FOH  EXECUTE 
C 

IF  (WKFLG)  91  Obi  * 9 1 Ob 1 » 910b9 

91061  DO  91068  J = 1*  3 

DO  910b8  I = 1 » CHSFS 

IF  <LFN  U«D)  9 1 Obrt  * 9l0bH,  91062 

91062  ITEM  = LEN  (J,I)  / 7 

TEM  = LEN  (J*I)  - ITEM  * r 
IF  (TEM  .GT.  b)  TEM  = 5 
LEN  (J,I)  = ITEM  ♦ TEM  / b. 

91068  CONTINUE 
C 

C LENGTH  OVERRIDE  - M 1 N CHANGE  - HALF  DAYS  ONLY 

C SET  TEM  TO  1 IF  LENGTH  IuPUT  IN  DAYS*  10  IF  IN  WEEKS 

C 

91069  IF  (ITEM4)  91 04  / * 91047,  91041 

91041  IF  ( TE M4 ) 91042,  91042,  91044 

91042  WRITE  (6,  9100j)  TEm4 
GO  TO  91047 

91044  WRITE  (6,  91045)  TEma 

91045  FORMAT  (•  LENGTH  OvERRIOE-LEN  MULT  BY*,F6.3*»  THIS  RUN  ONLY*) 

91 $49  DO  91046  1=1,  CRSES 

DO  91046  II  = 1,  3 

IF  (LFN  (II, I)  .LE.  0)  GO  TO  91046 
ITtM  = LEN  (11,1)  * T EMa  * 10.  ♦ 1 
LEN  (U,I)  = ITtM  / 10. 

91046  CONTINUE 
C 

C TEST  COURSE  uATA  MAThIX  FOR  INVALID  OR  NEGATIVE  DATA 
C 

91047  DO  25  I = 1,  CRSES 
C 

PFAIL  (I)  = FAIL  (1)  * 100. 

C 

C CLAMP  OFFSET  AT  1 YEAR 

C 

ITtM  = OFFStT  (I) 

IF  ( I AbS  (ITEM)  .LE.  51)  bO  TO  12 

OFFSET  (I)  =0 

WRITE  (6,  10017)  LDP  (I) 

10017  FORMAT  (•  OFFSET  GT  1 YEAR  FOR  COURSE  •*  Aa,  • ZEROED  THIS  RUN*) 

12  CONTINUE 

TEST  MULTI  DIMENSIONED  DATA,  TEST  ALL  FOR  II  = 1,  REST  ONLY  IF  CHG  WK 

00  25  11  = 1,  3 
12  = II  - 1 

IF  (12)  15*  15,  13  v 

TEST  CHANGE  WEEK  FOR  NEG,  SKIP  FURTHER  TESTS  IF  NO  CHANGE  WEEK 

13  IF  (CHGWK  (12,  I))  14,  25,  15 

14  CHGWK  ( 12.,  I)  =0 
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WRITE  (6*  1103b)  COR  (I) 

1103S  FORMAT  (•  NEGATIVE  CHANGE  MEEK  COURSE  **AM.»  ZEROED  THIS  RUN*) 

GO  TO  Zb 

TEST  CONVENINGS  - BYPASS  FURTHER  TESTS  IF  0 CONVENINGS 

15  IF  (CONV  (II.  I) ) lb.  ?b.  17 

16  CONV  (II.  I)  = 0 
•RITE  (6.  10012)  COP 

0012  FORMAT  (•  NEGATIVE  CONVENINGS  FOR  COURSE  ».  AM.*  ZEROED  THIS  PUN*) 
GO  TO  25 

17  IF  (LFN  (11.  I))  IB.  19*  19 

18  LEN  (II.  I)  = 0. 

WRITE  (6.  33)  COR 

33  FORMAT  (•  NEG  LENGTH  COURSE  *.  AM.  » ZEROED  THIS  RUN*) 

19  IF  (CAP  (II.  I))  20.  21.  21 

20  CAR  (II.  I ) sO 
WRITE  (6.  3M ) COR  (1) 

3M  FORMAT  (•  NEGATIVE  CAPACITY  COURSE  *.  Am.  « ZEROEO  THIS  RUN*) 

21  IF  (RCAP  (II.  D)  22.  23*  23 

22  RCAP  (II.  I)  = o 
WRITE  (6*  3M ) COR  (I) 

23  IF  (DEMAND  (II*  I>)  2M.  731.  701 
2M  DEMAND  (II.  I)  = 0 

WRITE  (6.  1101b)  CDP  (I) 

1018  FORMAT  (•  NEGATIVE  DEMAND  FOR  COURSE  '.AM.  • ZEROEO  THIS  RUN') 

701  IF  (BDMANO  (II.  I))  702.  2b.  703 

702  ROMANO  (II.  I)  = 0 
WRITE  (6.  1101b)  COP  (I) 

GO  TO  2b 

703  IF  (RCAP  (II.  I ) ) 1 1019.  llOlv.  2b 

1019  WRITE  (6.  11020)  CDP  (I) 

1020  FORMAT  (•  WARN1NG-BUPERS  DEMAND  WITH  NO  8UPEKS  SEATS  COURSE  ••  AM) 
25  CONTINUE 


OUTLINE  ERROR  MESSAGE b 
WRITE  (6*  1011) 

IF  (NEGFLG  *GT.  0)  wPITE  (6.  1013) 

013  FORMAT (/  • RREWUN  FLAG  StT-  MlH  QTR  WILL  HE  RUN  TO  INIT  CRSES  IN  S 
•ESSION  AT  MODEL  START*.//) 


•••**•  emo  MODEL  INITIALIZATION  - BEGIN  ACTIVE  MODEL  LOOP  *********** 
YEAR  LOOP  - ALLOWS  MODEL  TO  RUN  MULTIPLE  YEARS.  YEAR  INPUT  ON  PARM  CRD 
YEARUN  HANDED  OFF  TO  OTHER  SUBROUTINES  TO  TEST  CHANGE  DATE 


TABLE  VI-17  (Continued) 
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Y = YE AH ON 

00  999  YEARUN  = SELYH.  Y I /*  SELYH  IS  1.2,  OH  3 FOR  FY  OF  HUN  */ 
QUAHTEH  LOOP  - MODEL  HUNS  ON  * (BARTERS  OF  13  WEEKS 
00  900  TEmu  = 1»  A 


0800  CONTINUE  * /*  ENTRY  FOR  PREHUN  END  */ 
u = TEMG 

TEST  FOR  NE6FLAG*  OVERRIDE  0 IF  PREHUN 
IF  (NEGFLG  .GT.  0)  O = <t 

******  nEGIN  LOWEST  0*DEh  (WEEKLY ) CYCLING  FOR  TPF  MODEL  ****** 

loop  through  entire  course  matrix  on  a weekly  basis 

00  BOO  « = 1*  1 J 

INITIALIZE  'LAST*  To  1.  USED  To  FIND  LAST  USED  POSITION  IN  CHS  ACTIVE 
MATRIX  by  crshls  subroutine 

last  = 1 

NOW  = ( (0  - l)  * 13  ♦ W)  ♦ 2 * (YEARUN  - in 

loop  through  course  matrix 

DO  S00  I = It  LRSES 


SET  UP  PROPER  COURSE  CONVENING,  LENGTHt  6.  CAPACITY  DATAt  DEPENDING  ON 

whether  or  not  a course  change  date  HAS  PASsEO 

USE  A CONVENINGS  IF  NFGFLG  (PREHUN)  FLAG  IS  ON 


ITEM  = 1 

IF  (NEGFLG)  1 1 OJA  t 1 1 034 1 37 
1034  IF  (CHGWK  (It  I))  137 1 137t  Jt> 

HAVE  A CHANGE  WEEK  - CHECK  IF  EITHER  HAS  PASSED  (1  DOMINANT) 
35  IF  (NOW  .LT.  CHGWK  (It  I))  GO  TO  37 
ITEM  = 2 

IF  (CHGWK  (2 1 1 ) ) 3t> t 36 1 39 
39  IF  (NOw  .LT.  CHGWK  (2t  I)>  GO  TO  36 


CHANGE  WEEK  2 HAS  PASSED  - USE  '3*  DATA 
ITEM  = 3 

C IF  CONV  FREQ  LT  a SET  OFFSET  TO  CHANGE  WEEK  (TO  ASSURt  CHS  START) 
36  WKOFF  = 0 

IF  (CONV  (ITEMt  I)  .LT.  6)  WKOFF  * CHGwK  (ITEM-1,  1)  - 1 
GO  TO  38 


o 


137  ITEM  * YEARUN  * /*  FORCE  DATA  FOR  YEAN  OF  RUN*/ 

37  WKOFF  * OFFSET  (I) 

38  SCONV*  CONV  (ITEM.  I) 

SEEN  * LEN  (ITEMt  I) 

*CAP  * CAP  (ITEMt  I) 
fflCAPs  BCAP  (ITEM,  I) 
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COURSE  = I ♦ (ITEM  * 1000) 

TEST  FOR  CONVENINGS*  Sr  IP  IF  CONVENINGS  LE  0 
IF  (SCONV)  S00.  500,  51 


SIMULTANEOUS  COURSES  SET  UP  FOR  THOSE  COURStS  THAT  MEET  MORE  THAN  ONCE 
PER  WEEK  t 50  CONV)*  OR  FOR  COURSES  WHOSE  LENGTH  IS  SUCH  THAT  NEW 

^essions  convene  before  the  previous  session  graduates. 


SET  up  COUNTER  'SIMUL'  To  indicate  number  of  sessions  of  the  same 
course  convening  simultaneously  due  to  convening  freu  GT  THAN  1 / WEEK 

MULTIPLE  CONVENING  SChtUULES  SET  UP  AS  NEEDED  In  ARRAY  C (I)*  MAX  10. 

51  01  VSR  a ((SCONV  - 1)  /SO)  ♦ 1 
OUOT  = SCONV  5 SIMUL  = DIVSR 

NOW  BREAK  UP  COURSE  INTO  SEPARATE  SECTIONS*  WITH  APPROX  SAME  NUMBER 
OF  INDIVIDUAL  CONVENINGS*  AND  EXACTLY  SAME  NUMBER  TOTAL  CONV. 


DO  100  II  = 1.  gIMUL 
IF  (DIVSR)  100*  100*  V9 
99  C(I1)  * OUOT  / DIVSR 
DIVSR  a DIVSR  - 1 
OUOT  a QUOT  - C (11) 

100  CONTINUE 

CALC  OFFSET  - OFFSET  AVAILABLE  AS  A MODEL  INPUT  TO  DELAY  OR  ADVANCE 
A COURSE  CONVENING  SCHEDULE 


OFFSET 

WKOFF) 


152  * 


151* 


152 

« 


NO  OFFSET.  SET  wEF.Kb  & QUARTERS  TO  ACTUAL 


151  01  « 0 I W1  a i*  { GO  TO  lt>U 

t 

HAVE  OFFSET.  STRAIGHTEN  OUT  IF  NEGATIVE  (PRESTART) 

152  ITEM  a «koFF 


MODIFY  QUARTERS  & WEEKS  TO  WEEKS 
ITEM1  * ( (Q  • 1 ) *13)  ♦ W 

SUBTRACT  OFFSET 

ITtMl  a 1TEM1  - ITEM 

SKIP  CRSRLS  IF  0 OR  NEG 

IF  (ITEM1)  500*  500.  153 


WEEKS  POSITIVE*  CLAMP  TO  5? 

153  IF  (ITEM1  .GT.  52)  ITEMl  * ITEMl  - 52 


CONVERT  BACK  INTO  WORKING  WEEK  FOR  SCHEDULE  MATRIX 

I 


- -*-■ 


!t  I • 
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01  * (ITEMl  / 1J>  ♦ 1 

Rl  = ITEMl  - ( (01  - 1 ) * 13) 


160  00  200  12  * 1*  bIMUL 

ITEM  s C (12)  » IF  (ITtM)  200*  200.  199 

199  ITEMl  = ISCHO  (wl.ITEM)  / DIV  (Ml) 

C 

IF  (((  ITEMl/  c)  * 2)  .Ec.  ITEMl)  GO  TO  200 
C 

C COURSE  SECTION  CONVENES  This  »EEK*  CALL  COURSE  RELEASE  -TO  ACTIVE  M|TRX 
C 

CALL  CKSRLS  (I) 

C 

200  CONTINUE 

500  CONTINUE 
C 

C SAVE  NUMBER  OF  COURSES  RELEASE!)  (OK  ACTIVE)  THIS  MEEK 
NUMRUN  * LAST  , 

C 

C 

c 

C ****  END  COURSE  RELEASE  - NO*  CHECK  ACTIVE  MATRIX  FOR  COMPLETIONS  ***• 

C 

C 

C SEARCH  COURSE  ACTIVE  MATRIX  FOR  COURSES  THAT  ENO  THIS  MEEK 
C ACTIVE  (I)  CONTAINS  RELATIVE  COURSE  NUMBER*  CHS  ACTIVE  IF  GT  ZERO 

C 

C DON  * T TERMINATE  OR  COUNT  DOWN  COURSES  DURING  CHRISTMAS  RECESS. 

C 

IF  (0  .EG.  2 .AND.  m .CO.  13)  GO  TO  601 
IF  (Q  . EU • 3 «mN().  m ,EU.  1)  GO  TO  601 
C 

C SKIP  COURSE  END  IF  NEGFLAG  (PRESTakT)  IS  ON 
IF  (NEGFLG  .GT.  u)  60  TO  oOl 
C 

DO  600  I = 1*  250 

IF  (ACTIVE  (I))  600*  600*  SOI 

C I 

C COURSE  ACTIVE  - SUBTRACT  1 FROM  REEKS  TO  ENU  6 TEST  IF  COMPLETE 
C ACTCTR  (I)  CONTAINS  «ECKS  TILL  CHS  END*  COURSE  ENDS  IF  0 OR  NEGATIVE 
C 

501  NUMRUN  s I 

ACTCTR  (I)  * ACTCTR  (I)  - 1. 

IF  (ACTCTR  (I))  502*  502*  600 
C 

C COURSE  ENDS  THIS  REEK  - CALL  COURSE  END  SUBROUTINE 
C 

502  CALL  CRSEND  (I) 

c 

600  CONTINUE 

601  CONTINUE  , 

C 

c/////////////////////////////////////////////////////////////////////// 

c TRACE  PRINT  ROUTINE  - PRINT  ONLY  IF  PROPER  TRACE  FLAG  IS  SET 
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IF  (TRaCEF)  800.  800.  10602 
10602  WRITE  (6*  11134)  W«  U.  Yt AH • NUMHUN 

11134  FORMAT  (•  TRACE*  END  OF  WtEK  MEEK  = ».  13*  M QUARTER  «*»  12* 

1*1  YEAR  = •.  IS.  SX.  'COURSES  ACTIVE  ThIS  WEEK  14./) 

c/////////////////////////////////////////////////////////////////////// 

c ******  ENO  WEEKLY  COURSE  LOOR  - END  COURSE  bT ART  AND  COMPLETE  ****** 

C 

800  CONTINUE 
C 

C TEST  IF  NEGFLG  IS  ON.  INDICATINO  THAT  QUARTER  RUN  PRIOR  TO  THE  START 
C OF  MODEL  FISCAL  YEAR  CYCLING, 

C 

IF  (NEGFLG)  802.  802.  801 
C 

C NEGFLG  ON.  CALL  SUBROUTINE  PRERUN.  CLEAR  FLAG.  AND  BRANCH  TO  BEGINNING 
C OF  QUARTER  CYCLING 
C 

801  CALL  PRERUN  (2) 

NEGFLG  * 0 ; GO  T|  10800 

802  CONTINUE  I 

C ! 

C END  QUARTER  LOOP  - CA^L  UPTEND  SUBROUTINE  TO  COLLECT  QUARTERLY  DATA. 

C T ♦ 
call  QRTEND  (')> 

c 

BOO  CONTINUE 
C 

C ENO  ANNUAL  (4  QUARTERS)  LOOP  - CALL  YEAR  END  SUBROUTINE  TO  AGGREGATE 
C AND  PRINT  ANNUAL  TOTALS. 

C 

CALL  YEARND  (Y) 

C 

999  CONTINUE 
C 

1998  WRITE  (6.  5000)  CRSES 

IF  ( YPFLG  ,LE«  1)  WRITE  (11.  aOOO)  CRSES 
5000  FORMAT  ( ' 1END  OF  TPF  OUTPUT*.  14.  • COURSES  PROCESSED'*  / '✓•/•*•) 
C 

I STOP 
END 


SUBROUTINE  PRERUN  (A) 

c 

IMPLICIT  InTEGEm*2  (A-Z.S) 

C 

C COMMON  DATA  FOR  CL*SS  DATA  MATRIX 
C 

REAL*4  LEN.  NOSHOW.  NOSHPL.  BKLGPL.  bPOOL.  NAOIS.  FAIL.  COP 
REAL*4  TDMANO*  SETbAK.  DATE 


COMMON  /DATA/  COP  (328).  CRSRUN  (328).  CONY  (3.328).  LEN  (3.328) 
COMMON  /DaTA/  CAP  (3.328).  8CAP  (3.328).  CHGWK  (2.328) 

COMMON  /OATA/  OFFSET  (328) • DEMAND  * (3.328) . BDMAND  (3.328) 

COMMON  /DATA/  BPOOL  (328).  FAIL  (328).  NADIS  (328).  NOSHPL  (328) 
COMMON  /DATA/  BAKLOG  (328).  NOShOW  (328).  BKLGPL  (328) 
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C BUPERS  MAS  OEMANO  - CALC  DEMAND  PEW  CONVENING. 

C TEM  EQUALS  SUPERS  STUutNTS  (REAL). 

C 

101  TEM  = 0. 

TEMl  = iCONV 

IF  (SCONV)  10  J,  10J»  102 

102  TEM  s sbOMND  / TtMl 
C 

C NOW  PUT  ANY  FRACTIONAL  DEMAND  InTO  SAVE  POOL*  ITEM  NOW  EU  TO  SUPERS 
C STUDENTS  (INTEGER) . 

C i 

103  ITEM  = TEM  ■«* 

RPOOL  (X)  = MPOOL  (*)  ♦ (TEM  - ITEM) 

C 

IF  ( HPOOL  (X)  .LI.  1)  GO  10  lUb 
C 

C POOL  has  MURE  than  1 STUDENT,  wELEASE  L CLEAR  POOL  OF  WHOLE  STUDENTS, 
C 

I TtMl  = bPOOL  (x) 

SPOOL  (X)  = SPOOL  (X)  - ITtMl 
ITEM  = ITEM  ♦ ITtMl 
C 

C END  SUPERS  UEMmNU,  I TtM  = NUMntw  OF  STUDENTS,  0 IF  NO  BUREAU  DEMAND. 
C ENTRY  IF  NO  BP  DEMAND. 

C 

C NOW  RELEASE  LOCAL  UUOTA  CONTrdL  DEMAND  - SEATS  AVAILABLE  = CAPACITY 
C MINUS  BUREAU  CONTROLLED  SEATS • 

C 

10P  ITtMl  = $CAP  - i>HC AP 

IF  (ITtMl)  1110b.  11106.  11106 
1110P  ITtMl  = 0 
C 

C FIND  LOCAL  DEMAND  for  COURSt  - DEMAND  = ANNUAL  DEMAND  / CONVENINGS. 

C ADD  THIS  DEMAND  ( TtM)  TO  BKLGPL  OR  USE  AS  DEMAND  IF  IN  PREKUN 
C IF  IN  INIT  (PRERUN)  mOOE-SET  DR  CLASSES  BUT  DUNT  ADJUST  POOLS 
C 

11106  TEM  = SDMANO  / *C0NV 

IF  (NEGFLG)  107,  107,  10r 
C 

C HERE  IF  NEG  FLG  UN-  HAVE  BORERS ( ITEM) , NOW  ADD  LOCAL  - NO  SHOW  (TEM) 

106  ITEM2  = TtM  - (TEM  * NOSHOw  (X)) 

IF  (ITEM2  .GT.  I TEMl ) I T EM2  = I TEMl 
ACTUTL  (Y)  * IltM  ♦ ITEM* 

GO  TO  999 
C 

C HERE  IF  NORMAL  HtLE«SE  - ADJUST  POOLS  ETC 
C 

107  BKLGPL  (X)  = HKLGPL  (X)  ♦ TEM 
C 

C RELEASE  LOCAL  STUDENTS  - MAKE  INIT  ASSUMPTION  ENTIRE  POOL  CAN  FIT. 

C ITEM?  tNUALS  LOCAL  QUOTA  CONTROL  STUDENTS. 

C 

ITEM?  * BKLGPL  (X) 

C 

C TEST  IE  POOL  GT  CAPACITY. 
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c 

c 

c 


EXIT  SUBROUTINE 
GO  TO  999 


C 

C 

C 

C 


have  found  opening  in  table*  opening  is  *y»*  coukse  pointer  is  »x». 

TEST  IF  NEGFLG  IS  ON  ( INDICATES  MODEL  PRESTART  CONVENING). 


SO  IF  (NEGFLG)  60*  60*  bl 


C 

V 

c 


HERE  IF  FLAG  IS  ON  - CALL  PRESTART  SUBROUTINE  TO  TEST  IF  COURSE  SHOULD 
BE  STARTED.  INIT  RETURN  CODE  (DUMMY)  TO  0 


SI  OUMMY  * 0 

CALL  PRERUN  (0) 


C 

c 

c 

c 


RETURN  CODE  1 IF  COURSE  TO  BE  STARTED*  0 IF  TO  SKIP  (OUMMY) 

IF  COURSE  TO  DC  STARTED*  SKIP  OVER  QUARTERLY  TOTAL  ACCUMULATE. 


IF  (DUMMY)  999*  999*  63 


C 

C 

C 

C 


COURSE  SHOULO  BE  RELEASED  NORMALLY  * ACCUMULATE  TOTALS  IN  QUARTER  MTRX 
FOR  CONVENINGS  AND  CAPACITY. 

60  TCONV  (Q*  X)  * TCONV  (Q*  X)  ♦ 1 
TCAP  (Q*  X)  • TCAP  (Q*  X)  ♦ SCAP 


C 

c 

c 

c 


LOAD  ACTIVE  MATRIX  L BUMP  CRSRUN  COUNTER  IN  COURSE  MATRIX*  BREST AMT 
COURSES  ■'ENTER  ROUTINE  HERE.  SAVE  LAST  AS  NEXT  POINTER  TO  ACTIVE  MATRX 


63  CRSRUN  (X)  * CRSRUN  (X)  ♦ l 
ACTIVE  (Y)  * COURSE 
ACTCTR  (▼)  ■ SLEN 

ACTNEG  (Y)  = 0 
LAST  a Y 


C 

C 

C 

C 


ROUT INt  TO  ALLOW  MULTI  YEAn  kUN  WITH  ONLY  I YEAR  SCHEDULE  OA^TA  • 
CRITERIA*  USE  REVISED  DEMAND  IF  AVAILABLE*  USE  CHANGE  DATA  IF  CNB  FLB 


ITtM  a COURSE  / 1000 
IF  (YEAMUN  *LT.  2)  GO  TO  70 
IF  (ITEM  .BT.  1)  GO  TO  70 
IF  (DEMAND  (YEARUN*  X))  70*  70*  65 
65  ITEM  • VEARUN 

70  BOMANO  • DEMANO  (ITEM*  X)  -BDMAND  (ITEM*  X) 

IF  (BOMANO)  71*  72*  72 

71  BOMANO  *0  \ 

72  SBOMNO  • BOMANO  (ITEM*  All 

CHECK  IF  OUMCMB  HAS  ANY  CONTINUED  DEMAND  FOR  THIS  COURSE" I TEN  IB  NOME 
CURRENTLY  MODEL  ALLOMS  BUBERS  TO  OVERBOOK  THERE  COURSE 


ITEM  • 0 

IF  JBSDMMO)  105*  105*  101 
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COMMON  DATA  FOR  CLASS  DATA  MATRIX 


REAL** 

REAL** 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


LEN*  NOSHOW.y  NOSHPLy  BKLGPLy  BPOOL*  NADISy  FAIL*  COP 
TDMANOy  SETfeAKy  DATE 


ly  SEllBAK y DATf 

CDP§(328).  Cf 
’ CAP  ' (3*328) y 


/DATA/  CDPw( 328 ) y CRSRUN  (328) * CONV  (3*328)*  LEN  (3*328) 
/DATA/  CAP  ' ( 3 * 328 ) * BCAP  (3*326)*  CHGWK  (2*328) 

/DATA/  OFFSET  (328)*  DEMAND  (3*328)*  BDMAND  (3*328) 

/DATA/  BPOOL  (328)*  FAIL  (328)*  NADIS  (328)*  NOSHPL  (328) 
/DATA/  BAKLOG  (328)*  NOSHOW  (328)*  BKLGPL  (328) 

/DATA/  BKLG  (328)*  TDMANO*  SETBAK*  DATE 


QUARTERLY  AND  ANNUAL  UOURSE  TOTALS  ACCUMULATION 


REAL**  TFAIL*  TnAQIS 
INTEGER**  TSDAYS*  TCAP.  TuTIL 
C 

COMMON  /TOTALS/  TCAP  (S*  328)*  TUTIL  (5?  328)*  TSETBK  (5*  328) 
COMMON  /TOTALS/  TSDAYS  (S*  328)*  TFAIL  (5.  328)*  TNOSMO  (5*  328) 
COMMON  /TOTALS/  TNADIS  (b*  328)*  TBKLOG  (5*  328)*  TCONV  (5*  328) 

C 

C COMMON  FOR  COURSE  ACTIVE  MATRIX  ELEMENTS 
C 

REAL**  ACTCTR 

COMMON  /RUN/  ACTIVE  (2S0) * ACTCTR  (2b0)*  ACTUTL  (250)*  ACTNEG(250) 
C 

C COMMON  FOR  COMMUNICATION  BETWEEN  SUBROUTINES 
C 

INTEGER**  ITEM*  I TEM1 y I TEM2 * ITEM3*  ITEM**  ITEMS*  WHERE 
REAL**  TEM*  TEMl ♦ TEM2 * TEM3*  TEM*»  TEMS.  SLEN 
C 

COMMON  DUMMY*  SCONV*  SLEN*  SCAP*  SBCAP*  LAST*  COURSE 
COMMON  SRI »$R2*SR3*$R**  TEM*  TEMl*  TEM2*  TEM3*  TEM**  TEMS 
COMMON  ITEM*  I TEMl • ITEM2*  ITEM3*  ITEM**  ITEMS 
COMMON  YEAR*  CRSES*  U<  W»  WKOFF * INIT*  WHERE*  NEGFLG*  AOBCON 
COMMON  TRACEF*  HLSFLG*  ENDFLG.  PREFLG*  YRFLG* YEARUN*P«INTF*NGR 
C 

C i 

C SEARCH  ACTIVE  MATRIX  FOR  FIRST  AVAILABLE  SLOT  FOR  NEW  ACTIVE  CONVNING. 
C ACTIVE  (Y)  IS  ZERO  IF  NOT  IN  USE*  HAS  POINTER  TO  CRSE  MATRIX  IF  IN  USE 
C LAST  IS  POSITION  LAST  USED  TO  INSERT  A COURSE*  START  SEARCH  FROM  THERE 
C LAST  IS  1 IF  THIS  IS  FIRST  COURSE  RELEASE  FOR  THE  WEEK. 

C 

C TEST  IF  LOCATION  UNUSED  IN  ACTIVE  MATRIX*  EXIT  IF  FREE. 

C 

DO  10  Y a LAST*  250 
IF  (ACTIVE  (Y>>  50*  50*  10 
10  CONTINUE 
C 

C HERE  IF  TABLE  FULL  - CANNOT  RELEASE  COURSE-WRITE  ERROR  MESSAGE.  * 

C l 

WRITE  (6*  1000)  (COP  (X))  t 

1000  FORMAT  (1H0*  'COURSE  ACTIVE  TABLE  FULL  - COURSE  NOT  RELEASED** 

1 • COURSE  NUMBER  IS**  A6) 
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IF  (ACTIVE  (J))  BUO*  500.  -*U1 


C ACTIVE  COURSE  AT  *j«.  CALC  POSITION  IN  CLASS  OAT  A MATRIX  I 

C i 

401  ITEM  = ACTIVE  (J)  / IGOo 

it*.*  = ACTIVE  (J)  - ITEM  * 1000 
C 

C FIND  LENGTH  FOR  NEoUaVS  CALCULATION. 

C ACTCTR  CONTAINS  NUMHt R OF  *EEKS  *tMAININu  TILL  CLOSEOUT  OF  COURSE. 

C I 

! SLEN  = LEN  ( 1 . 1 T F. m ) - ACTCTh  (j) 

c 

C /////////////////////////////////////// //////////////////////////////// 
C TRACE  PRINT  ROUTINE  - PrINT  OnLY  IF  PROPtR  TRACE  FLAG  IS  SET 
IF  (PRtFLG)  40  3*  40. i,  4 0 2 

402  WRITE  (6.  4356)  CUP  ( ITEM) t -CTCTk  (j)»  SLEn 

4356  FORMAT  (•  PRESTART  CLOStuUT  Cl)P  = •*  A4*  3X»  »ACTCTk  * •*  Fb.l* 

1 • NEGLEN  = *.  F • 1 ) 

C./ //////////////// / ///////////// //////////////////////////////////////// 

c 

C TFST  AUH  CONSTANT  FOR  WHICH  mETHOU  OF  CALC  STUDENT  DAYS 

403  IF  (AOsCON  .GT.  juu)  GO  TO  4BU 
C 

C HERE  IF  CLASS  DAYS  mEThol)  USEU  TO  CALCULATE  AU0. 

c 

ACTNEG  (J)  = SLEi'i  * ACTUTL  (J)  *5.  ♦ .01 

GO  TO  50  0 
C 

C HERE  IF  CAlANOER  OaYs  METHOD  USED  FOR  AOh  CALCULATION. 

C 

450  ITEM1  = 4LEN  - 1 

TEN  = (ITEMl  * 2)  ♦ (iLEN  * b) 

ACTNEG  (J)  = TEM  * aCTUIl  (J)  ♦ .01 
C 

500  CONTINUE 

C MERE  IF  NO  MORE  ACTIVF.  COURSES  - EXIT  SUBROUTINE 


NEGFLG  = 0 


CONTINUE 


RETURN 
€ MO 

?u«**OUT  1NE  CKSRlS  (A) 


>.*•%«  RELEASE  (STAnT)  SUBROUTINE  - RELEASES  COURSE*  CALCULATES  SUPERS 
■*A*K  t ATTENDANCE*  LOCAL  UUOTa  CONTROL  SCHEDULING*  SACKLOG*  NOSHOWS* 

.^•iyuTe  quotas*  and  ultimate  class  utilization,  including  setbacks. 


»•  »Ai.S  - ADDED  To  OUAHTtR  TOTALS  AS  COURSE  RELEASES: 
. -Mci/AflON*  NOShO«S*  BACKLOG*  SUBSTITUTE  uUOTAS. 

— i-  , » (•-/*$) 

m 0 . *uRA4U.  pnOmHO 
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CUMMON  /DATA/  BKLG  (32B).  TDMAnD,  SET6AK,  DATE 
C 

C COMMON  FOR  COURSE  ACTIVE  MATRIX  ELEMENTS 
C 

PF.AL**  ACTCTR 

COMMON  /RUN/  ACTIVE  <2R<>),  ACTCTR  <?SO),  ACTUTL  (<ft>U>*  ACTNEG(2S0) 
C 

C COMMON  FOR  COMMUNICATION  BETwEEn  SUdRUUTlNtS 
C 

integer**  item,  itemi*  item*?,  item3,  item*,  items,  where  , 

real**  TEM,  TEE-ll*  TEM2 * TlK3»  TlM*. , TEM3,  iLEN 
C 

COMMON  DUMMY,  sCONV,  SIEN,  t>CAP»  SBCAP,  LAST,  COURSE 
COMMON  *Rl»*R2»i>K3»J>R*»  TEm,  TEM1 , TEM2 , TEMJ,  TEM*,  TEM5 
COMMON  ITEM,  ITEMI,  ITEM2*  ITEM3,  I TEMa , ITEMS 
COMMON  YEAR,  CRSES,  U,  w,  WKOFF  » INIT,  WHERE , NEGFLG,  AOHCON 
COMMON  TkACEF,  RLSFLG,  ENOFLG,  preflg,  yrflg, yearun,mrintf,ngr 
C 
C 

c this  subroutine  handles  the  unique  situation  where  a negative  offset 

C HAS  BEEN  SPECIFIED  TO  STAkT  a COURSE  PRIOR  To  ThE  START  OF  A MODEL  RUN 
C THIS  SITUATION  EXISTS  FOk  COURSES  OF  RELATIVELY  LONG  DURATION,  AND 
C RELATIVELY  FEW  CONVENINGS.  IT  I s USEFUL  TO  INDICATE  TRUE  AOB  DURING 
C A QUARTER. 

C 

C A CODE  OF  0 IS  IN  (X)  IF  CALLED  BY  COURSE  RELEASE,  2 IF  CALLED  BY  END. 
C 

IF  (X)  100,  100.  1000 

C 

c called  by  release,  test  if  course  should  Rt  released,  criteria  is  that 
c course  length  is  such  that  COURSE  will  still  be  running  at  model  start 

(J  til  ST  InIT  TO  SEE  IF  GENERAL  PRtRUN  OR  NEG  OFFSET  PkERUN 

C 

C 

100  TEM  = 1*.  - w 

IF  <*LEN  .LE.  TEM)  GO  TO  1999 
C 

C COURSE  SHOULD  BE  RtLEAStU  - SET  DUMMY  TO  1 FOR  RETURN. 

C MODIFY  LENGTH  TO  REFLECT  WEEKS  REMAINING  IN  1ST  OUaRTEK  OF  COURSE.  I 
C 

DUMMY  = 1 ; SLEN  = »LEN  - TEM 

c 

c///////////////////////////// /////// /////////////////////////////////// 

C TRACE  PRINT  ROUTINE  - PRINT  ONLY  IF  PROPER  TRACE  FLAG  IS  SET 
IF  (PHEFLG)  1999*  1999.  jOOl 
3001  WHITE  (b,  3000)  CUP  (COURSE),  COURSE*  WKOFF , SLEN 
3000  FORMAT  <•  PRERUN  CALLED  - CDP  = •*  A*,  • POSITION  *•»  15, 

1 * OFFSET  *•,  I*,  • LENGTH  IN  1ST  QTH  =•*  F*.l> 

GO  TO  1999  i 

c///////////////////// //////////////////////////////////////////////////. 

C I 

C I 

C MERE  IF  PRERUN  CLOSEOUT  ROUTINE  i 

C l 

1000  00  500  J s i,  *b0  l 


- 


A 


1'  <* 


TAEG  REPORT  NO.  36 


KEND 


FORTRAN 


- - 


1 


i I: 


i i 


C CLAMP  TO  CAPACITY  IF  GREATER. 

C ITEMl  lb  NON  LOCAL  UUOTA  CONTROL  CAPACITY 
C 

IF  (ITEM2  ,GT . ITEMl)  ITtM2  = ITEMl 
C 

C RELEASt  THESE  STUDENTS  TO  COOKSE.  CLEAR  FROM  POOL. 

PKLOPL  (A)  = HKLOPL  (X)  - I TEM2 
C 

C NOR  TEST  FOR  LOCAL  NO  ShORS 

NOSHPL  (X)  = NOSHPL  (A)  ♦ (ITEM2  * NOSnUR  (X)) 

C 

C SEE  IF  GT  1 IN  POOL. 

ITEM3  = NOSHPL  U> 

IF  (ITEM3)  111*  111.  llli 
C 

C NO  SHOrS  GT  1.  ADO  TO  TOTALS  & T AKt  FROM  CLASS. 

C ITEM3  IS  STUDENTS  FROM  NO  SHOR  POOL 

C 

110  TNOSHO  (Q.  X)  = TNOShO  (w.  X)  ♦ ITEMJ 
ITEM2  = ITEM2  - ITEMJ 

NOSHPL  (X)  = NOSHPL  (X)  - ITEM3 

111  CONTINUE 
C 

C NOR  TOTAL  STUDENTS  4 SEE  IF  FULL  CAPACITY. 

C ITEM  IS  BUPERS  STUOEnTS.  ITEM2  IS  LOCAL  STUDENTS  AFTER  NO  SHOR 
C 

ACTUTL  (Y)  = ITEM  ♦ 1TEM2 
C 

ITEMA  = 0 

IF  (ACTUTL  (Y)  .GE • SCAP)  GO  TO  114 
ITEM4  = (.1  * SCAP)  ♦ .3 
C 

C CAPACITY  NOT  FULL  - CHECK  IF  CAN  RELEASE  THESE  FROM  BACKLOG  POOL 
C 

ITEMS  = dKLGPL  (X) 

IF  (ITEMS)  114.  114.  113 
C 

C BACKLOG  POOL  GT  1.  RELEASE  SOHSTlTuTE  UUOTAS 
C CLAMP  STUDENTS  TO  MAX  IN  POOL. 

C 

113  IF  (ITEMS  .LT.  1 TEM4 ) I TEM4  = ITEMS 
ACTUTL  (Y)  = ACTUTL  (Y)  ♦ ITEM4 

C 

114  TUTIL  (O.X)  * TUTIL  (O.X)  ♦ aCTUTl  (Y) 

999  CONTINUE 

C 

C//////////////////////////////////////////////////////////////////////Z 
C TRACE  PRINT  ROUTINE  - PRINT  ONLY  IF  PROPER  TRACE  FLAG  IS  SET 
IF  (RLSFLG)  1010.  1010.  1001 
1001  RRITf 


) 


RRITE  (6.  1002)  CDP  (X).  ACTUTl  (Y).SLEN.  X*  LAST 
1 . iIem.  ITEM2.  ITEM4.  ITEMJ 


1002  FORMAT  (•  RELEASE-  CUP*  •»  A4.  *1  STUDENTS*  •»  IJ.  *1  LENGTH** 


l.FS.l.M  CRS  SEO= • « 1 4 • • I RUN  POSITN**.  14.  *1 
2L0CAL*  * * 13.  »*  SUBOTA**.  12. *1  NOSHO**.  13) 


HUPRS**.  13*  *1 
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IF  (NEbFLG  *6T.  U)  WRITE  (ft*  1003)  DUMMY 
1003  FORMAT  (•♦*♦  T1J2*  »P'»  ID 
1010  CONTINUE 

C//////////////////////////////////////////////////////////////////////Z 

RETURN 

END 

SUhROUTINE  CRStuU  (X) 

C SUBROUTINE  CHSENU  CALCULATES  PASS/FAlL/SETbACK*  NACDISENHOLLMENT* 

C ANO  CALCULATES  UTILIZATION*  TOTALS  FOR  QUARTERLY  REPORT 


1003)  DUMMY 


IMPLICIT  1nTEGEh*2  <A-Z*S) 

COMMON  DATA  FOR  CLASS  DATA  maTRIa 

REAL**  LENt  NOSMOw*  NOSHPl*  SKLGPL • fcIPUOL*  NADIS*  FAIL*  CD 
REAL**  TOMAnU*  StTbAK*  DATE 

COMMON  /DATA/  CUP  ( -icH ) * ChSKUN  ( J2B ) * CONV  (3*328)*  LEN  ( 
COMMON  /DATA/  CAP  (3*328),  hCAP  (3*32H).  CHGwK  (2*328) 
COMMON  /DATA/  OFFSET  (328),  DEMAND  (3*328)*  BDMAND  (3*328) 
COMMON  /DATA/  BPOUL  (32rt),  FAIL  (32 6) * NADIS  (328)*  NOSHPL 
COMMON  /DATA/  BAKLOO  (328)*  NOShOtt  (328) • bKLGPL  (328) 
COMMON  /DATA/  BKLG  (328)*  TOMAND*  SETBAK*  DATE 


(3*32 8) 


(328) 


QUARTERLY  AND  ANNUAL  COURSE  TOTALS  A 
REAL**  TFAIL*  TNAOIS 
INTEGEH**  TSDAYS*  TCAP*  TuTlL 
COMMON  /TOTALS/  TCAP  (S*  328), 
COMMON  /TOTALS/  TSDAYS  (S*  328)* 
COMMON  /TOTALS/  TNAOIS  (S»  328)* 


TOTALS  ACCUMULATION 


TUTIL  (B.  328)*  TSETbK  (B»  328) 
TFAIL  (5*  328)*  TNOSHO  (5*  328) 
TBKLOo  (S*  328)*  TCONV  (5*  328) 


COMMON  FOR 
REAL** 
COMMON 


COURSE  ACT  IV 
ACTCTR 

/RUN/  ALT  1 V t 


ACTIVE  MATkIx  ELEMENTS 


( 2B0  ) * ALTCTR  (?S0>*  ACTUTL  (250)*  ACTNEG(250) 


COMMON  FOR  COMMUNICATION  RETwEEN  SUBROUTINES 

INTEGER**  ITEM*  1TEM1,  ITEM2.  I TEM3*  ITEM*,  ITEMS,  WHERE 

REAL**  TEM*  TEM1*  TEM2*  TEM3*  TEM**  TEMa,  SLEN 

COMMON  DUMMY*  SCONV*  SLEN*  SCAP*  SBCAP*  LAST*  COURSE 

COMMON  SR1*$R2*SR3*SR<**  TEM,  T EM  I , TEM<?,  TEM3*  TEH**  TENS 

COMMON  ITEM*  ITEMl,  ITEM2*  ITEM3*  ITEM*,  ITEMS 

COMMON  YEAR*  CkSES*  U*  w*  mKOFF*  INIT*  WHERE*  NEGFLG*  AObCON 

COMMON  TRACEF,  HLSFLb*  ENDFLG*  PREFLu*  YRFLG* YE AHUN*PRINTF*NGP 


12  = 


ITEM2  = 


= ACTIVE 


CALLING  PARAMETER  *X»  IS  SUBSCRIPT  QK  COURSE  IN  ACTIVE  MATRIX, 

ACTIVE  (X)  CONTAINS  RELATIVE  COURSE  NUMBER  IN  COURSE  MATRIX*  HAS  1000 
ADOEO  IF  *1*  SCHEO*  2000  IF  *2'  SChED*  3000  IF  *3'  SCHED 

ITEMS  * J / 1000 
J * J - ITEM5  * 1000 


SLEN 


(ITEMS* 


CALCULATE  FAILURES  - FAILURE  RATE  FROM  REGRESSION  CONSTANTS 
NOTE  - J POINTS  TO  COURSE  MATRIX.  X POINTS  TO  ACTIVE  MATRIX 

TABLE  VI-17  (Continued)  j 
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TEN  = FAIL  (J)  * ACTU.L  U> 

TFAIL  Ui»  J)  = TK  ML  (0*  J)  ♦ TtM 

CALCULATF.  NON-ACADEMIC  01  ^ENROLLMENT  - RATE  FROM  DATA  BASE 

TEM1  = NADI  a (J)  * ACTUTL  (*) 

TNADIS  (0*  J)  = TNADIS  (0*  J)  ♦ TEM1 

TEST  FOR  SETBACK  POSSIBILITY 

CRITERIA  FOR  SETBACK:  COORSE  oT  d *EE*S.  MULT  I RLt  CONVENINGS*  FAILURE 
RATE  TO  PRODUCE  SETBACKS. 

I 

IF  (SLEN  .LT.  c.U)  GO  TO  100 
IF  ( CRSRUN  (J)  .LT.  d ) GO  To  100 
TEM2  = TEM  * SETEmk  ♦ ,S 
IF  (TEM2  .LT.  l.)  GO  TO  100 

HERE  IF  SETBACKS  MAY  OCCUR 

GO  TO  200 

TOTAL  COURSE  ANU  CLOStOUT  ACTIVE  MATRIX  FOR  COUHSt 
100  ACTIVE  (X)  = 0 

CALCULATE  TOTAL  STUDENT  DAYS  FOR  AOd  CALCULATION. 

ACTNEG  CONTAINS  DAYS  CHARGED  To  OTHER  OUAHTtR  OR  OTHER  CONVENINGS. 

TEST  UHlCH  KlThOO  OF  AOH  CALCULATION  TO  BE  OSED. 

IF  ( AOdCON  .GT.  JOO)  60  TO  430 

HF RE  IF  CLASS  DAYS  METhOU  TO  HE  USED 

TSOAYS  (0*  J)  = TSDAYS  <(Jt  J)  ♦ ((SLEN  * R.  * ACTUTL  <X)) 

1 ♦ .01)  - ACTNEG  (X) 

GO  TO  440 

HERE  IF  YEARLY  METHOD  TO  BE  OStD. 

4^0  ITEM1  = SLEN  - 1 

TEM  = ( I TEM 1 * d)  ♦ ( SLEN  * S.) 

TSDAYS  (0*  J)  = TSDaYS  (u.  J)  ♦ ( TEM  * aCTUTL  (X)  ♦ .Ul) 

1 - ACTNEG  (X) 

440  CONTINUE 

CLOSE  OUT  COURSE  * RESET  ACTIVE  4 RUN  FLAGS. 

ACTIVE  (X)  = 0 

CRSRUN  (J)  = CRSRUN  (J)  - 1 

IF  (CRSRUN  (J)  .LT.  0)  CRSRUN  (J)  = 0 

GO  TO  999 

•••••••••»•••••••«••  SETBACK  ROUTINE  ******************** 

HAVE  SETBACKS  - SEARCH  OUT  PROPER  CONVENING  TO  StT  BACK  TO. 

INI T TEST  VALUES 
200  ITEMS  * 1 

TABLE  VI -17  ( Continued I _ 
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KEND  F OP  I HAN 


OU^S:  D0mmy=SChED»  ITtMl=CRSNO 


ITt*  = ACTIVt  (X) 

TEMb  = BRR.  ! 1 I *■  M2  = 0 5 I TKM3  = 0 
DO  120  12  = 1*  2^0 
ITtMl  = AC1  lVt  (I'M 
IF  (ITtMl)  120.  120.  101 

HAVE  ACTIVE  COURSE  - TEST  If  OU^S:  DUMMY=SCh£D»  ITtM. 
101  DUMMY  = ITtMl  / 1000 

ITtMl  = ITtMl  - DUMMY  * 1000 
IF  (ITtMl  .Nt.  J)  GO  TO  12" 

HA VF  OUR  COURSE  NUMutH-TtST  IF  ODE  *E  APE  tNulNG 
IF  (12  .EQ.  *)  GO  lu  1 1 <S 

FOUND  ONE  OF  OUk  COUwstS-TtST  I F t AU|_  I EST  CONVtNlNG. 

IF  (ACTCTk  (12)  • GT  . TtMb)  Go  TO  116 
EARLIEST  SO  FAh.  SAvt  WEEKS  N POSITION 
TEMb  = ACTCTH  (if')  ? ITtMJ  = 12 

SEE  IF  wt  FOUND  ALL  CONVtMNGb.  HUMP  COUNTtR  n TEST. 
116  ITtM2  = ITtM2  ♦ 1 

IF  (ITEM2  • tw . LRbkuN  (J))  oU  1G  121 
120  CONTINUE 


tNulNG 


TEST. 


HERE  IF  DONE  COURSE  SEARCH  OF  ACTIVE  MATRIX.  ITEM3  IS  0 IF  NO  HIT. 
STATEMENT  100  IS  PACKARD  BRANCH  TO  CLOSEOUT  ROUTINE 

121  IF  (ITtMJ)  100.  100.  122 

find  Course  anu  modify  tables  To  represent  setbacks 

12?  ITtM  = ACT  I vt  < ITtMJ) 

DUMMY  = ITEM  / 1U00 

ITEM  = ITtM  - DUMMY  * 1000 

TEM4  = LEN  (DUMMY.  ITEM) 

ITtM2  = TEM2 

ACTuTl  (ITtMJ)  = ACTuTL  (ITEM3)  ♦ T TtM2 
TStTBK  ((j.  ITEM)  = T SET hi\  uj.  ITtM)  ♦ I TEM2 
NOW  CALCULATE  NtOATlVt  STUDENT  DAYS  - TO  COMPtNSATt  COURSE  STUD  LEFT. 
ITEM2  IS  SETBACKS.  LtN  lb  FIRST  COU*SE  LENGTH.  TtM*  IS  SET  BACK  TO  CHS 
LENGTH • TEMb  IS  WKS  LF.FT  IN  StT  BACK  TO  COURSE. 


NOW  LET  TEMb  EQUAL  wtEKb  STUUtNT  HAS  bLEN  IN  SET  BACK  TO  COURSE. 
TEM5  = TEMa  - TtMh 

TEST  AOB  MULT  FOR  MET HOU  OF  AOB  CALCULATION. 

IF  (AOHCON  .OT.  300)  GO  TO  130 

AOBCON  LT  300.  USE  STUDENT  DAYS  METHOD. 

ACTNEG  (X)  = ALTNtG  (X)  ♦((TtMS  * 5.  * TEM2)  ♦ ,ul) 

GO  TO  100 


l 


YEARLY  AOB  METhOU  UbtU  - CONVERT  WEEKS  TO  iNTEGtH. 

STUDENT  BEGINS  SETBACK  To  CLAoS  MONDAY.  WEEKEND  CHARGED  TO  OLD  COURSE 

cai.c  total  stuo  days,  including  wttKtNDs  - dummy  is  Integer. 


130  DUMMY  = TtMb 

TEMb  = (UUMMY  * 2)  -»(TEM3  * *5.) 

TABLE  VI-17  (Continued) 
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KEND  FORTRAN 


ACTNEG  (X)  = AC1NEG  (X)  ♦ ( TEM5  * TEM2  ♦ .01) 

GO  TO  100 
999  CONTINUE 
C 

c///////// /////////////////////////////////// /////////////////////////// 

IF  (ENOFLG)  1010*  1010*  1001 

1001  WRITE  (6*  1002)  CUP  (J),  ACTuTL  (X)»:bLEN*  J*  X 

1002  FORMAT  (•  CHS  tND-  CUP=  *.  A4*  •»  STUUtNTS=  •*  13*  *J  LENGTHS* 
1*F5.1*»;  CHS  S£u=**l4**»  RUN  POSITN=*»  14) 

IF  (ITtM2  .GT.  0)  w*ITE  (b,  1005)  ITEM2*  I TtM3 
l|0O5  FORMAT  <•♦•»  T103,  I 2*  • bTQNTS  SET  TO  CHS  14) 

1010  CONTINUE 

C //////////////////// /////////////////////////////////////////////////// 
RETURN 
FNL* 

SUBROUTINE  URTENU  (X) 

C QUARTER  END  ROUTINE  FOTALS  STUDENT  DAYS  OF  ALL  CONVENINGS  IN  SESSION* 

C AND  ADDS  ThtM  TO  COUHSE  TOTALS.  THESE  DAYS  ARE  ALSO  ENTERtt)  AS 
C ’NEGATIVE*  DAYS  IN  ACTIVE  MATRIX  TO  PREVENT  THEM  FROM  dEING  COUNTED  IN 
C NEXT  UUARTEHS  ToTALS. 

C ROUTINE  CHECKS  A09CUN  FOR  WHICH  METHOD  OF  TOTALLING  AOd  IS  USED. 

C 

IMPLICIT  integer**?  (A-Z,S> 

C COMMON  DATA  FOR  CLASS  DATA  maTkIX 

REAL**  LEN*  NOSHUw*  NOSHPL*  HKLGPL  * BPUOL*  NADIS*  FAIL*  CDP 
REAL**  TUMANO*  SETBAK*  DATE 

COMMON  /DATA/  CUP  (328),  CRSRUN  (328)*  CONV  (3*328)*  LEN  (3*328) 
COMMON  /DATA/  CAP  (3,328),  HCAh  (3*328)*  CHGWK  (2*328) 

COMMON  /DATA/  OFFSET  (328)*  DEMAND  (3*328)*  BDMAnD  (3*328) 

COMMON  /DATA/  aPOOL  (32a)*  FaIL  (32*) » NADIS  (328)*  NOSHPL  (328) 
COMMON  /DATA/  a AKLOG  (328)*  NOSHOW  (328)*  BKLGPL  (328) 

COMMON  /DATA/  bKLG  (3?8)»  TUMANO*  SETBAK*  DATE 

QUARTERLY  AND  ANNUAL  COURSE  TOTALS  ACCUMULATION 

real**  tfail*  TNAUIS 
INTEGER**  TSDAYS*  TCAP*  TuTlL 

COMMON  /TOTALS/  TCAP  (5,  328)*  TUTIL  <b*  328)*  TSET8K  (5,  328) 
COMMON  /TOTALS/  TSDAYS  (5*  328)*  TFAIL  (S*  328)*  TnOShO  (5*  328) 

I COMMON  /TOTALS/  TNAUIS  (S*  32«)*  TBKLOG  (S*  328)*  TCONV  (S*  328) 


C 


C 

C 


COMMON  FOR  COURSE  ACTIVE  MATRIX  ELEMENTS 

real**  actctr 

COMMON  /RUN/  ACTIVE  (2bU)»  ACTCTh  (250),  ACTUTL  (250)*  ACTNEG(250) 
COMMON  FOR  COMMUNICATION  BETWEEN  SUBROUTINES 

INTEGER**  ITEM,  ITEM1,  ITEM2.  I TEM3*  ITEM**  ITEMS*  WHERE 
PEAL**  TEM,  TEMi*  TEM2*  TEM3*  " TEMw * TEMb*  >LEN 
COMMON  DUMMY,  SCONV,  $LEN*  iCAP,  SRCAP,  LAST,  COURSE 
COMMON  SRI, »H2*iR3»*R*»  TEM,  TEMl , TEM2*  TEM3,  TEM*,  TEM5 
COMMON  ITEM,  I TEM 1 , ITEM2*  I TEM3 , ITEM**  ITEMS 
COMMON  YEAR,  CRSES,  U,  w,  WKOFF  * INIT*  WHERE,  NEGFLG,  AOBCON 
COMMON  TRACEF,  hLSFLG,  ENOFLG,  PkEFLG*  yrflg, YEARUN»PRINTF*NGR 
TEST  ACTIVE  MATRIX  FOR  ACTIVE  COURSES. 

DO  500  J * 1,  250 

IF  (ACTIVE  (J))  300,  500*  *01 


TABLE  VI -17  (Continued) 
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KEND 
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ACTIVE  FILE  MAS  A COURSE  ACTlVt  AT  *J». 

GET  POINTF.R  INTO  COURSE  MAT  R i A « . 

401  ITEM  = ACTIVE  (J) 

DUMMY  = ITEM  / 10U0 

ITEM  = ITEM  - uUMMY  * 1000 

SLEN  = LEN  (DUMMY*  I TFM ) 

TEST  WHICH  METHOD  OF  AOH  CALCULAT ION  TO  BE  OSLO. 

IF  (AOBCON  .GT.  300)  GO  TO  430 

C HERE  IF  CLASS  DAYS  MF  THOU  TO  HE  OStl). 

TEM  = ( SlEN  - ALTCTh  (J))  * ACTUTL  (J)  *5. 

GO  TO  440 

HEPE  IF  YEARLY  AOh  METHOD  TO  bt  USEu 

CHARGE  THIS  WEEKtNU  TO  TmE  COURSE  HE1NG  CLOSED  OOT 

430  TEMl  =SLEN  - ACTCTP  (J) 

ITEM1  = TEMl 

TEM  = ( ITEM  1 * 2)  ♦ (TEMl  * s> 

TEM  = TEM  * ACToTL  (J) 

440  CONTINOE 


I 


C 

C ADO  TOTAL  STOOENT  D«YS  TO  COURSE  * ACTIVE  MATRICES 
C 

TEM  = TEM  + .01 
ACTNEG  (J)  = ACTNtG  (J)  ♦ TEm 
TSUAYS  (Q*  ITEM)  = T SO AYS  (0*  ITEM)  ♦ TEM 
500  CONTINUE 

C COPY  CURRENT  BACKLUU  POOL  FIGURES  INTO  COURSE  TuTALS 
00  Bill  1 = 1.  ChSES 

8111  T8KL0G  <Q*I)  = rKLHPL  (I) 

C 

c COPY  FRACTIONAL  fail  fe.  NaDIS  into  next  quarter  TOTALS*  SKIP  IF  4TH  QTR 
IF  (Q  . GK • 4)  GU  TO  6113 
J = Q ♦ 1 

DO  011*;  1 = 1*  CRSES 
ITtM  = TF  AIL  (o*I) 

TFAIL  (J*I)  = TFAIL  (0*1)  - ITtM 
ITEM  = TNADIS  (0*1) 

8112  TNADIS  (J*I)  = TNAUIS  (0*1)  - ITEM 

8113  CONTINUE 

c/////////////////////////////////////////////////////////////////////// 

IF  (TPACEF  .GT.  0)  WRITE  (t>.  1000)  X 
1000  FORMAT  (*  QUARTER  END  ROUTINE  FOR  QUARTER  '•  ID 

z/ ///// n ///////// / /////////////////////////// ////////////////////////// 

RETURN 

END 

SUBROUTINE  YEAMimU  (Y) 

C THIS  SUBROUT iNt  CALCULATES  ANNUAL  TOTALS  AND  CALLS  THE  PROPER  SUdROUT- 
C INE  FOR  PRINTOUT  OR  CRT  OUTPUT.  IF  A TRACE  FLAG  IS  ON  THIS  SUBR  IS 
C RYPASStD  AND  A TRACE  ONLY  SUBROUTINE  IS  CALLED. 

C TOTALS  ARE  AGGREGATED  bY  COURSE*  SCHOOL*  AND  CENTER  ON  AN  ANNUAL  BASIS 
C WITH  NO  CARRY  OVER  TOTALS  .FROM  Yt AR  To  YEAR. 


» 


TABLE  VI-17  (Continued)) 
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IMPLICIT  lNTtGfcR*2  (A-/.*) 

C COMMON  FOR  CLASS  DAT*  MATRIX 

REAL**  LEN.  NOShOw  * NOSHHL* 
REAL**  TDMAND.  St  f Bak  . OATt 


BKLGPLt  dPOOL*  NAOIS*  FAIL*  COP 


COMMON  /DATA/  CUP  (328).  CRSRUN  (32H).  CONV  (3*328).  LEM  (3*328) 
COMMON  /DATA/  CAP  (3*32*)*  HCAP  (3*328)*  CHGrfK  (2*328) 

COMMON  /DATA/  OFFbtT  (328).  DEMAND  (3.328).  bOMAND  (3*328) 

COMMON  /OATA/  bPOUL  (32*<).  FmIL  (328)*  NAuIS  (328)*  NOSMPL  (328) 
COMMON  /DATA/  bAKLOG  (328).  NUSHO*  (32H).  BKlGPL  (328) 

COMMON  /DATA/  HKLb  (328).  TOMANC*  SETbAK.  DATE 
J INTEGER**  PNtC 

REAL**  PA08*  PFttlL 

REAL*8  NAMtl*  N A M 1 2 » CATNOl 

COMMON  /TExT/  PF  A I L ( 328 ) * NAMtl  (328).  NAME2  (328).  CATNOl  (328) 
COMMON  /TEXT/  C«TNU2  (32b)*  PNtC  (32b)*  TYPt  (328)*  PA08  (328) 
COMMON  /TEXT/  PnTY (32m) .SCHl (328) *SCH2(328) *SCh3(328) »SCH*(32«) 
REAL**  TFAIL*  TnADIS 
INTEGER**  TSDAYS.  1C*P.  TOTIL 

COMMON  /TOTALS/  TCAP  (S,  328),  TUT  1 L (b.  328) * TSETHK  (5*  328) 
COMMON  /TOTALS/  TSDAYS  (a.  328).  TFAIL  (S.  32b)*  TNOSmO  (5*  328) 
COMMON  /TOTALS/  TnADIS  (a*  328).  TBKLOb  (5.  328).  TCONV  (S*  328) 

C COMMON  FOP  SCHOOL  AND  CENTER  TOTALS 

INTEGER**  SUTIL*  CUTIL.  bCAP,  CCAP.  SSDAYS.  CSOAYS*  IFAlL*  INADIS 
INTEGER**  PASS.  SBkLUG.  CBKLOG.  SbKL * CBKL 

REAL**  AOB » PCTuTL • PCTNSH*  PCTPAS*  PCTFL*  PCTS3*  PCTNDS.  PLEN 
COMMON  /T/  SUTIL  (a).  SCAP  (S).  SSDAYS  (S) * SSETBK  (5).  SNOSHO  <b) 
COMMON  /T/  CUTIL  (S) ♦ CCAP  (S).  CSOAYS  (S) . CSET6K  (a) * CNOSHO  (5) 
COMMON  /T/SBKL (a) .SHKLOG O) «SCUNV  (S).  SF A IL  (5)*  SNADIS  (a) 

COMMON  /T/  CCONV (a) *CBKL O) *CbKLUG(S) . CFAIL  (S)*  CNADIS  (5) 

COMMON  /T/  PCTUTL  (b).  PCTNSH  (a),  PCTnDS  (b)*  INADIS  (b) 

COMMON  /T/  AOB  (a).  PASS  (b) . PCTPAS  (a)*  PCTFL  (b)*  PCTS8  (5) 
COMMON  /T/  IFaIl  < b ) » PLEn  (3).  BKL  (b) » SPLAT  (*)•  YEAR2D 
C COMMON  FOR  COMMUNICATION  hE TmtEN  SUBROUTINES 

INTEGER**  ITEM.  I T EM 1 » I T tM2 ♦ ITtMi,  ITEM* ♦ ITEMS.  MMERE 
REAL**  TEM.  TtMi.  TEM2,  1 1 m 3 • TEM*»  TEMa.  SLtN 
COMMON  DUMMY.  SCUNV*  SLEN.  SCAR.  SHCAP.  LAST.  COuRSt 
COMMON  SRl .SR2.SR3.SR*.  TEM.  TtMl.  T EM2 * TEM3.  TEM*.  TEMb 
COMMON  ITEM.  I T EM  1 » ITEM2.  I TEM 3.  ITEM*.  ITEMS 
I COMMON  YEAR.  CRbtS*  U*  w*  wKOFF.  INIT.  #HERt » NEGFLG*  AOBCON 
' COMMON  TRACtF.  hLSFLG.  ENOFlG.  PRtFLG.  YRFLG. YEAHJN.PRINTF.NGR 


YRFLG  0 FOR  CRT  OUTPUT,  i FOR  BOTH.  2 FOR  PRINT  ONLY*  9 FOR  TRACE  ONLY 
IF  (YRFLG  .Gt.  9 ) GO  TO  29999 


SET  SPLAT  Tu  KEY  YtAR  OF  RUN 

IF  (YEARUN  .LE.  1)  GO  TO  blUOl 
iTtM  = YEARUN  - 1 
SPLAT  ( Yt  AkUN ) = SPLAT  ( I T t M ) 

SPLAT  (ITEM)  = SPLAT  (*) 

81001  CONTINUE 
C 

C INIT  * CLAMP  RUN  CONSTANTS 
ITtMb  = 0 

IF  (AOBCON  .Lt.  0)  AGBCOn  = 2bU 
YEAR2D  * YtAR  - 1900 

table  VI-1?  (Continue 


non  oooono  onono  o non 


f 

* 


i 


kend  Fortran 


I 
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IMTIM  1/t  CENT  tw  1 1»  I --I  ", 

Du  1 0 = 1 « S 
r u 1 1 l ( o ) = o 
reap  (u)  = t» 

CSt  T m*  (u)  = 0 
CSuAYS  <G)  = <> 

CNOSHO  (t'J)  = ft 

CCOMV  <U>  = J 

CFAIL  (w)  = >* 

CnAOIS  (u)  = (> 

CHKL  (U)  = u 
CRKLOG  (m)  = •» 

s u r i l ( u ) = ;i 

SC  AH  (Cl)  =•  0 
SSt:  THK-  ((j)  = :i 

SSuAYS(n)  = o 
SNOSHO(O)  = (• 

SCUNV  (u)  = 0 
SFAIL  (J)  = i> 
SNAOIMO)  = J 
SR*L  (w)  = 0 
1 ShkLOG  <n)  = 0 


CALCULATE  TOTALS  4 H^INT  Hj*  MCn  CUU-ot 
Of)  A444  1 = 1.  ( KSES 

TEST  FOP  SCHOOL  COut  Ch«  ;Ut 

IF  (I  .EG.  1)  Gu  Tu  a :/*  s-'LP  Summary  [F  1ST  COOHSE  */ 
IF  (iP2  . LO  • -i)  GO  TO  */*  SK I J~  NO  SChL  SUMMARY  */ 
0=1-1./*  lAST  COOhgc  HhOCESsEO  */ 


IF 

(SPZ 

• EG. 

1 ) GO 

TO  J 

; /> 

NO 

SCH 

SLL  ~ KEY  UN 

1ST  SCHL  CHAP 

<>/ 

IF 

(SChE 

( I ) 

.Nt  . 

SC  HE 

<u>  ) 

GO 

Tu 

•5iu,i  ;/*  CHG- 

PRINT  SUMMaPY 

*/ 

IF 

(SCMJ 

(I) 

. Nt  . 

SC  Hj 

( . , > ) 

GO 

TO 

soo 

IF 

( SCHh 

( 1 ) 

.Nt. 

SCH4 

K j)  ) 

GO 

TO 

SO  0 

IF 

(SCHl 

( I ) 

.Nt  . 

SChl 

(u)  ) 

GO 

TO 

sou 

■i 

RETURN  FROM  PRINT  SChGuL  TOTALS  - NO*  CALC  TOTALS  FOR  CLASS 

ITEMS  IS  COONTEh  Fuh  CuUWSF  ACTUALLY  CALCULATING 

4 ITtMS  = ITLMb  ♦ 1 

USE  STh  POSITION  IN  IoT<»LS  mpTkIa  1 u AGGRt  o A TE  TOTALS  - 1N1T  TO  ZERO 
TUTIL  (S»  I)  = o 
TCAP  ( s » I)  = 0 
TSETHK  (S.  1 1 = 0 
TSOAYS  ( S » 1)  = 0 
TNOSHO  ( s » I)  =0 
TCONV  (5i  15  = 0 

INIT  iNTEGtR  F A i L \ NON-ACAOtMlC  'JROPOUT  TOTALS  TO  ZtRU 

TABLE  VI-17  (Continued) 
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FORTRAN 


IPAIL  (b)  = i) 

I NAD  I S (S)  = 0 


NOW  TOTAL  mNNUAL  PIGURtS 


DO  5 Q = 1*  A 


TUIlL(btl)  = Tu  I I L < s » I ) ♦ I U T I L ( 0 • I ) 
TCAP(S.I)  = TCAH(S«I)  ♦ T C A »J  ( 0 • I ) 

TStTHK  (S»  I ) = T SE  THK ( S. 1 ) ♦ r sETbK  ( (1»  I ) 
TSUAYS  (3*1)  = Tsl)AYS(S.I)  ♦ TSDAYS(Q.I) 
TNOShO  (b.  I)  = TNOSHO  <6.  1)  ♦ TNOShO  <0. 

TCONV(b.I)  = TCONv (S.  I ) ♦ TCONV (0. I) 


CONVERT  TO  INTEGER.  hOUnU*  N TuTaL  FAILURES  N NON-ACADEHIC  DISENHOLLS 


IFaIL  (O)  = 0 

IPAIL  (U)  = TFAIl  <N.  I)  ♦ • s 
IFAIL  ( b ) = IE  AIL  (5)  ♦ I EaIL  <U) 

INADIS  (O)  = 0 

INAOIS  (U)  - TnaoIS  (u«  I)  ♦ #d 
I NAD  IS  ( b ) = iNAUlb  (b)  ♦ INADIS  ( U ) 

total  data  for  individual  school  totals 

SUTIL  (0)  = SUTIL  (0)  ♦ TuTIL  (0.  I) 

SCAP  (0)  = SCAP  (U)  ♦ TCAP  (U,  I) 

SSETdK  (g)  = SSETRK  (0)  ♦ TSETeiK  <w.  I) 

SSUAYS  (U)  = SSUAYS  (0)  ♦ TSUAYS  (0.  I) 

SN0SH0  (0)  = SNOSHO  id)  ♦ TNUSMO  (Q.  I) 

SCUNV  (Q)  = SCON V (0)  ♦ TCONV  (0*  I) 

SFA1L  (0)  = SFA1L  (g)  ♦ IF  AIL  (0> 

SNAOIS  (Q)  = SNAOIS  (0)  ♦ TNADIS  <Q»  I) 

TOTAL  DATA  FOR  FlLlT  TkAINING  CENTER  TOTALS 


CUTIL  <U>  s 
CCAP  (U)  = 
CSETHK  (0) 
CSDAYS  (g) 
CNOSMO  (0) 
CCONV  <Q)  = 
CFA1L  <U>  s 
CNADIS  (0) 

5 CONTINUE 


! CUTIL  (U)  ♦ TUTIL  <U*  I) 
CCAP  (g)  ♦ T CAP  (g.  I) 

= CSt  THE  (0)  ♦ TScT^K  (0*  I) 

a CSUAYS  (0)  ♦ TSDAYS  IN*  I) 

= CNOShO  (0)  ♦ TNOSHO  <Q.  I) 
CCO-W  (g)  ♦ TCOiVV  (ut  I) 

CFA1L  (U)  ♦ IFAIL  <U) 
a CNAUIS  (0)  ♦ TnAUIS  (•)•  I) 


NOW  CALCULATE  TOTALS  N PERCENTAGES 

ASSUME  CHANGE  «EE*  Has  NOT  PAsStO  THIS  QUAkTEP.  INIT  CAP  & CONV  TO  »A» 
SCUNV  = CONV  (1.1) 

SCAP  a CAP  ( 1 « 1 ) - HCAP  (i.I) 

TflXLOG  (5.  I)  = TGKLOG  (A,  I) 


NOW  CALCULATE  UTILISATIONS  N percentages 


KEND 


foptwan 
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no  is  u = l.  •> 

HKL  (0)  = 0 

IE  (TnkLoG  (g»1)  .Fu.  (' ) i ( j ru  12 

c 

C TEST  IF  Ti-ttHfc  IS  A CrlAi.oE  <<t.Liv 
IF  ( C H G * K ( 1 « 1 ) ) 7 ♦ 7 » t 

c 

C HEP^  IF  THt*E  IS  A CH««i  >j(,t  •••  E t K » CHtCK  IF  IT  nAb  PASSEU 
*>  I T*-’^  = 0 

IF  ( I T t.  M . o T . a ) 1 T t M = h 

iTtM  = (13  » ITi-**)  ♦ (Hf-  » ( Y f..  i» « U N - 1)) 

IF  (CHG4K  (1.  1)  .LI.  ITlM)  GO  To  7 
C 

c CHANGE**  has  PASSF.o  - USt  *H»  CONVtN' N CAPACITY 
tCONV  = CONY  {£• l ) 

AC AP  = CAP  (2.1)  - HCAP  (2.0 


7 IF  (ACONV)  Bilk.  M l 1 l 2 • lo 
b 1 1 1 2 TNKLOG  (G.I)  = t» 

IF  (0  .EG.  •*)  TrsKLUG  (S.l)  i U 
GU  TO  12 

10  IF  (ACAP)  12.  12.  11 

11  TEm  = '♦.CAP 

HKL  <G)  = (aO.  / *CONY ) * ( I "'FLOo  (G.  I>  / TtM) 

IF  (HKL  (0)  .GT.  30)  HKL  (G)  = 3U 


SHKLOO  (0) 

= Sf'KLUG 

<fv)  ♦ THKLOG 

(Q.  I ) 

C-*KLOG  (G) 

= CHkLOG 

(G)  ♦ THKLOG 

( G * I ) 

SHk  L (G)  = 

S«kl  ( G ) 

♦ (HKL  ( G ) 

TbKLOo 

(U.III 

» CbKL  (G)  = 

CPKL  (0) 

♦ (HKL  (G)  * 

r hkloo 

( G * I ) ) 

1?  CONTINUE 

IF  (API  .EG.  0)  GO  TO  *444a 


00  20  G = 1»*> 

TFm  = AObCON 

AOb  (G)  = TSOAYS  (O.I)  / Tl« 

C MULT  HY  4 IF  OUmhTFhLY  IiiTAL 

IF  (Q  . Lt.  A)  AOH  (G)  = A Oh  ( ij  ) a a. 

PASS  (0)  = TuTIL  (O.I)  - I F A I l (G)  - INADIS  ( G ) 

IF  (PASS  (0)  .Li.  0)  PASS  (G)  = 0 
PCTuTL  (U)  = 0. 

TEm  = ICAP  (G.  1) 

IF  ( TCAP  (U.  I)  „GT.  0) 

1 PCTUTL  (0)  = (TUTIL  (0.  1)  / TEM)  * lOu. 

C 

C TEST  UTILISATION  To  SFF  IF  Can  CALCULATE  PEPCEnTAGES 
IF  (TUTIL  ( G * D)  lo.  13.  14 
C 

C NO  UTILIZATION  - ZEhO  PEWCENTaGES  N t <1  T 
13  CONTINUE 

PCTNSH  (u)  = 0. 

PCTPAS  (G)  =0. 

PCTFL  (tl>  = 0. 

PCTSH  (G)  = 0. 

PCTNUS  (G)  = 0. 
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GO  TO  20 
C 

C HAVE  UTILISATION  - C«LC  * 

14  TtM  = TUTIL  <U.  I) 

TEMl  = TnOSho  (Ui  I)  '♦  TuTlL  (U»  I) 

PCTNSH  (Q)  = (InuShu  to.  1)  / TEMl)  * 100. 

PCTPAS  <U)  = (PASS  <u)  / rt«*)  * 100. 

PCTFL  (0)  = ( T F « I L (0)  / TtM)  * 100. 

PCTSH  IU>  = ( T it  T mk  (0.  l)  / TtM)  «■  100. 

; PCTNDS  (0)  = (INAUIS  Hi)  / TtM)  4 100. 

|?0  CONTINUE 
C 

C CONVERT  LENGTH  TO  Days  f UP  PkIimTOUT 
DO  27  u = 1.  3 
IF  (LEN  ((!♦!))  2H.  2R.  2b 
28  PLEN  (U)  = 0.  ; GO  To  27 

28  I TtM  = LEN  (o.I)  - .(lb 

PLtN  (U)  = (LEN  <u«l>  * S . ) ♦ (ITEM  * 2)  ♦ .01 
27  CONTINUE 
C 

c call  output  routine^.  crt  if  flag  o or  i . print  if  i ok  2 

C SET  X TO  I FO*  COUh'bt  UUTPuT 
C 

x = 1 

IF  (iRl  . E(l.  0)  »Q  TO  123*1 
IF  (YRFLG  .LE.  1)  CALL  CrtTOuT  (X) 

IF  (YPFL&  .Gt.  1)  CALL  NPRInT  (X) 

12341  CONTINUE 
C 

C IF  I IS  Eu  CRSES  TnIS  IS  LAST  COURSE ♦ SO  FALL  THROUGH  & PRINT  SCHOOL 
C SUMMARY.  OTHERWISE  go  TO  END  OF  Ou  LOOP  N CONTINUE. 

44444  IF  (I  .NE.  ChSES)  GO  TO  4*4* 

C 

C ENTRY  SCHOOL  TOTALS  CALC  ROUTINE.  SET  X TO  2 FOR  SCHOOL  OUTPUT 
C CALCULATE  SCHOOL  TOTALS  (SAMt  ROUTINE  USED  FOR  CENTER) 

C 

500  X = 2 
C 

C 5^0  IS  ENTRY  FOR  Cr.NlEP  TOTALS  CALCULATIONS 
560  CONTINUE 

IF  (X  .Eu.  2 .mnO.  »R2  .tU.  J ) Go  TO  12342 

IF  (X  .EU.  3 .ANIJ.  SR3  . tU . G)  GO  TO  12342 

C 

C CALCULATE  YEARLY  TOTALS 
DO  540  U * 1.  4 

SCONV  (5)  = SCON V (5)  ♦ bCONV(U) 

SCAP  (5)  = SCAR  (b)  ♦ SCAR  (u) 

SUTIL  (5)  = SUTIL  (5)  ♦ SUTIL  («J) 

SNOSHO  (5)  = SNOSHO  (5)  ♦ SNOSHO  (Cl) 

SSuAYS  (S)  = SSOAYS  (5)  ♦ SsOAYS  (U) 

SFAIL  (5)  = SFAIL  (S)  ♦ SFAIl  (U) 

SStTHK  (5)  = SSETRK  (5)  ♦ SStTHK  (0) 

540  SNADIS  <S)  = SNAUIS  (5)  ♦ SNAUlb  (U) 

J TABLE  VI-17  (Continued) 
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C MOW  CAt.C  PtwCENTAwtb 
00  bSO  0 = i . S 
C 

TEm  = AObCON 

AOb  ( U ) = SbOArb  uj)  / Tc.ii 

IE  (o  ,l£.  A)  A' )H  (u)  •=  ftv >fc  iO)  * 4. 

C 

PASS  (0)  = bUTlL  (0)  - SI-MlL  (O)  - SNA, 'is  (U) 

IF  (PAbS  (0)  .LT.  0)  PASS  ('JJ  = 0 

*c 

# PCTUTL  (0)  = .1. 

TEm  = bCAP  (O) 

IF  (TEM  .01.  o.)  priuTL  (u)  =(bjriL  (0)  / TEM)  » 100. 

c 

IF  (SUTIL  ('J)  ) blit  b 1 3 • b 1 4 
b 1 3 CONTINUE 

PCTNSH  <u)  = 0. 

PCTPAS  (U)  = 

PCTFL  (0)  = 0. 

PCTbb  (O)  = 0. 

PCTNOS  <u)  = <). 

GO  TO  b?0 
C 

5 1 A TEM  = bUTIL  (<J) 

TEMi  = SNOSHO  (O)  ♦ bUTIL  (U) 

PCTNSH  (0)  = (bNObHO  ((„•)  / TF  M 1 ) * 100. 

PCTPAS  (0)  = (PASS  (u)  / TtM)  * 100. 

PCTFL  (U)  = ( bF  « I L (u>  / I EM ) * luO. 

PCTSH  (0)  = (bSET^K  (0)  / TEm)  100. 

PCTNUS  (0)  = ( SNaD  I b ((J)  / TtM)  » 100. 
b?0  CONTINUE 

Sm*L  (0)  = SHKL  (u)  / ShkLuo  (w) 

550  CONTINUE 
C 

C CALL  OUTPUT  SUHHOU  T 1 NE  ♦ X lb  <L  FOP  SCHOOL  OUT*  J FOP  CENTEH  OUT 
C 

IF  (YPFLO  .LE.  1)  CALL  CPTOUT  (X) 

IF  (YPFLG  .GE.  1)  CALL  NPKINT  (X) 

12342  CONTINUE 
C 

C TEST  IF  ENU  UF  FILt  - CAlC  YtA-  CENTEp  TOTALS 
C TEST  IF  ENU  OF  FILE  - bO  PpINT  CEnTEK  TOTAlS 
IF  (ITEMb  ,t(J.  CPbES)  GO  Tu  b»JO 
IF  (ITEMS  .GT.  POO)  GO  Tu  4444 
C 
C 

C KEEP  PUNNING  - ZEPU  SCHOOL  TOTALS  4 kcTUHN 
DO  563  tt  * i . b 
SUTIL  (U)  = 0 
SCAP  ( U ) = 0 
SSETrtK (0)  = 0 
SSOAYS(W)  = 0 
SNOSMO(Ci)  = 0 
bCONV  (U)  = 0 
SFAIL  (0)  = o 
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bMKL  (u)  = 0 
SHrLOG  (0)  = 0 
563  SNAI)IS(GJ)  = 0 
C 

GO  TO  * 

C 

C LOAD  CtNTER  TOTALS  INTO  SCHOOL  STORAGE  USt  SCHOOL  ROUTINE  TO  CALC 
C CENTER  TOTALS. 

C 

500  00  501  0 = 1.  5 
j SUTIL  (0)  = CUT 1L  (u) 

SCAP  (U)  = CCAR  (O) 

SStToK  (U)  = CSETm*  (tJ) 

SSOAYS  (0)  = CSUAYS  (o) 

SNOSHO  (0)  = CNuSHO  (O) 

SCONV  (0)  = CCONV  (O) 

SFaIL  (0)  = CFAIL  (O) 

SGKL  (0)  = CHKL  («) 

S0KLOG  (0)  = CoKLUo  (U> 

5H1  SNADIS  (0)  = CN AO  1 5 (o) 

C 

C SET  X TO  3 TO  CALL  CENTER  OUTPUT.  bET  ITEMb  TO  999  TO  INDICATE  END 
ITEMS  = 999  » * = 3 5 GO  TO  560 


C 

4444  CONTINUE 
29999  CONTINUE 

C EXIT  IE  YEARUN  tU  Y Ab  LAST  YEAR  OF  RUN 
IF  (YEARUN  .G£.  Y>  GO  TO  699 V 
YEAR  = YEAR  ♦ 1 
C 

C SET  TREND  DEMANDS 

IF  (TDmAnO  .LE.  0)  GO  TO  56^6 
DO  5554  ITEM  = 1.  CRSES 
DO  5554  ITEM1  =1.3 

DEMAND ( I TEMl . ITEM)  = DEMAND  ( i TCMl ♦ I T EM ) * TDMAND 

5554  BDMAND  ( ITEM1 « ITEM)  = HUMANU  (ITEmI.  ITEM)  * TDMAND 

5555  CONTINUE 
C 

C ZfiRO  TOTALS  FOR  MULl  1 YF  AR  RUN 
DO  6996  1=1.  CRSES 
00  6996  0 = 1.  a 
TUTIL  (0*1)  = o 
T Car  (O.d  = o 
TSETttK  (0.1)  = I) 

TSOAYS  (0.1)  = 0 
TNUSHO  (O.I)  = 0 
TCONV  (O.I)  = u 
TFAIL  (O.I)  = 0 
6990  TNADIS  (O.I)  = 0 
6999  CONTINUE 
RETURN 
END 

SUBROUTINE  NPRINT  (X) 

IMPLICIT  INTEgEK*2  (A-Z.S) 
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RETURN 

ENU 

SUBROUTINE  CRlUuT  (*) 

IMPLICIT  If4lt.bt.rf*^  (A-/.*) 

INTEGE R*2  I LtN  »3> 

COMMON  FOP  CLASS  OATa  mMkM 

REAL**  LEN.  NOSHO*.  nOShPL*  p«LGPl.  rPOOL.  NAUIS.  FAIL*  COP 
REAL**  TUMANO « aETBAK.  BATE 

COMMON  /OATA/  CD*4  (328).  C*SaUN  (J2H).  CUNY  (3.32b).  LEN  (3.328) 


COMMON  /DATA/  Cap  (3.328).  BCAP  (3.328).  CHOwK  <2.32b) 

COMMON  /DATA/  OF  F St  T (32a).  UtMANO  (3.328).  BOMANO  (3.328) 

COMMON  /OATA/  RPouL  (32a).  FAIl  (328).  NAulS  <32e).  NOSHPl  (328) 
COMMON  /DATA/  hu*Lu<i  (3 2«).  NUSHU*  (328).  BKlGPL  (328) 

COMMON  /DATA/  h-vLG  (32a)  • TUMANO.  SETbAK.  DATE 
C 

INTEGER**  PNt( 

REAL*4*  P A OH  « PP«iL 
RE AL*R  NAME  1 « NAMtt*  CAlolul 
C 


COMMON  /TEXT/  Pi-ML<328).  NAMt  1 (J2B).  NAMt2  (328)*  CATNOl  (328) 

COMMON  /TEXT/  CA|>02  (328).  PNEC  (328).  TYPE  (328).  PAOB  (328) 


COMMON  /TEXT/  PPTY (328) .SCHl (328) .SCh2 (328) .SCh3 (328) .SCH* (328) 

C 

REAL**  TFA1L*  TNaUIS.  DA Y 8 (a) 

INTEGER**  TSDAYS.  TCAP,  roflL 
C 

COMMON  /TOTALS/  TCAP  (5.  32a).  TUT  1 L (a.  32b).  TSETbK  (5.  328) 

COMMON  /TOTALS/  TSL'AYS  ('_>»  32H).  TFAIL  (a.  328).  TNUSHO  (S.  328) 

COMMON  /TOTALS/  TNAUIS  (a.  328).  TBKLOu  (S.  328).  TCONV  (5.  328) 

C 

C COMMON  FOP  SCHOOL  AOu  CENTER  TOTALS 
C 

INTEGER**  SUTIL*  CUTlL.  sCAP.  CCAP.  SSDAYS.  CSDAYS.  IFAIL.  INADIS 
INTEGER**  PASS.  SbKLOG.  CtJKLUG.  SBKL.CBKL 

REAL**  A08.  PCTUTL.  PCTNSH.  pCTPAS.  PCTFl.  PCTS8.  PCTNDS.  PLEN 
C 

COMMON  /T/  SUTIL  (a).  SCAP  (a).  SsDAYS  (5).  SSET8K  (5).  SNOSHO  (S> 

COMMON  /T/  CUTIL  (a),  CCaP  (S).  CSOaYS  (a).  CSETBK  (5).  CNOSHO  (5) 

COMMON  /T/SbKL (a) .sHKLOU (a) .SCONV  (a).  SFAIl  (b).  SNAOIS  (5) 

COMMON  /T/  CCONV (S) .CBKL (a) .CbKLuG <a) . CEAIL  (5).  CNADIS  (5) 

COMMON  /T/  PCTUTL  (a).  PCTNSh  (a).  PCTiMUS  (a).  INAU1S  (8) 

COMMON  /T/  AOB  (a).  PASS  (b) . PCTPAb  (a).  PCTFL  (b> . PCTSB  (b) 
COMMON  /T/  IFAIL  (5).  PLEn  (3).  bKL  (a).  SPLAT  (*).  YEAR20 
C 

C COMMON  FOP  COMMUNICATION  BETWEEN  SUBnoUTINtS 
C 

integer**  iTtM.  itemi.  item2.  irtM3.  item*,  items,  whehe 

real**  TEM.  TEMi.  TEM2.  TtMJ.  TtM*.  TEMa.  SLEN 
C 

COMMON 
COMMON 
COMMON 
COMMON 
COMMON 

c 


DUMMY.  SCONV . SLEN  * »CAP*  iBCAP.  LAST.  COURSE 
4Ri.4R2.SR3.SRA.  TtM.  TEMI.  TEM2 . TEM3*  TEM*.  TEMS 
ITEM.  ITtMi.  ITEM2.  ITEMJ.  ITEM*.  ITEMS 
YEAR.  CRSES.  0.  *«  wKOFFt  INIT.  RHERE*  NEGFLG*  AUBCON 
TRACEK.  HLbPLG.  ENUFLU.  PrEFLG.  YRFlg. YEARUN.PRINTF.NGR 
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X IS  1 FOR  COURSE  OUTPUT*  2 FUR  SCHOOL* 
ITEMS  CONTAINS  COURSE  POINTER 


FOR  CENTER  (LAST) 


ILtN(l)  = PLENUM  ILEN(2)  =RLEM2)  ( 
IF  CPRINTF  .GT.a)  hEIURn 
OFl  = 0 ;/*  INIT  DAYS  GT  99999  FLAG 
DO  10  1 = 1*4 

DAYS  (1)  = SSOAYS  (I)  / 1000. 

IF  (SSDAYS(l)  .Gt.  99999)  OFL  = 1 
DAYS  (5)  = SSOaYS  (5)  / 1000. 

I = ITEMS  ; IF  ( A ,tO.  1)  GO  TO  1 


ILEN(J) =PLEN<3> 


5001 


WRITE  (lit  5001)  YFAh 
FORMAT  (»!•*  T 22*  »TkF 


MOUEL  FISCAL  YEAR 


SUMMARY* ) 


TO  5000 


16002 


C CRT  ROUTINE  FOR  CENTER  TOTALS  - ACTUAL  DATA  OUTPUT  IN  SCHOOL  ROUTINE 
WRITE  (11*  6001) 

6001  FORMAT  (•  •*  T21*  •**  TOTALS  FOR  TRAPAC  TRAINING  CENTER  **•  /) 

IF  ( SR2  .LE.  1)  GO  TO  1*002 

WRITE  (11*6002)  SCH1  (CRSEs)  .OATH/*  SEL  OPTION-  PRINT  1ST  CHAR  */ 

6002  FORMAT  (*  CENTER  CODE  **Al«*  SUMMARY  (RON  *.A4»*76>*/) 

GO  TO  15000 

16002  WRITE  (11*26002)  DATE  */»  NO  SEL  OPTION-  TRAPAC  TOTALS  */ 

26002  FORMAT  (•  TRAPAC  TOTALS  (RUN  **A4t*76)*/) 

GO  TO  15000 
C 

C OUTPUT  FORMATS  FOR  CRT  DISPLAY*  COMPATABLE  WITH  OUTPUT  FORMAT  PROGRAM 
C FORMAT  - ALWAYS  25  LINES  OF  OUTPUT*  1 FOR  FIRST  LINE*  BLANK  FOR  DATA 
C LINES*  / FOR  LAST  LINE*  * FOr.  tND  OF  DATA 
C 

1 WRITE  (9*  4001  ) CDP  (I).  NAME  1 (I)«  NAME2  (I) 

WRITE  (9*  4002)  CONV  (1*I)«  CONY  (2*1)*  CONV  (3*I)»  BKLG(I) 

WRITE  (9*  4003)  ILEN  (1)«  ILEN  (2)*  ILEN  (3>*  BAKLOG.  ( I ) 

WRITE  (9*  4004)  SCHl (I) »SCH2(I) »SCH3 ( I ) »SCH4 ( I ) » DATE* 

• CATNOl (I) *CATN02(I) «PNEC  (I)*  CAP  (1*1)*  CAP  (2*1)*  CAP  (3*1) 
WRITE  (9*  4005)  BCAP  (1«I)«  BCAP  (2*1)*  BCAP  (3*1)*  CHGWK  (1*1) 

I WRITE  (9*  4006)  DEMAND  (1*1)*  DEMAND  (2*1)*  DEMANO  (3*1)* 


WRITE  (9*  4006) 

* CHGWK  (2*1) 
WRITE  (9*  4007) 

• BUMANU  (1*1)  » 
WRITE  (9*  400b) 
WRITE  (9*  4009) 
WRITE  (9.  4010) 
WRITE  (9*  4011) 

1 * TCONV  (5*1) 
WRITE  (V.  4012) 


1 TCAP 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


(9*  4009) 
(9*  4010) 
(9*  4011) 
iNV  (5*1) 
(9*  4012) 
(5*1) 

(9*  4013) 
(9*  4014) 
(9,  4015) 
(9*  4016) 
(9*  4017) 
(9*  4018) 


PAOB  (I)*  PF AIL  (I)*  TYPE  (I)*  PRTY  (I)* 

BDMAND  (2*1)*  60MAND  (3*1)*  OFFSET  (I) 

SPLAT  (1)«  SPLAT  (2)*  SPLAT  (3) 

YEAR2D*  Yt AR2D*  YEAR2D*  YEAH2D 

T CONV  ( 1 * I ) r .T  CONV  (2. I)*  TCONV  (3*D*  TCONV  (4.1) 

TCAP  (1*1).  TCAP  (2* I ) » TCAP  (3*I)»  TCAP  (4*1)* 

((TUTIL  (Q*I>*  PCTUTL  ( Q ) > • 0=1*5) 

((TNOSHO  <Q*I)t  PCTNSH  (0))*  U = 1*  5) 

( ( TPKLOG  (0*1)*  BKL  (0) ) t 0 * 1*  5) 

( ( TSOAYS  (O*  I)«  AOB  (0))*  0 = 1.  5) 

((PASS  (0)*  PCTPAS  (0))*  Q * 1*  5) 


f 


i f 


It 


l 

i 
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( ( I K A I L (U)*  RCTFL  (U))*  0 = 1»  5) 
((TStTHK  (O.I)*  PCTSH  (u)>*  0 = 1 * 5) 
((  iNADlb  (U)»  PCTNDs  (U))*  U = 1*  5) 


WR I TE  (9*  4019) 

WRITE  (9*  4020) 

WRITE  ( 9 » 4021) 

WRITE  (9*  402?) 

RF.  TURN 

C CRT  ROUTINE  FOR  SCHOOL  ANL>  CENTER  TOTALS.  tNTRY  IS  15000  FOR  CENTER 
5000  IF  (*R2  .EQ.  2)  00  TO  23000 

-RITE  (11.5002)  SCHl(I)  5/*  NU  SEL  OPTION-  JUST  1ST  CHAR  SCH  */ 

5002  FORMAT  ( 1 X . T 34 SCHOOL  COJt  *.A1/) 
wRITF  (11.5003)  SCHl(I).  DATE 

5003  FORMAT  ( 1 X »A1 . ?A .' SCHOOL  NUMMARY  (RUN  '.A4.'76)'/)  | 

GO  TO  15000 

25000  WRITE  (11*15002)  SCH1  ( I ) . 3Ch2  ( I ) ♦ SCH3  ( I ) . SCrt4  ( 1 ) 

1500?  FORMAT  ( 1 X . T33 SCHOOL  CUOE  '*4Al/> 

WRITE  (11.15003)  SCHl (I) .iCH2(I) .SCH311) .SCH4(I) .DATt 
15003  FORMAT  ( 1 X *4A  1 »2X  . • SCHOOL  SUMMARY  (RUN  • * A4 * • 76 ) • / ) 

C 

C ENTRY  CENTER  TOTALS 
C 

4009)  YEAR2U*  YEAR2D.  YEAR2U.  YE AR2U 


WRITE 

(11* 

4009) 

WRITE 

(11* 

4010) 

WRITE 

(11* 

600*  ) 

WRITE 

(11. 

3005) 

WRITE 

(11* 

5006) 

WRITE 

(11. 

5007) 

WRITE 

(11* 

14013) 

IF(OFL.EO 
IF (OFL.EU 


50  0*. ) SLONV(l).  SCONV  ( 2 ) • SCONV<3).  SC0NV(4)*  SC0NV(5) 
3005)  SCAR  (1),  SCAR  (2),  SCAR  (3).  SCAR  (4)*  SCAR  (5) 
((SUTIL  ( vw  > • RCTUTL  <U>>»  0 = 1*5) 

((SNUSHU  (U).  PCTNSH  (0))*  0 = 1*  S) 

(SHKL06  (U) *SBKL(0) *0=1*5) 

0 ) wR I TE  (11.  5006)  ((SSOAYS  (0)*  AOH  (0))«  0 = 1*  5) 
DwklTE  (ll.lbOOH)  ( (OAYS(O)  *405(0)  ) .0  = 1*5) 


WRITE 

(11 

4017) 

WRITE 

(11 

5009) 

((PASS  (0).  PCTPAS 

( a ) ) ♦ 

0 = 

1*  3) 

WRITE 

(11 

3010) 

( (SF  AIL 

(U).  PCTFL 

(0)  ) * 

u = 

1.  5) 

WRITE 

(11 

5011  ) 

( (SSFT3K 

(0)  . PCTSR 

( 0)  ) . 

0 = 

1.  6) 

WRITE 

(11 

5012) 

( (SNAUIS 

(0).  PCTNOS  (U)> 

. 0 

= 1 * 5) 

WRITE 

RETURN 

(11 

402?) 

C FORMATS  FOR  60  COLUMN  ChT  OUTPUT 
C 

4001  FORMAT  Cl**  A4*  5X.  2AM.  *X*  * — SCHEDULE  OATA  — 
*2  CkS  bACKLOG* ) 

C 


FY 


FY ♦ 1 FY* 


4002  FORMAT  (*  *♦  Tjl 


4003  FORMAT  (*  SCHL  UaTF  CATALUu  NO 
* 217*  4X ♦ *•  WKS  * . 15) 


. 'ANNUAL  CONVENINGS'*  15*  217*  4X*  •#  STU'*  15) 
NEC  COURSE  LENGTH  UYS'*  15* 


4004  FORMAT  (• 
* 317) 


'*  4A1.1X*A4*1x*AH*  A2*  lx*  A4*  4X*  'COURSE  CAPACITY'* 


4005  FORMAT  (•  •*  T31.  'HUPERS  CAPACITY'*  317*  3A*  *FY*1  WK'»  14) 

TYRE  RrTY  ANNUAL  DEMAND'.  2X*  317* 


4006  FORMAT  C P AOb  PF A IL 
* 3X*  «FY*2  wK • « 1 4 ) 


4007  FORMAT  (•  ••  FS.l*  F6.1*  'A'*  3X«  2 (A**  5X ) . • SUPERS  DEMAND'* 

E VI. 17 


f nr 
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KEND 


FORTRAN 


* 2X«  31  7«  3X.  'tJFFbtT  * » lb) 


' ‘ 

\ 


1 


*008  FORMAT  (IX 


*009  FORMAT  ( * 


1 • I 3 OH  FY*.  13*  • I * OH  FY».  13*  • » ANNUAL  TOTAL  (•) 


♦010  FORMAT  <• 

1 * 


AjOll  FORMAT  (• 

1 5X.  • I 

? It>.  • I • « 

*01?  FORMAT  (» 

1 bx*  • I 
? 16.  • t • . 

*013  FORMAT  (• 


1 Fb.l 


"*l 


2 16.  • I * • 

* i 

*01*  FORMAT  <• 

1 Fb.l*  »*l 
? 16*  • I*. 

♦ 015  FORMAT  <•• 

1 !?#•  wKS I 
? 16*  • I • * 

% 

*016  FORMAT  (• 

1 Fb.l.  » I 
? 16*  • I • * 

% 

* 

*017  FORMAT  (• 

1 • I • ♦ 6X* 


T*6 ♦ 3 (bX*  a?).  / IX*  T J3*  ‘QUARTERLY  PROJECTIONS*) 
1 2 X ♦ *1  1 tjH  F Y • » Id.  • I 2 JR  FY*.  13. 


I *. 


bX 


- , 1- 

— 1 

• ) 

•»  CONVtNlNUbl * . 

I*. 

* 1 * ♦ 

bX. 

• 1 

I*. 

. 

1 *. 

I**  * 1 *♦  bx.  • 
♦ • 1 • ) 

1 *♦ 

IA.  • 

1 * . 

bX. 

. 

1 

• crs  capacity  I * . 

lA» 

* 1 * . 

bX. 

• 1 

*. 

I*. 

• 

1 '• 

I*.  • 1 • • 5X.  • 

. • t • ) 

1 *♦ 

I*.  ♦ 

1 *. 

bX. 

. 

1 •• 

•UT  IlIXaTI Oi't  1 * . 

IA* 

* ) • ♦ 

Fb. 

1*  *%l 

• . 

I*. 

t 

1 *. 

I*.  • 1 *.  Fb.l** 

*1  ** 

I*.  • 

1 * . 

F5.1. 

•%l 

.1*  **l • ) 

•NO  SHOnb  1 • « 

I** 

* 1 • * 

Fb. 

1.  "M 

* . 

I*. 

t 

1 *. 

I A . • |».  Fb.l.* 

*1  •» 

I*.  • 

1 * . 

F5.1. 

•*l  ». 

.1.  •»!•) 

•bAKLOO  «/i*KS  I * . 

I** 

• 1 * ♦ 

12. 

• JKSI 

*. 

I*. 

1 

1 •• 

I A , * | •*  I?,  • MftSI  *. 

I*.  * 

1 *. 

12.* 

RKSI  *. 

. • WKb  1 • ) 

•bTU  OAYS/AOd  1 * . 

I** 

* 1 * . 

F5. 

1.  * 1 

•• 

I*. 

* 

1 •• 

1A.  * 1 *♦  Fb.l.* 

1 • ♦ 

I*.  * 

1 ** 

Fb.l. 

. 

1 *. 

F5.1.  • I*) 


12X.  * I * * bX*  • 
•»  bx*  *1**  t>x * 


I * * 6X.  • I 
I * * 7X.  « 


♦018  FORMAT 

( • 

• ♦ 

•total  pass 

1 •♦ 

IA. 

• 1 • ■ 

* Fb. 

1.  • % 1 • . 1* 

t 

i 

) ». 

j 1 Fb.l. 

•%l 

• . 

I*.  • 1 * * Fb. 

1 ♦ • 

*1  • » 

I*. 

• 1 • . 

Fb.l.  • % 1 * 

9 

' ? Ib*  • 

1 * . 

Fb 

.1.  *»!•) 

♦019  FORMAT 

( • 

• • 

•total  fail 

1 •* 

I*. 

« 1 » 1 

F5. 

1.  »%l*.  I* 

9 

. 

I *. 

1 FS.l. 

•%l 

• . 

Ia.  • l *.  Fb. 

1.  • 

*1  *♦ 

I*.  1 

I • . 

Fb.l.  •*!• 

9 

? 16.  • 

1 •* 

Fb 

.1.  •*!•) 

♦020  FORMAT 

( • 

* . 

•SfcTMACK  ACAOI •» 

I*f 

• 1*1 

F5. 

1.  *«l«.  I* 

9 

. 

I •• 

1 Fb.l. 

•*l 

•• 

1*.  • 1*.  Fb. 

1.  • 

*1  •* 

I*.  ' 

1 •» 

Fb.l.  •*!• 

9 

2 16.  • 

1 '. 

Fb 

. 1*  •*( • ) 

*021  FORMAT 

( • 

*. 

•01 sfcNROLL  NA  I * . 

I*. 

• 1*1 

Fb. 

1.  •% 1 • • I* 

9 

t 

l •* 

1 Fb.l. 

'*1 

•* 

1*.  • 1 * . Fb. 

1.* 

*1  •» 

I*.  1 

1 •• 

Fb.l.  •*!• 

9 

2 1 6 • • 

1 •• 

FS 

.1.  •*!•) 

. 5X«  • I * * 6X. 
• . 6X  * • I » ) 


♦022  FORMAT  (•  ».  •• 

• t. 


I*.  5X. 


TAILE  i»-*i  leA 


m 


2 /*/•/•  • ) 


C SCHOOL  AND  CENTEH  <_*T  FORMATS 
C 

5004  FOHMAT  (•  • * • ■ CUNVFNlNo 
1 DX.  • I • * Id*  • I • . *5/ 
? Ib.  • I • . DX.  • I • ) 


5005  FOHMAT  (• 

1 DX,  * t 

2 16*  • I * « 

C 

5006  FOHMAT  ( • 

1 FD.1.  **l 

2 Ib.  • I • ♦ 

C 

5007  FOHMAT  (• 

1 Fd.l*  **1 

2 1 6 * * I • * 

C 

14015  FORMAT  (• 

1 I 2 * • .KSl 

2 Ic,  » I • ♦ 

C 


•■  CUNVFNlNGSl 

• ♦ 

ID. 

• 1 

* * DX* 

• I'*  IS. 

• 1 

•» 

Id*  • 1 • • 
* • 1 • ) 

t 

• 

1 • ♦ 

Id, 

• 1 • • 

DX.  • !•* 

• CKD  CAPACIIYI 

• • 

ID, 

* 1 

• * DX* 

• 1*.  15. 

• 1 

• . 

ID*  • 1 * * 

* • 1 • ) 

3*  * 

• 

1 • * 

ID. 

• 1 • , 

DX.  • I*. 

•Ul  III/*.!  ION  1 

• * 

Id* 

* 1 

• * fd  . 

1*  •*!••  15. 

• 1 

• . 

Id*  • ! • « 

f-o.l 

♦ •♦  1 • ♦ 

ID* 

• 1 • ♦ 

Kb. I.  • » 1 * * 

.1*  '#>!•) 

•NO  SmOwS 

1 

• « 

Id* 

• 1 

**  F->. 

1.  •%!••  ID. 

• 1 

• ♦ 

lb*  • 1 • * 

FD.1 

*•♦!•* 

15, 

• 1 ** 

FS.l*  •%!•* 

.1*  '*1 • ) 

•F'AkLOG  </»Ml 

• » 

Id, 

• » • 

« 12*  • 

*KSI*.  Ib.  *1 

1 

* Id*  • I • * 12**  *i\dI'*ID*  • I • * 
l2,» 


1 2 * • 


5008  FOHMAT 

( * * * 

•dTU  MAYS/AOb 1 • * Id. 

• 1 •* 

Fb. 

1.  • 1 

••  IS. 

1 Fb.l, 

• 1 • * 

Id.  * | *♦  F6.1*  • I •* 

ID. 

• 1 • . 

Fb.l* 

• 1 •* 

2 16*  • 
c 

1 • * Fb 

. 1 . • 1 • ) 

15008  FOHMAT ( 

• KSTU 

DAY/AOb! • ,4 (FD.  1 » • ! 

• * Fb  . 1 

. • ! • 

) .Fb.l 

. • ! • • 

5009  FOHMAT 

( • • » 

• total  PASS  i • * ID* 

• i • * 

Fd. 

1*  *«l 

••  IS. 

1 Fd.1, 

•%l  • * 

Id,  • I • , Fd.1* '*1 •* 

15* 

* 1 •* 

FS.l. 

•«l  • , 

2 16*  • 
c 

1 •»  Fd 

. 1 » •*! • ) 

5010  FOHMAT 

( • » * 

•TuTAL  FAIL  1 * * ID* 

• 1 •* 

FD. 

1*  *«l 

••  IS. 

1 Fd. 1 • 

*%  1 » * 

Id*  • 1 • » FD. 1 * **l • * 

Id* 

• 1 ». 

F5.1. 

• »l  •• 

2 Ib*  • 

c 

1 • * F b 

.1*  •*! • ) 

w 

5011  FORMAT 

( * * ♦ 

'sETHACK  ACAOI • » Id* 

• 1 • ♦ 

F5. 

1.  • % 1 

••  IS* 

1 Fd. 1 * 

•*l  • . 

Id*  • 1 * * F d • 1 » • 4 1 •• 

15, 

* I 

FD.1* 

• *l  •» 

2 Ib*  • 

c 

1 *.  FD 

.1  * »*l  • ) 

t 

5012  FOHMAT 

( • • . 

•oi StNKULL  Nrt  1 • » ID* 

• 1 • , 

FD. 

i.  *«l 

• . IS. 

1 Fd.1* 

•*l  • ♦ 

Id*  • 1 • * F D.l * •D 1 • » 

IS. 

• 1 ». 

FS.l* 

• *l  • , 

2 Ib,  • 

1 • . FD 

.1*  •»!•) 

HE TURN 
END 

SUbKOUTINE  HANGF.  (KK.LL) 

IMPLICIT  lNTtGtH*2  (A-Z.S) 

INTEGEH*4  ITEM,  ITEM*  IItrt2*  ITEMS*  ITEM4*  ITEMS*  KnEHE 
PEAL*4  TEM*  TEM1*  TEM2*  TEM.J*  TEM4 « TEMS*  iLEN 
COMMON  DUMMY*  ACONV*  »LFN*  *CAH*  SBCAH*  LAST*  COURSE 
COMMON  SHl  *»h2**H.***h4,  ItM*  TEMl*  TEM2*  TtMJ*  TEM4  * TEMS 
COMMON  ITEM*  ITtMl*  I TEm2 * IIEmJ*  ITEM4*  ITEMS 
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*r- 

‘f 

I 

I 


I 


♦ 


KENO  F OUTRAN 


.... 

) 3 


COMMON  YEAn.  CRSES*  U.  « . *KUFF.  INIT*  wrtERE.  NEGFLG*  AOBCON 
COMMON  TWACtK,  HLSEl.b*  tNUFLO*  PRE.FLG*  YRFLu*  YE  ARON*  PR  INTF*  NGR 
C RANGE  tRROR  SUBROUTINE  Fo*  UintCT  MCCtSS  lu 
NGH  =10  J KK  = O i LL  = 232 
RETURN 

j End 

BLOCK  uATA 

C INITIAL  VALUES  FOR  PANAMtTLNb  IN  COMMON  STORAGE 
IMPLICIT  INTEGER*?  («-/*»> 

REAL**  LEN*  NOSHO***  NOSMPL*  BKLGPL*  HPOUL*  NAOISt  FAIL*  COP 
NEAL**  TumAno.  stThMK*  0»TE 
C 

COMMON  /DATA/  COP  (32t)»  ChSRUN  <32 8).  CONV  (3*328)*  LtN  (3*328) 
COMMON  /DATA/  CAP  (3*328) * HCAP  (3*328)*  CMG*K  (2*328) 

COMMON  /OATA/  uFFbtT  (328)*  DEMAND  (3*328)*  BDMAND  (3*328) 

Common  /DATA/  oPOOL  (32H)*  Fail  (328)*  NAD1S  (328)*  NOSMPL  (328) 
COMMON  /DATA/  HAKLOG  (32H).  NOSr*0«  (328)*  BKLGPL  (32ft) 

COMMON  /OAT*/  BKLG  (328)*  TOMAnO*  SETBAK*  DATE 
C 

DATA  MKLG/32b*i>/.  CRSRUN  /328*0/«  BKLGPl*  NOSMPL*  BPOOL  /98**0./ 

C 

C QUARTERLY  AND  ANNUAL  COURSE  TOTALS  ACCUMULATION 
PEaL**  TKAIL*  TnAOIS 
INTEGER**  TsDAYS*  TCAP * ToTlL 
C 

COMMON  /TOTALS/  TCAP  (S.  328)*  TUTIL  (b*  328)*  TSETBK  (5*  328) 
COMMON  /TOTALS/  TSOAYS  (S*  328)*  TFAIL  (S*  328)*  TNOSmO  (6*  328) 
COMMON  /TOTALS/  TNADIS  (s*  328).  TftKLOG  (5*  328)*  TCONV  (5*  328) 

C 

OATA  TCAP  / 1 b*  U * 0 / « TUTIL  /lb*0*U/«  TSET*3K  /lb*0*0/ 

OATA  TNAOIS  /l6*n*0«/«  THKLOG  /16*0*0/*  TCONV  /lb*0*0/ 

DATA  TSOAYS  /lb*0*0/»  TFAlL  /lb*0*0./*  TNOSMO  /16*0*0/ 

C 

C CpMMON  FOR  COURSE  ACTIVE  MATRIX  ELEMENTS 
REAL**  ACTCTR 

COMMON  /RUN/  ACTIVE  (2SD)*  ACTCTR  (2S0)*  ACTUTL  (2SO) * ACTNEG(250) 
C 

DATA  ACTIVE  /2S'J*0/.  ACTCTn  /2b0*0./*  ACTUTL*  ACTNEG  /t>00*0/ 

c 

C COMMON  FOR  SCHOOL  «NU  CENTER  TOTALS 
C 

INTEGER**  SUTIL*  CUTIL*.  SC«P*  CCAP*  SSOAYS.  CSDAYS*  IF  AIL*  INADIS 
INTEGER**  PASS*  SbKLOG*  CHKLOG*  SftKL*CBKL 

REAL**  AOB*  PCTuTl*  PCTNSm*  PCTPAS*  PCTFL*  PCTS8*  PCTNDS*  PLEN 
C 


j 

I 


( ) 


TABLE  VI-17  (Continued) 
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SECTION  VII 


SYSTEM  CAPABILITIES/REQUIREMENTS  AND  RESOURCES  MODEL 
PROGRAM  DESCRIPTIONS 


1 


MODEL  DESCRIPTION 

The  SCRR  model  is  a set  of  nineteen  (19)  VP/CSS  Executive  procedures,  twelve  (12) 
FORTRAN  programs,  three  (3)  PL/1  programs,  and  one  (1)  MPS  III/OL  procedure. 

All  of  these  procedures  and  programs  are  executed  under  the  control  of  the 
nine  (9)  primary  VP/CSS  Executives  depicted  in  Figure  VII-1.  Figure  VII-1 
shows  the  overall  flow  through  the  nine  executives  and  the  connection  with  the 
RAMIS  data  base.  The  various  input  and  output  data  files  and  all  executives, 
programs  and  procedures  executed  by  the  primary  executives  do  not  appear,  since 
some  are  accessed  several  times  and  the  overview  flowchart  would  be  nearly 
unintelligible. 

Table  VII-1  gives  a brief  description  of  the  VP/CSS  Executive  programs  utilized 
by  the  SCRR  model.  All  RAMIS  procedures,  FORTRAN  programs,  PL/1  programs,  and 
the  MPS  III/OL  procedure  are  executed  by  these  executives.  This  section  of  the 
User's  Manual  has  been  organized  based  on  these  VP/CSS  executive  programs.  For 
example,  the  RAMSCRR  subsection  contains  the  verbal  descriptions  and  listings  for 
the  RAMSCRR  EXEC  and  the  six  RAMIS  procedures  executed  by  RAMSCRR.  The  SCRR1 
subsection  contains  descriptions  and  listings  for  the  SCRR1  EXEC,  the  MPS  III/OL 
procedure,  and  the  FORTRAN  subroutine  executed  under  control  of  MPS  III. 

Table  VI 1-2  gives  a list  of  the  input  and  output  data  files  used  by  each  of  the 
executive  programs.  All  files  are  stored  on  disk  and  are  named  by  a unique 
three-part  identifier  composed  of  a filename,  a filetype  and  a filemode.  Only 
the  filename  and  filetype  are  shown  in  Table  VI I -2 . All  these  files  have  a 
filemode  of  P which  indicates  that  they  reside  on  the  P (Permanent)  disk. 


OVERVIEW  OF  SCRR  EXECUTIVE  PROGRAMS 


FIGURE  VIM 


SCRR  EXECUTIVE  PROGRAMS  DESCRIPTION 


EXEC  NAME 


DESCRIPTION 


SETSCH 


SCRR 


RAMSCRR 


BLANK 


SCRRSORT 


Initializes  the  RAMIS  data  base  procedures  to 
retrieve  data  for  only  the  specified  organization. 

A top  level  executive  which  executes  the  follow- 
ing programs:  RAMSCRR,BLANK,IFI,IF2,SCRRSORl 

IF3.IF4, COMB, and  SCRRI. 

Uses  the  RAMIS  data  base  procedures  SCRR 
INSTI,  SCRR  INST2.SC RR  FACIL.SCRR  IAVAIL, 
SCRR  FAVAIL,and  SCRR  CRSE  to  retireve  all 
all  SCRR  model  basic  input  data  from  the  three 
data  files  COURSE, INST,and  FACIL  and  to  derive 
additional  data  from  these  basic  inputs. 

Deletes  all  internet  blank  characters  from  facility  names 
in  the  files  FILE  FACIL  and  FILE  FAVAIL. 

Formats  NAME  and  ROW  data  for  LP  input. 

Formats  LP  COLUMN  data  including  instructor  and 
facility  requirements  and  objective  function  coefficients. 

Sorts  IF2  output  by  course  CDP  number. 

Formats  LP  RHS  data  section,  including  instructor  and 
facility  availabilities. 


Formats  BOUNDS  data  section,  including  course 
convenings  limits,  of  LP  input  data. 


COMB 


SCRRI 


SCRR2 


SCRR3 


Combines  outputs  from  IFI,IF2,IF3,and  IF4  into  a 
single  file  SCRR  DATA  which  is  directly  readable 
through  MPS  III.OL  Terminal  Control  Language 

Establishes  all  control  data  (i.e.,  input,  output,  and 
internal  processing  files)  required  by  MPS  1 1 I/O  L system 
end  initiates  the  LP  processing. 

A top  level  executive  which  executes  the  following 
programs:  BLANK,  IF2,  SCRRSORT,  COMB,  SCRRI. 

A top  level  executive  which  executes  the  following 
programs:  BLANK,IFI,IF2,SCRRSORT,IF3,IF4, 

COMB,  and  SCRRI. 
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SCRR  EXECUTIVE  PROGRAMS  DESCRIPTIOr 


EXEC  NAME 

DESCRIPTION 

ASSIGN 

Compiles  and  prints  a list  of  instructor  assignments 
and  contact  hour  requirements. 

FACILITY 

Compiles  and  prints  a list  of  facility  utilization 
data. 

MOOAVAIL 

Modifies  resource  availability  data  prior  to  LP  optimiza- 
tion. 

REQMT 

Permits  user  to  specify  percentage  changes  to  variables 
which  impact  instructor  requirements. 

FIXCONV 

Modifies  the  LP  input  date  to  fix  the  number  of  course 
convenings  at  the  current  level. 

MAXCONV 

Modifies  the  LP  input  data  to  optimize  the  number 
of  course  convenings. 

TABLE  IV-1  (Continued) 


SCRR  DATA  FILE  SUMMARY 


EXEC 

[fJPUT  FILES 

OUTPUT  FILES 

RAMSCRR 

RAMIS  files  COURSE,  INST, 
FACIL 

FILE  INST,  FILE  IAVAIL, 
FILE  FACIL,  FILE  F AVAIL, 
FILE  CRSE 

BLANK 

FILE  FACIL,  FILE  F AVAIL 

FILE  FACIL,  FILE  F AVAIL 

IF1 

FILE  1 AVAIL,  FILE  F AVAIL 

FILE  IF1 

IF2 

FILE  INST.  FILE  FACIL,  FILE 
CRSE 

FILE  IF2 

SCRRSORT 

FILE  IF2 

FILE  IF2 

IF3 

FILE  IAVAIL,  FILE  F AVAIL 

FILE  IF3 

IF4 

FILE  CRSE 

FILE  IF4 

COMB 

FILE  IF1,  FILE  IF2,  FILE  IF3, 
FILE  IF4 

SCRR  DATA 

SCRR1 

SCRR  DATA,  SCRR  RUN,, 
SCRR  FORM  LNKLIB 

SCRR  OUTPUT 

ASSIGN 

FILE  INST,  FILE  CRSE,  FILE 
IAVAIL 

ASSIGN  LISTING 

FACILITY 

FILE  FACIL.FILE  CRSE, 
FILE  F AVAIL 

FACILITY  LISTING 

MODAVAIL 

SCRR  DATA 

SCRR  DATA 

REQMT 

RAMIS  files  COURSE  and 
FACIL 

FILE  FACIL,  FILE  INST, 
FILE  CRSE 

FIXCONV 

SCRR  DATA 

SCRR  DATA 

MAXCONV 

SCRR  DATA 

SCRR  DATA  1 

TABLE  IV-2 
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SETSCH  EXEC  DESCRIPTION 

The  purpose  of  the  executive  SETSCH  is  to  identify  the  crou<jization  for  which 
data  is  to  be  retrieved  from  the  RAMIS  data  files.  $ET3’~H  u«es  the  CSS  "!•  ' 
command  to  effect  the  required  changes  in  the  RAMIS  nrcr^dures  SCRR  7 MS • . 

SCRR  INST2,  SCRR  FACIL,  SCRR  CRSE,  SCRR  1AVAIL,  and  SCRR  FAVAIL.  Th"  EDI' 
command  copies  the  RAMIS  procedure  into  core.  Subsequent,  edit  requests 
examine  and  modify  the  core  image  of  the  procedure  and  *ren  write  the  pro- 
cedure to  <Jisk. 

I The  initial  EXEC  statement  suppresses  printing  of  all  CSS  command  statements 
and  all  EXEC  control  statements.  Next,  the  output  file  for  the  FORTRAN  cro- 
gram  SETSCH  is  specified  and  SETSCH  is  executed.  The  EXEC  file  SS  whi  n 
has  been  created  by  SETSCH  is  then  executed.  SS  EXEC  uses  the  CSS  EPIl 
command  to  modify  the  RAMIS  procedures.  First,  the  line  containing  the  phrase 
"if  sch  is"  is  located  in  the  procedure  by  the  locate  request.  Then  the 
four-digit  activity/department  code  specified  by  the  user  is  overlayed  in 
the  positions  following  the  phrase  "if  sch  is"  using  the  EDIT  command  OVERLAY 
request.  The  final  statement  in  the  SS  EXEC  writes  the  updated  RAMIS  procedures 
to  a writable  disk.  SS  EXEC  is  erased  following  execution. 

SETSCH  FORTRAN  DESCRIPTION.  The  purpose  of  SETSCH  FORTRAN  is  to  create  the 
SS  EXEC  file  which  contains  the  statements  required  to  include  the  specified 
activity/department  code  in  the  RAMIS  data  base  procedures. 

The  user  specifies  the  four  digit  activity/department  code.  This  code  is 
formatted  within  several  CSS  EDIT  coimand  request  statements  and  written  on 
output  file  SS  EXEC.  The  SS  EXEC  file  created  by  SETSCH  is  shown  below: 


£S EXEC 


I 


I.STACK  KT 
M^EGsT  A C* 
L.  /IF  SCW 

0. 

FILE 

^ENUSTACr 


lb/ 


EO I T SCHw  hr-ClL 
^STACK  i\T 
SBEGsT  ACr 


L.  /IF  S(.H  IS/ 

0 • AS** 

FILE 

(wENDSTAC* 

EO I T SC*W  FAVAIL 
&STACK  K 1 
fcBEGSTACK 
L.  /IF  SCH  is/ 

()•  AS** 

FILE 

fcENDSTACx 
EDIT  SCWP  C^sE 


i 


V.  J 


n -> 
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SS EXEC  (Continued) 


6.STACK  k r 
fcBEGST  ACK 
L.  /IF  SCH  IS/ 

0.  AS** 

FILE 

EENDSTACK 

EDIT  SCRR  I A V A I L 

4.STACK  KT 

^HEC-STACK 

L.  /IF  SCH  IS/ 

0.  Ai<li 

FILE 

fcENDSTAC* 

EDIT  SCRK  INS T l 
NSTACK  KT 
iBEGSTACK 
L.  /IF  SCH  IS/ 

0.  Abte* 

FILE 

EENDSTACK 
EDIT  SCHW  INSTs; 


SETSCH  PROGRAM  LISTINGS 


SETSCH  EXEC 


&TYPE  OFF 

FILEDEF  h DSK  SS  t/EC 

FILEDEF  h COnO 

FILEDEF  S CON 

WUN  SETSCH 

EXEC  SS 

ERASE  SS  EXEC 


■■IflNfiili 


¥11-7 j 


INTEGERS  bCH 
rfRlTE  ( 6 « R ) 

9 FORMAT ( *tNTtR  <*  UlGlT  SCHOOL  Cl) Jt : ' ) 

READ (S* 1 0 ) SLH 
10  FORMAT  (A4) 

«»R1TE  (Bill)  Slfi  « bCH  * SC.H  « bCH  • bCH  ♦ SCH 
1]  FORMAT  ('fcSTAC*  *T»/'\HFt>bTACK»/'L,  /IF  bCH  lS/*/*0. 
1 A4/'F  iLE'/'S-tNObTACK’/'FlDIT  bCRR  F A C 1 L ' / 

1'fcSTACK  KT'/**.HtGSTACK*/*L.  /IF  SCw  IS/»/*0. 
lA4/*FlL£*/*^hNUbTACK*/'ht)IT  bCRR  F AVAIL1/ 

1'SSTACK  Kr»/*NHtbSrACK*/'L.  /IF  SCH  lS/'/'O. 
lA4/»FILE*/'^tNUbrACK»/'tuIT  bCRR  C«bt*/ 

1‘SSTACK  KT*/'KHtbbTACK»/'L.  /IF  bCH  IS/*/*0. 

1 AA/*FILE»/;^ENUbTACK*/'tUl r bCRR  IAVAlL*/ 
l*<s,STACK  KT'/*N«tGbTACK»/*L.  /IF  bCH  IS/'/*u. 
lA4/*FlLE»/»S.tNUbTALK»/'EUIT  bCRR  INST1'/ 
l'KSTACH  KWnfjEGSTACK*/*L.  /IF  SCfi  Ib/*/»0. 
lA4/»F|LE'/'KtNuSTACM/»£im  SCKR  INST  if  • ) 

End  f 
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SCRR  EXEC  DESCRIPTION 

The  purpose  of  executive  SCRR  is  to  execute  all  SCRR  model-related  executives 
through  a single  keyboard  entry. 

Upon  entry,  a test  is  made  to  determine  if  core  size  is  equal  to  or  greater 
than  320K.  If  core  size  is  less  than  320K,  a message  directing  the  user  to 
SET  CORE  320  is  issued  and  SCRR  EXEC  is  terminated.  If  the  core  requirement 
is  met,  a message  describing  the  objective  of  the  EXEC  is  printed  and  the 
user  is  given  the  alternative  of  proceeding  with  model  execution  or  termina- 
Ing  the  SCRR  EXEC  at  this  point.  If  the  user  elects  to  proceed  with  SCRR 
model  execution,  the  following  EXECs  are  executed  serially: 

RAMSCRR 

BLANK 

IF1 

IF2 

SCRRSORT 

IF3 

IF4 

COMB 

SCRR1 


Each  of  these  executives  is  described  in  detail  on  the  following  pages, 


ItHUmk 
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SCRR  PROGRAM  LISTING 


MF  &C.oWfc  GE  3d l>  kskih  .■> 

npp I P£Qu I kel)  C'ikt  is  Jd"*.  KLtM'it  TYPt:  set  cope  Jdu 
*PPI  THEN  PtISSUt  LOi-’f  ttNu:  SCP* 

S.EXIT 

NPRI  THIS  PPOGkA*  Tht  LINc.*»k  PpOG« amm I img  OPTIMIZATION 

&PRI  OF  THE  KESOUKCt  oaTa  CUPP!- i'j  I L Y STOpEO  Im  T nt  MAsTER  DATA  FILES 
&PRI  FOP  THE  DEPART  * E^T  IDENTIFIED  TmkUUOh  txtCUTlON  OF  Trtt  SETSCH 
&PPI  COMMAND,  no  FUPThEP  USfcP  I^rtHVtNl  ION  »IlL  Bt  PtOUlPED. 

&PRI  DO  YOU  *ISH  TO  PnOCFED?  ( Y/N ) 

NPEAD  APGS 

&IF  &1  Nfc  Y LGOTO  -EX  If 

NSTACK  KT 

EXEC  PAMSCHH 

EXEC  RLANK 

EXEC  IF  1 

EXEC  IFP 

EXEC  SCPHSOPT 

fcSTACK  KT 

EXEC  IFJ 

EXEC  IF4 

EXEC  COMh 

EXEC  SCRhI 

-EXIT  iF.xlT 


TABLE  VI 1-3 


TAE6  REPORT  NO.  36 


RAMSCRR  EXEC  DESCRIPTION 

All  interface  between  the  SCRR  model  and  the  OOTS  data  base  is  performed  by 
the  RAMSCRR  EXEC.  RAMSCRR  utilizes  a series  of  RAMIS  data  base  procedures 
to  retrieve  (and  to  calculate  when  required)  instructor  and  facility  require- 
ments and  availabilities  and  course  parameters  from  the  three  RAMIS  data 
files  INST,  COURSE,  and  FACIL. 

Initial  RAMSCRR  statements  suppress  all  terminal  output  and  gain  access  to 
RAMIS  data  base  software.  Then  the  output  file  FILE  INST1  is  established  for 
! the  RAMIS  procedure  SCRR  INST1 , and  SCRR  INST  1 is  executed.  Similarly,  output 
files  FILE  INST2,  FILE  FACIL,  FILE  FAVAIL,  FILE  IAVAIL,  and  FILE  CRSE  are  defined 
and  RAMIS  procedures  SCRR  INST2,  SCRR  FAIL,  SCRR  FAVAIL,  SCRR  IAVAIL,  and 
SCRR  CRSE  are  executed.  The  files  FILE  INST1  and  FILE  INST2  are  combined  by 
the  FORTRAN  program  SCRRINST  to  form  the  file  FILE  INST.  RAMSCRR  EXEC  concludes 
by  removing  the  RAMIS  software  disk  from  the  user's  virtual  machine. 

SCRR  INST1  AND  SCRR  INST2  DESCRIPTIONS.  The  purpose  of  the  RAMIS  procedures 
SCRR  INST1  and  SCRR  INST2  is  to  calculate  instructor  requirements  in  hours  by 
course  and  by  instructor.  The  basic  data  required  to  determine  Instructor 
requirements  are  stored  in  the  RAMIS  course  file  COURSE. 

SCRR  INST1  first  retrieves  the  required  data  fields  for  the  activity/department 
code  specified  by  the  user  in  the  SETSCH  EXEC.  The  total  number  of  contact  > 
hours  required  (TOTHRS)  for  each  student/instructor  ratio  (FI)  within  each  I 
course  (CDP)  is  calculated.  The  class  capacity  is  multiplied  by  the  historical 
course  utilization  percentage  to  determine  average  class  size.  Average  class, 
size  is  divided  by  the  student/instructor  ratio  (FI)  to  determine  the  total 
number  of  instructors  (NOINST)  required  at  each  student/ instructor  ratio.  NOINST 
is  multiplied  by  the  required  contact  hours  at  each  ratio  to  arrive  at  TOTHRS. 
TOTHRS  are  then  surnned  by  CDP  to  get  the  total  contact  hours  required  for  each 
course.  The  number  of  instructors  physically  assigned  to  each  course  is  deter- 
mined by  summing  the  value  of  F3  (1  “assigned,  0=not  assigned).  TOTHRS  is  then 
divided  by  the  sum  of  F3  to  determine  the  total  number  of  hours  required  per 
instructor  per  course.  Output  is  written  on  FILE  INST1.  The  record  format  for 
FILE  INST1  is  shown  below: 


FIELD  NAME 

CDP  NO. 

REQ'D  HRS. 

TYPE 

A 

F 

LENGTH 

4 

5-1 

RELATIVE  POS. 

1-4 

5-9 

SCRR  INST2  determines  the  specific  instructors  by  ID  and  name  assigned  to 
each  course.  Output  is  written  on  FILE  1NST2.  The  record  format  for  FILE 
INST2  is  shown  below: 


FIELD  NAME 

CDP  NO. 

INST  ID 

INST  NAME 

TYPE 

A 

I 

A 

LENGTH 

4 

9 

16 

RELATIVE  POS. 

1-4 

5-13 

14-29 
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The  FORTRAN  program  SCRRINST  combines  records  from  the  two  files  FILE  INST1 
and  FILE  INST2.  Required  contact  hours  per  instructor  per  course  from  FILE  INST1 
is  appended  to  the  appropriate  record  in  FILE  INST2  containing  course  numbers 
and  instructor  identification.  The  combined  records  are  written  on  FILE  INST. 

The  record  format  for  FILE  INST  is  shown  below: 


FIELD  NAME 

TYPE 

LENGTH 

RELATIVE  POS 


ICDP  NO. 

INST  ID 

1 A 

I 

I 4 

9 

L hi 

5-13 

INST  NAME 
A 
16 

14-29 


REQ'D  HRS. 
F 

5.1 

30-34 


SCRR  FACIL  DESCRIPTION.  The  purpose  of  the  RAMIS  procedures  SCRR  FACIL  is  to 
determine  facility  requirements  in  hours  by  course  and  by  facility.  These  data 
are  stored  in  the  RAMIS  facility  file  FACIL. 

SCRR  FACIL  retrieves  the  required  hours  from  FACIL  by  course  and  by  building 
and  room  number.  Output  is  written  on  FILE  FACIL.  The  record  format  for 
FILE  FACIL  is  shown  below: 


FIELD  NAME 

TYPE 

LENGTH 

RELATIVE  POS 


CDP  NO. 

BLDG. 

ROOM 

A 

A 

A 

4 

4 

4 

1-4 

5-8 

9-12 

REO'D  HRS. 
F 

5.1 

13-18 


SCRR  FAVAIL  DESCRIPTION.  The  purpose  of  the  RAMIS  procedure  SCRR  FA VAIL  is  to 
determine  facility  availability.  Annual  availability  is  stored  in  the  RAMIS 
facility  file  FACIL  by  building  and  room. 

A building  and  room  combination  may  appear  in  the  FACIL  file  more  than  once. 
Annual  available  hours  Is  included  on  each  FACIL  record.  SCRR  FAVAIL  retrieves 
the  available  hours  associated  with  only  the  first  appearance  of  each  facility 
in  the  file.  Output  is  written  on  FILE  FAVAIL.  The  record  format  for  FILE 
FAVAIL  is  shown  below: 


FIELD  NAME 

BLDG. 

ROOM 

TYPE 

A 

A 

LENGTH 

4 

4 

^ RELATIVE  POS 

1-4 

5-8 

AVAIL  HRS. 
1 
4 

9-12 


SCRR  IAVAIL  DESCRIPTION.  The  purpose  of  the  RAMIS  procedure  SCRR  IAVAIL  is 
to  determine  Instructor  availability  for  classroom  instruction.  The  basic 
Information  from  which  availability  is  determined  is  stored  in  the  RAMIS 
Instructor  file  INST. 

The  Instructor  activity  profile  consists  of  14  activity  classifications.  An 
estimate  of  the  number  of  hours  per  year  expended  on  activities  within  each 
activity  classification  Is  stored  in  the  RAMIS  instructor  file  for  each  Instruc- 
tor. One  of  the  14  activity  fields  (CONT)  Is  devoted  to  Instructor  contact 
time  and  contains  an  annual  estimate  of  Instructor  contact  time.  The  remaining 
13  fields  contain  annual  estimates  of  time  expenoea  on  non-contact  time  activities. 
SCRR  IAVAIL  sums  the  non-contact  activities  for  each  instructor  and  writes  total 
contact  time  and  non-contact  time  on  FILE  IAVAIL  for  each  Instructor  Identified 
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by  ID  and  name.  If  the  field  CONT  contains  a 0,  a default  value  of  one  (1) 

hour  is  entered  on  FILE  IAVAIL.  The  record  format  for  FILE  IAVAIL  is  shown 
below: 


SCRR  CRSE  DESCRIPTION.  The  purpose  of  the  RAMIS  procedure  SCRR  CRSE  Is  to 
record  the  convening  frequency  and  average  class  size  for  each  course.  The 
required  data  are  stored  in  the  RAMIS  course  file  COURSE. 


SCRR  CRSE  first  calculates  average  class  size  by  multiplying  class  capacity 
by  percent  utilization.  Convening  frequency  and  class  size  are  recorded  by 
course.  Output  Is  written  on  FILE  CRSE.  The  record  format  for  FILE  CRSE 
Is  shown  below: 


. m 
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RAMSCRR  PROGRAM  LISTINGS 


RAMSCRR  EXEC 


NTYPF  OFF 
(.STACK  KT 

FILEOEF  4 OSk  FILE  I'.sTl  hl  F Lp<  y 

ATTACH  PAMI*  ALL  hKlrF 

EXEC  RAMISIN  SCNW  INStl 

FILEOEF  4 OSK  FlLt  *F  F LH 

EXEC  RAMISIN  SCRR  I NS  T c 

FILEOEF  4 OSK  FILE  Iavail  *E  F LF  ii 

EXEC  RAMISIN  SCKR  I a v a I L 

FILEOEF  4 OSK  FILE  C*SE  HE  F Lh  1J 

EXEC  RAMiSIH  SCRR  C«Sl 

FILEOEF  4 DSK  FILt  FACIL  «t  F Ln  it 

EXEC  RAMISIN  SCHH  FaCIL 

FILEOEF  4 OSK  FILE  F A V A I L PE  F LK  1 J 

EXEC  RAMISIN  SCRR  F A V A II 

OETACH  RAMIS  ALL  b*lEF 

FILEOEF  I OSK  FILE  INST? 

FILEOEF  d OSK  FILE  INST1 

FILEDEF  V DSK  FILE  INST  nfc  F lh  j* 

RUN  SCRRIMST 


(RAMIS  PROCEDURE) 


TA8LEF 
FILE  TESTC 

PRINT  CAP  1 AND  UCAF  A NO  CONVl  AND  HOI  D 
BY  COP 

IF  SCH  IS  AS*. 

ENO 

DEFINE 
file  HOLU 

CLASIZE/I3  = (CAfI  » UCA*-  * .01)  ♦ .b 

ENO 

TABLF 

FILE  HOLD 

PRINT  CLASIZt  ANU  CONVl  ANU  SAvE  BY  COF 
ENO 


TABLE  VI M 
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(RAMIS  PROCEDURE) 


TABLE 

FILE  TESTF 

PRINT  REOHRS  AND  sAVt  BY  CUP  BY  HLDG  BY  WM 

IF  SCH  IS  AStfi> 

tNl) 


FAVAIL  (RAMIS  PROCEDURE) 


TABLE 

FILE  TESTF 

SUM  FST*AVhRS  AND  SAVt  BY  BLDG  BY  KM 

IF  SCH  IS  ASwS 

END 


(RAMIS  PROCEDURE) 


TABLF 

FILE  TEST  1 

PRINT  CONT  AND  CUtV  ANlJ  tOMT  AnD  PkF>  AND  «*IN  AND  CTRN  AND  FTWN 
AND  MDUT  AND  ISCh  AND  >-LtT  AND  AUmn  AND  ANL V AND  SHLV  AND  SLIH 
AND  WOLD  HY  ID  BY  NMt 
IF  SCH  IS  AS*t» 

END 

DEFINE 
FILE  HOLu 

NCONT  / 1 4=  CDtV  ♦ tUMT  ♦ PKtH  ♦ ririN  ♦ C T KN  ♦ r r Kn 
♦ MDUT  ♦ ISCH  ♦ F Lt  T ♦ Al>mn  ♦ u*LV  ♦ Sn.LV  ♦ SLlB 
C0NTHP/I4  = max  < 1 .COnT ) 

END 
TABLE 
FILE  HOLD 

PRINT  CONTHP  AND  NCONT  AND  SAVE  BY  ID  HY  NMt 
END 


TABLE  VI 1-4  (Continued) 
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SCPR  1NST1  (RAMIS  PROCEDURE) 


TABLE 

FILE  TESTC 

PRINT  CAPl  And  ucap  a n d F 1 And  and  F3  And  HOLD  by  COP 

IF  SCH  IS  ASwfe 

END 

DEFINE 
FILE  HOLD 

IF  Fl  GT  ISO  GOTO  iMbf 

AVGCLAS  / 13  = (CAP!  » UCAp  * .<Jl>  ♦ .3 
NOINST  / 1 3 = MAX  (1,0*  ( AVGCL  AS  / F 1 ) ♦ . 3 ) 

TOTHPS  / 1 4 = NOINST 

flag  /II  = 1; 

GOTO  end; 

• INST; 

ASN  /II  = F3 

FLAG  /II  = 0 

END 

TABLE 

FILE  HOLD 

STORE  TOTHHS  ay  COP 

IF  FLAG  lb  1 

RUN 

FILE  HOLD 

SUM  ASN  AND  HOLD  BY  CDP  IF  FLAG  IS  u 
END 

DEFINE 
file  HOLD 

INSTHPS  /FS.I  = TUThP3  / ASN 
END 

table 

FILE  HOLD 

PRINT  INSTHPS  AND  SAVE  BY  CDP 
END 


TABLE  VI 1-4  (Continued) 


f 

Mil.lft 
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(RAMIS  PROCEDURE) 


R; 


i 

\ 


TAHI.E 

FILE  TESTC 

PRINT  FI  ANO  Yd  AND  F j AND  NMfc  mnO  •-‘ULU  r»Y  COP 

IF  SCH  IS  AS*S 

ENf) 

DEFINE 
FILE  HOLD 

IF  FI  LE  lsn  GOTO  (,r(si 
ID  /I9  = FI 
ASN  /II  = F3 
FLAG  /II  = o; 

GOTO  ENDI 
CPS  $ 

FLAG  /II  = 1 

END 

TAdLE 

FILE  HOLD 

PRINT  1U  And  N"*E  and  SAVE  HY  CLP  lb  ASM  IS  1 

IF  FLAG  IS  ft 

END 


K<l  I 

scrrinst  fortran 


i 


I 


COMdlNtS  Id  ANl»  COURSE  nw 
FILE  1 = file  insT2 
FILE  2 = FILE  1 NsT 1 
FILE  w = FILL  InST 
HEALTH  A (S)  »ri  U) 

READ ( 1 » 5 0 ) A 

data 

50 

FORMAT  ( AA,Ah, A1 « AH* Ah) 

10 

READ<2»60fEW0=2s)  d 

60 

FORMAT  < AA.F-b.  1 ) 

15 

IF  ( a ( 1 ) ,EU.  a ( i ) ) DO  Tu 
GO  TO  10 

20 

20 

W-ITE  (9*70)  A » m ( 2 ) 

70 

FORMAT  (A<f«A«»Al.AH»Ah*Fs. 
READ  ( 1 *50*tNDs2a)  A 
DO  TO  15 

1 ) 

?5 

ST  DP 
END 

TABLE  VI 1-4  (Continued) 
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BLANK  EXEC  DESCRIPTION 

MPS  III  linear  programming  software  requires  that  variable  names  should  be 
eight  characters  or  less  in  length  and  also  should  not  contain  embedded 
blanks.  Building  and  room  numbers  are  stored  in  the  data  base  as  two  separate 
fields  - a four  character  building  name  and  a four  character  room  name. 
Concatenation  of  these  two  names  will  result  in  a variable  containing  embedded 
blanks  if  the  building  name  is  less  than  four  characters. 

The  purpose  of  the  executive  BLANK  is  to  delete  all  enbedded  blank  characters 
in  the  eight  character  facility  designation  contained  in  the  files  FILE 
FACIL  and  FILE  FAVAIL. 

Initial  statements  of  BLANK  EXEC  supress  all  terminal  output  and  specify 
libraries  to  be  searched  upon  execution  of  subsequent  PLI  load  commands.  The 
input  file  FAVAIL  for  the  PLI  program  PGM94B  is  identified  as  FILE  FAVAIL  and 
the  PLI  program  PGM94B  is  executed.  Then  the  input  file  FACIL  for  the  PLI 
program  PGM94A  is  identified  as  FILE  FACIL  and  PGM94A  is  executed. 


PGM94B  PLI  DESCRIPTION.  The  input  file  Is  FILE  FAVAIL.  The  first  eight 
characters  of  each  thirteen  character  record  are  the  building  number  and  the 
room  number.  PGM94B  reads  each  record  and  determines  the  Index  (I)  of  the 
first  blank  occurring  in  the  building  number.  The  first  1-1  characters  of  the 
record  are  then  substituted  for  the  building  number  In  the  eight  character 
building/room  designation.  The  room  number  from  the  input  record  Is  then 
concatentated  to  the  1-1  character  building  number  in  the  output  record.  The 
output  record  which  now  contains  no  embedded  blanks  is  then  substituted  for 
the  Input  record  in  FILE  FAVAIL. 

PGM94A  PLI  DESCRIPTION.  The  only  difference  between  PGM94A  and  PGM94B  is  the 
name  of  the  input  file  and  the  input  file  record  format.  PGM94A  removes 
embedded  blanks  from  the  eight  character  building/room  designator  located  in 
position  five  of  each  22  character  record  in  FILE  FACIL. 


MX 


% 


m?M .. 
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BLANK  PROGRAM  LISTINGS 


BLANK  E.XEL 


&TYPF  OFF 

FILEDEF  KACIL  USk  K ILt  KAC1L 
LOAO  PGMV4A  (CLEAR  LlcE.)  rLILIb 
START  (BRIEF) 

FILEOFF  KACIL  CLt  Ak 
FILEDEF  FAvail  i)sK  ilLt  i-avAIl 
LOAD  PGM94B  (CLEAR  Lilt)  RLlLlB 
START  (BRIEF ) 

FILEDEF  FAVAIL  CLEAR 
*EXIT 


PGH94A  PLI 


PGM94 A : /*  CONC4T  FOR  BLOG-ROOM  d CHAR  NO  BLANK  -d/l:/7b  */ 
PROC  OPTIONS  (PAIN)  { 

DECLARE  YEREC  ChAR  (dd)  STATIC* 

F 8 CHAR  («)  UtF  YtRtC  ROS  (B)» 

AF 8 (B)  CHAR  (1)  DEF  YEREC  ROS  <b>* 

Nfl  Char  <d)  sTaTIC* 

NEWM  ( h ) Char  (1)  DEF  NH  ROS  (1)  s 

START:  OPEN  KILE  (FACIL)  BfcCOHU  URUATt  J 

ON  ENIjF ILt  (FACIL)  GO  TO  EOJ  i 

Ri:  READ  FILE  (FACIL)  INTO  (YEREC)  ; 

N8  = • * ; • * 

K = 0 * 

LI  : DO  J = 1 TO  t»  ; 

IF  ( AFh(j)  = • • ) THEN  GO  TO  ENOL1  S 
k - k ♦ l ; 

NtRR(K)  = AF  d ( J ) J 
ENDLI:  ENU  LI  i g 

F8  = NB  5 * 

REWKITE  FILL  (FACIL)  FROM  (YEREC)  J 
GO  TO  Ri  * 

EOJ:  CLOSE  FILE  (FACIL)  I 

END  PGM94A  I 


TABLE  VII-6 
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PGH94P  Pi  1 


PGMPAttt  /*  CONC  A I Foh  bLOG-POOM  H ChAk  NO  8 L A N K -£/l:/7o  »/ 
PPOC  OPTIONS  (NrilN)  ; 

DECLAP6  YEWEC  ChAk  iui  STATIC* 

F8  CHAK  <b)  UtF'  YEPtt  PoS  (1)» 

AFH  (8)  CHAP  (])  utF  YtPtC  POS  (1)* 

NH  CHAk  («)  STATIC* 

NE*b  (8)  CHAk  (1)  OFF  N8  POs  (1)  ; 

STAHT : OPEN  FILE  (FavAIL)  PECOkD  OPumTE  ; 

ON  ENOFILE  (FAVAIL)  GO  TO  tOJ  i 

Pi:  HE AO  FILE  (FAVAII)  INTO  (yEwEC)  i 

N8  = • • J 

K = 0 ; 

Li:  oo  j = l to  h : 

IF  ( AFb(J)  = • • ) THEN  GO  TO  tNULl  i 

K = K ♦ 1 : 

Nfc  4 8 ( K ) = AF-Slj)  ; 

ENOLi:  tNU  LI  ; 

F8  = NH  ; 

HEWHITE  F 1 Lt  (FAVAIL)  FkQ^  (YEkEC)  5 
GO  TO  Kl  ; 

EOJ:  CLOSE  FILt  (FAVAIL)  » 

END  PGmsak  i 


TABLE  VI 1-5  (CONTINUED) 
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INTERFACE  (IF1,  IF2,  IF3,  and  IF4)  EXECS  OVERVIEW 

The  purpose  of  the  four  interface  executives  IF1,  IF1,  IF3,  and  IF4  is  to 
create  a card  Image  input  data  file  to  be  processed  by  the  MPS  III  linear 
programming  routines.  The  linear  programming  input  data  file  consists  of 
data  cards  that  are  grouped  according  to  data  types  or  function.  Each  such 
group  is  called  a segment.  A segment  is  introduced  and  identified  in  the 
file  by  an  indicator  card  containing  the  segment  name.  Data  cards  contain- 
ing the  data  for  the  segnent  follow  the  indicator  card. 

The  first  card  In  the  input  data  file  is  a NAME  card  containing  the  file  name 
. .SCRR. . . The  file  ..SCRR..  contains  ROWS,  COLUMNS,  RHS  and  BOUNDS  seg- 
ments. The  purpose  of  each  segment  Is  defined  below: 

A.  ROWS  Segment:  defines  row  names  and  types.  The  NAME  card  and 

the  ROWS  segnent  Is  generated  by  I FI  EXEC. 

B.  COLUMNS  Segment:  defines  column  names  and  matrix  coefficients. 

The  COLUMNS  segment  Is  generated  by  IF2  EXEC. 

C.  RHS  Segment:  defines  right-hand-side  names  and  coefficients. 

The  RHS  segment  is  generated  by  IF3  EXEC. 

D.  BOUNDS  Segment:  defines  the  column  bounds  set.  The  BOUNDS 
segnent  is  generated  by  IF4  EXEC. 

The  organization  of  the  LP  data  input  file  FTCNORVA  is  shown  below. 
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I FI  EXEC  DESCRIPTION 

The  purpose  of  I FI  EXEC  is  to  generate  both  the  file  name  card  and  the  ROW 
segment  of  the  LP  data  file.  The  segment  consists  of  a ROWS  indicator  card 
followed  by  one  ROW  data  card  for  each  row  to  be  defined.  The  ROW  data 
card  contains  both  the  type  (N  * unconstrained  row,  for  the  objective  func- 
tion; or  L»  less-than-or-equal-to  row,  for  all  other  rows  in  the  SCRR  model 
LP  input  matrix)  and  the  row  name.  One  row  is  defined  for  each  specific 
resource  requirement.  The  row  name  will  be  either  an  instructor  ID  or  a 
facility  name.  The  ROW  data  card  format  is  shown  Delow: 


CARD 

COLUMNS 

2 

5-12 

DATA 

CONTENTS 

Lor  N 

ROW 

NAME 

Initial  IF1  EXEC  statements  suppress  all  terminal  output.  Then  Data  Set 
Reference  Numbers  (DSRN)  are  associated  with  each  of  the  input  and  output  files 
as  follows: 


DSRN 

FILENAME 

FILETYPE 

Input  1 

FILE 

IAVAIL 

2 

FILE 

FAVAIL 

Output  6 

FILE 

IF! 

Then  IF1  FORTRAN  IS  executed. 

IF1  FORTRAN  DESCRIPTION.  IF1  FORTRAN  first  writes  the  LP  input  file  NAME  card, 
the  ROWS  segment  indicator  card,  and  the  objective  function  ROW  data  card  on 
output  file  FILE  IF1.  Then  the  first  eight  digits  of  each  instructor  ID 
are  read  from  FILE  IAVAIL.  One  ROW  data  card  image  Is  written  on  FILE  IF1  for 
each  instructor  ID.  Each  ROW  data  card  image  has  an  L in  column  2 and  the 

instructor  IDs  In  columns  5 - 12.  After  the  last  instructor  TD  has  been 

read  from  FILE  IAVAIL  and  a corresponding  data  card  written  on  FILE  IF1, 

IF1  FORTRAN  reads  facility  names  from  FILE  FAVAIL  and  creates  a ROW  data  card 
for  each  facility  on  FILE  IF1.  IF1  FORTRAN  concludes  by  writing  the  COLUMNS 

segment  indicator  card  as  the  final  card  image  on  FILE  IF1. 
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I FI  PROGRAM  LISTINGS 

— ——— 


IFl EX EL 


LTYPE  oFF 
LSTACK  KT 

filedff  1 

osn 

KILE 

I A V A 1 L 

filedef  ✓ 

USK 

ULt 

F fa  v a I (_ 

FILEDEF  o 
RUN  IFl 

usx 

F HE 

U 1 

IF1  FORTRAN 


REAL*fl  A(2) 

C 

C**GENERAT£  NAME  & POw  0 A T A FQ*  LP  INPUT 
C 

WRITE  (6*99) 

99  FORMAT  ( • NAME • • 1 Ox « ' . .SCRR . . ♦ / • ROwS' / • N 

5 RE AO  (1*100*  ENO  = 10)  A 

100  FORMAT  ( AU«  1 7X  • I<*  * AX  ) 

WRITE  (6*101)  A ( 1 ) 

101  FORMAT  (•  L »*AM) 

GO  TO  b 

10  REAO  (2*10«:*EML)  = lb)  A 

102  FORMAT  (Ad. Ib) 

WRITE  (6*103)  Ad) 

103  FOHMAT  (•  L »*AH) 

GO  TO  10 

IS  WRITE  ( 6 « 1 0 A ) 

104  FORMAT  ('COLUMNS*) 

STOP 
ENU 

V 

TABLE  VI 1-6 
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IF2  EXEC  DESCRIPTION. 

The  purpose  of  IF2  EXEC  Is  to  generate  the  COLUMN  segment  of  the  LP  data  file. 
The  COLIMN  segment  consists  of  a COLUMNS  Indicator  card  followed  by  at  least 
one  COLUMN  data  card  imaqe  for  each  course  in  the  RAMIS  course  file  COURSE. 

Each  COLUMN  data  card  image  must  contain  the  column  name  (course  COP  number), 
the  row  name  (instructor  ID  or  facility  name,  and  the  matrix  element  associated 
with  that  column  and  row.  A second  row  name  and  matrix  element  on  the  same 
COLUMN  card  is  optional.  The  COLUMN  data  card  format  is  shown  below: 


Columns 

S-12 

1M2 

23-36 

4047 

soei 

data 

CONTENTS 

COLUMN 

NAME 

ROW 

NAME 

MATRIX 

ELEMENT 

ROW 

NAME 

MATRIX 

ELEMENT 

v . . v..  ^ 

OPTIONAL 


Initial  IF2  EXEC  statements  suppress  all  terminal  output.  Then  Data  Set 
Reference  Numbers  (DSRN)  are  associated  with  each  of  the  input  and  output  files 
as  follows: 

DSRN  FILENAME  FILETYPE 


Input 

1 

FILE 

INST 

2 

FILE 

FACIL 

3 

FILE 

CRSE 

Output 

6 

FILE 

IF2 

Then  IF2  FORTRAN  Is  executed. 

IF2  FORTRAN  DESCRIPTION.  IF2  FORTRAN  formats  and  writes  the  COLUMN  segment 
of  the  LP  data  file  on  file  IF2  using  the  data  contained  in  the  three  files 
FILE  INST,  FILE  FACIL,  and  FILE  CRSE.  IF2  minimizes  the  size  of  the  COLUMN 
segment  by  writing  two  row  names  and  matrix  elements  on  each  COLUMN  data 
card  Image  written  for  columns  which  have  two  or  more  matrix  elements. 

After  Initializing  a five  column  array  and  several  Indexing  variables,  the  CDP 
number.  Instructor  ID  and  contact  hours  are  read  from  FILE  INST.  The  CDP  number 
is  compared  with  the  last  CDP  number  entered  into  column  one  of  the  array. 

If  the  CDP  numbers  do  not  match,  the  CDP  number.  Instructor  ID  and  contact 
hours  are  written  In  the  first  three  columns  of  the  next  array  row.  If  the  CDP 
numbers  match,  the  contents  of  column  four  are  examined.  If  column  four  con- 
tains a zero,  then  the  Instructor  ID  and  contact  hours  are  written  In  columns 
four  and  five.  If  column  four  Is  not  zero,  then  the  CDP  number.  Instructor 
ID  and  contact  hours  are  written  In  the  first  three  columns  of  the  next  row. 

After  the  last  record  from  FILE  INST  has  been  read  and  entered  Into  the  array, 
the  array  contents  are  formatted  and  written  on  FILE  IF2. 

O 


JUL*2&. 


. ■ ...  m 1 — 


The  array  and  indexing  variables  are  then  reset  and  the  above  procedure  is 
repeated  for  FILE  FACIL.  After  the  last  record  of  FILE  FACIL  has  been  read, 
the  array  contents  are  again  formatted  and  written  on  FILE  IF2. 

FILE  CRSE  contains  only  one  record  for  each  CDP  number.  IF2  FORTRAN  reads 
FILE  CRSE,  then  formats  and  writes  the  CDP  number  and  class  size  on  FILE 
IF2. 
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IF2  PROGRAM  LISTINGS 


EXEC 


6TYPF  OFF 
6STACK  KT 

FILEQEF  1 OS*  FILc.  I -ST 

FILEDEF  c:  l)S*  fill  FoLlL 

FILEDEF  3 DS*  FILE  CfSE 

FILEDEF  6 DS*  FILL  IF2  ’-'tCF*  F Lr'ECL  bo 

RUN  IF  2 


FORTRAN 


DIMENSION  Z ( 3 ) 

REAL*8  A(J> *M(300*5)/l500*0.0/ 

C**REAO  ANO  FORMAT  FlLt  INST 
C**ADD  INST  REQUlHtMfcNTS  TO  LP  COL  OATa 
IRC  = 0 
IR  * 1 

ASSIGN  S TO  I HR 
5 READ ( 1 * 20  0 ♦ EnD  = 100)  A 

200  FORMAT  ( A4. Ab« 1 7X*F5. 1 ) 

10  IF  (A(l)  .EG).  M ( IR  * 1 ) ) 60  TO  JO 

IF  (M(IR*1)  .NE.  0.0)  IR  = IR  ♦ 1 
15  IRC*I«C  ♦ 1 
DO  20  1=1*3 

20  M ( IR* I ) = A ( I ) 

GO  TO  I8R*  (5*320) 

25  IR  = IH  ♦ 1 
GO  TO  15 

30  IF  ( M ( I R * A ) .Nfc.  0.0)  60  TO  2s 
DO  35  1=2*3 

35  M ( IR* 1*2 ) = A ( I ) 

IR  * IH  ♦ 1 

GO  TO  I MR*  (5*320) 

100  INO  « 1 

110  IF  (M ( I NO *4 ) .tU.  0.0)  GO  TO  120 
WRITE  (6*201)  ( <*<  ( I NO  *1)  .11=1*5) 

201  FORMAT  (4X*AA*6X«AH*VX*Fb.l«3X*Ao*9X*Fd.l) 
115  INO  * INO  ♦ 1 

IF  (INO  *GT.  IRC  ) 60  TO  300 
GO  TO  110  I 

120  WRITE  (6*202)  (M(INU*I>*  1 =1*3) 

202  FORMAT  (4X*Aa*6A*AM«9X*F5.1«25X) 

GO  TO  115 
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XF2  fortran  (Continued) 


C**REAO  AND  FORMAT  fiLt  FmCIL 
C**ADD  FACIL  RLOUIWt^tNTS  TO  LR  COL  L)ATa 
300  IRC  = 0 
I*  = 1 

ASSIGN  320  TO 
DO  310  1=1.300 
DO  310  J=1 »b 
310  M ( 1 * j ) = 0.0 
320  READ  (2*20J*EnD  = 350)  A 

203  FORMAT  (AA.Ao.Fb. l.AO 
GO  TO  10 

350  INI)  = 1 

360  IF  (M  ( INU  .4 ) .t<w.  0.0)  GO  Tu  3/0 

WRITE  (6.204)  ( m ( I Nl)  *1)  *1  = 1.5) 

204  FORMAT  ( 4X , A4  .bX.Aa.6X.Fb.  1 .3X.Afa.dX  ♦ F e>  • 1 ) 
365  INU  = INO  ♦ ! 

IF  (INU  .GT.  IRC)  hO  TO  a 00 
GO  TO  3bO 

370  WRITE  < 6 » 20b ) ( M < I NO* I ) « I = 1 * 3 ) 

205  FORMAT  ( 4X . A4 , 6X , AH ♦ «x ♦ Fb . 1 , 25 a ) 

GO  TO  36b 

C**REAO  AND  FOnMAT  FILE  CRbE 
C**ADD  OBJ  FUNC  COEFF  TO  LR  COL  DA ] A 

400  READ  (3.206. tNU  = 40b)  l 

206  FORMAT  (A4.I3.13) 

WRITE  (6*207)  (2(1). 1=1, 2) 

207  FORMAT  (AX.A4.bX.  • IhRURUT  • » D X » I 3) 

GO  TO  400 

405  STOP 
ENU 


TABLE  VI 1-7  (Continued) 
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SCRRSORT  EXEC  DESCRIPTION 

IF2  FORTRAN  first  writes  instructor  data  by  course,  then  facility  data  by 
course,  and  finally  course  data  by  course  on  FILE  IF2.  The  purpose  of  SCRRSORT 
is  to  sort  FILE  IF2  by  course  thereby  combining  all  records  associated  with 
each  course  on  FILE  IF2. 

SCRRSORT  EXEC  utilizes  the  NCSS  SORT  command  which  moves  the  records  from  FILE 
IF2  to  .FILE  IF2  arranging  them  in  ascending  order  according  to  sort  key  fields 
'5  - 8 which  contain  the  course  CDP  number.  The  filename  .FILE  Is  then  changed 
to  FILE  using  the  NCSS  ALTER  coimiand. 


SCRRSORT  PROGRAM  LISTING 


SCRRSORT  EXEC 


HYPE  OFF 
iSTACK  5 8 

. SORT  FILE  IF2  (BRIEF) 

ERASE  FILE  IF2 

ALTER  .FILE  IF2  P FILE  * * 

TABLE  VI I -8 
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IF3  EXEC  DESCRIPTION 

The  purpose  of  IF3  EXEC  is  to  generate  the  RHS  segnent  of  the  LP  data  file. 

The  RHS  segment  consists  of  a RHS  indicator  card  followed  by  RHS  data  card 
images  which  contain  the  RHS  vector  name  and  RHS  elements.  RHS  elements  are 
identified  by  row  name  (instructor  ID  or  facility  name).  The  RHS  data  card  for- 
mat is  the  same  as  the  COLUMN  data  card  format. 

Initial  IF3  EXEC  statements  suppress  all  terminal  output.  Then  DSRN's  are 
specified  for  each  of  the  input  and  output  files  as  follows: 


DSRN 

FILENAME 

FILETYPE 

Input 

1 

FILE 

IAVAIL 

2 

FILE 

FAVAIL 

Output 

6 

FILE 

IF3 

Then  IF3  FORTRAN  is  executed. 

IF3  FORTRAN  DESCRIPTION.  IF3  FORTRAN  first  writes  the  RHS  indicator  card  on 
the  output  file  FILE  IF3.  Then  two  records 'each  containing  an  instructor  ID 
and  available  hours  are  read  from  FILE  IAVAIL  and  are  formatted  to  form  a 
single  RHS  data  card,  which  is  written  on  FILE  IF3.  After  the  last  record  is 
read  from  FILE  IAVAIL,  two  records  each  containing  a facility  name  and  availa- 
ble hours  are  read  from  FILE  FAVAIL  and  are  formatted  to  form  a single  RHS  data 
card,  which  is  also  written  on  FILE  IF3.  The  process  is  repeated  until  all 
records  are  read  from  FILE  FAVAIL. 
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IF3  PROGRAM  LISTINGS 


IF3  ExEC 


6TYPE  0 FF 
fcSTACK  KT 

FILEOFF  1 D?i\  F1LK  iAVAll. 

FILEDEF  2 DSK  FILL  FAVAlL 
FILEDEF  b OS*  FILE  IfJ  RE  F L*  30 
RUN  IF  3 


IF3 FORTRAN 


REAL*B  A * B 
C 

C**GENERATE  HHS  DATA  SECTION 
C FILE  1 = FILE  I AVAIL 
C FILE  i - FILE  FAVAIL 
C FILE  b S FILE  IF3 

c 

WRITE  (6*99) 

99  FORMAT  (*RMS*) 

5 READ  (1*100* END  = lb)  A*1A 

100  FORMAT  <A8*17X*U*AX) 

READ  (1*100* END  - 10)  B*lb 
WRITE  (6*101)  A* 1 A*H* IB 

101  FORMAT  ( AX  « 'AVAIL*  *bX*AH*BX*  lA*bX*AH*HX*  1 4 ) 
GO  TO  b 

10  WRITE  (6*102)  A * I A 

102  FORMAT  (AX* • AVAIL • *5X* A8*oX* 1 A) 
lb  READ  ( 2 • 1 03  * END  = 25)  A*IA 

103  FORMAT  (AtJ.Ib) 

READ  <2*103*  EnD  = 20)  B«Ib 
WRITE  (6*101)  A.Im.H.IH 
GO  TO  lb 

20  WRITE  (6*102)  A*IA 
2b  STOP 
ENU 
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IF4  EXEC  DESCRIPTION 

The  purpose  of  IF4  EXEC  is  to  generate  the  BOUNDS  segment  of  the  LP  data  input. 
The  BOUNDS  segment  consists  of  a BOUNDS  indicator  card  followed  by  BOUNDS  data 
card  images  that  contain  lower  bounds  on  the  number  of  annual  course  conven- 
ings for  each  course.  The  upper  bound  is  automatically  set  to-**.  The  BOUNDS 
data  card  format  is  shown  below: 


I 


CARD 

COLUMN 

2-3 

5-9 

16-22 

26-36 

DATA 

CONTENTS 

LO 

SCHED 

COLUMN 

NAME 

BOUND 

VALUE 

Initial  IF4  EXEC  statements  suppress  all  terminal  outout.  Then  DSRN's  are 
specified  for  the  input  and  output  files  as  follows: 


DSRN  FILENAME  FILETYPE 


Input  1 FILE  CRSE 

Output  6 FILE  IF4 


Then,  IF4  FORTRAN  is  executed. 

IF4  FORTRAN  DESCRIPTION.  IF4  FORTRAN  first  formats  the  BOUNDS  indicator  card 
on  FILE  IF4.  Then  the  course  CDP  numbers  and  the  number  of  annual  course 
convenings  are  read  from  each  record  of  FILE  CRSE.  The  record  is  reformatted 
and  written  on  FILE  IF4.  IF4  FORTRAN  concludes  by  formatting  an  ENDATA  card 
on  FILE  IF4. 


4 
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IF4  PROGRAM  LISTINGS 


EXEC 


8.TYPE  OFF 
iSTACK  KT 

FILEOEF  1 OSK  Hit  Obt 

FILEOEF  6 OS*  FILE  IF<»  Rt  F LR  UC 

RUN  IF4 


DIMENSION  A(2) 


C**GENE«ATE  BOUNDS  DATA  SECTION 
C FILE  1 = FILE  CMSE 
C FILE  6=  FILE  IFA 


WRITE  (6*99) 

FORMAT  ('BOUNDS') 

READ  (1*100*  EraL)  = 10)  A 
FORMAT  ( A4«  3X  « 1 3 ) 

WRITE  (6*101)  A 

FORMAT  ('  FX  SCMtD • *6X . A* ♦ 1 3X ♦ 1 3 ) 
60  TO  S 
WRITE  (6*192) 

FORMAT  CENDATA') 

STOP 

END 
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COMB  EXEC  DESCRIPTION 

The  purpose  of  COMB  EXEC  is  to  combine  the  four  output  files  created  by  the 
interface  executives  into  a single  input  file  suitable  for  processing  by 
MPS  III/OL. 

COMB  EXEC  first  uses  the  NCSS  command  ERASE  to  delete  the  existinq  copy  of  the 
file  SCRR  DATA  from  writable  disk.  Then  SCRR  DATA  is  recreated  using 
the  NCSS  command  COMBINE  which  joins  the  four  files  FILE  IF1,  FILE  IF2,  FILE 
IF3  and  FILE  IF4  to  form  SCRR  DATA. 


COMB  PROGRAM  LISTING 


COMB  EXEC 


*TYPE  OFF 
ERASE  SChk  QATA 

COMBINE  SCRR  DATA  p FlLt  1H  p FILE  IF2  p FlLt  IFJ  P FILE  IF*  P 


TABLE  VII-11 
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SCRR1  EXEC  DESCRIPTION 

The  purpose  of  SCRR1  EXEC  is  to  attach  and  initialize  the  MPS  III/OL  system 
and  execute  a series  of  Terminal  Control  Language  (TCL)  statements  contained 
in  the  SCRR  RUN  file.  MPS  III  is  an  advanced  Mathematical  Programing  System 
(MPS)  which  has  been  designed  to  solve  linear  programming  (LP)  problems.  The 
MPS  III  On-line  System  (MPS  III/OL)  Is  adpated  for  interactive  use  under  VP/ 
CSS,  the  National  CSS,  Inc.  time-sharing  system.  TCL  is  similar  '.o  many  com- 
puter programming  languages  (such  as  FORTRAN),  but  is  oriented  specifically 
to  the  solution  of  mathematical  programming  problems. 

Upon  entry,  existing  core  size  is  checked.  If  core  size  is  less  than  320K,  a 
message  directing  the  use  to  SET  CORE  320  is  printed  and  the  EXEC  is  termina- 
ted. If  minimum  core  size  requirements  are  met,  SCRR1  EXEC  then  suppresses 
both  offline  print  and  terminal  output  commands  contained  within  the  MPS 
III/OL  system.  The  file  MPSOUT  LISTING  which  contains  a detailed  record  of 
the  LP  computational  process  is  then  erased.  (MPSOUT  LISTING  is  regenerated 
each  time  the  SCRR  model  is  executed).  Output  files  for  both  the  MPS  III  LP 
solution  output  and  the  SCRR  model  output  are  established  by  the  FILEDEF 
commands . 

The  command  ATTACH  MPSIII  accesses  a VP/CSS  system  EXEC  file  that  attaches 
the  necessary  disks,  loads  the  Terminal  Executor  and  requests  information 
regarding  the  location  of  the  scratch  desk  for  work  files,  the  sysin  file 
filename,  probfile  names,  card  image  filenames,  and  actfile  names.  Responses 
to  these  requests  are  stored  in  a special  area  of  user  storage  called  the  CSS 
stack.  The  stack  containing  the  MPS  III  file  initialization  Information  is 
generated  by  SCRR1  EXEC.  The  infqrmation  is  read  from  the  stack  each  time  the 
system  EXEC  requests  file  data.  The  file  Information  is  formed  Into  an  argu- 
ment list  and  a START  MPSIII  TMLX  command  is  Issued.  The  system  prompting 
messages. 


MPS  III,  ON-LINE  VERSION,  READY 
MPS  COMMAND: 

are  then  printed  out  at  the  terminal.  At  this  point  the  RUN  SCRR  command, 
which  has  also  been  stacked,  is  executed.  The  SCRR  OUTPUT  file  at  this 
point  refers  to  Instructors  by  ID  number  and  does  not  include  non-classroom 
activity  times  for  Instructors.  A PLI  program,  PGM94A,  is  executed  to  replace 
Instructor  ID  numbers  with  names.  Non-classroom  times  are  added  to  the 
SCRR  OUTPUT  file  by  executing  a FORTRAN  program  NCONT . SCRR1  EXEC  concludes 
by  printing  a message  which  explains  how  to  obtain  a listing  of  the  SCRR 
model  output.  f 

SCRR  RUN  DESCRIPTION.  The  purpose  of  SCRR  RUN  Is  to  calculate  the  LP  optimal 
solution  and  the  post-optimal  sensitivity  analysis  for  the  problem  formulated 
and  written  on  the  file  MATRIX1  DATA.  SCRR  RUN  is  a series  of  TCL  statements 
which  control  the  execution  sequence  of  the  LP  problem. 

TITLE  1 1 AND  TERM  OFF.  These  two  TCL  comnands  are  used  to  suppress  MPS  III/ 
OL  printed  output  at  the  user's  terminal. 


w 


* 
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SET  XDONFS  = 16.  This  command  is  used  to  alter  the  value  of  the  MPS  III/OL 
Commum cations  Region  (CR)  cell  XDONFS.  XDONFS  originally  contained  the 
address  of  the  standard  procedure  which  terminates  MPS  III/OL  prior  to  filing 
the  solution  matrix  when  a no-feasible-solution  condition  is  encountered 
during  optimization.  Altering  the  address  of  the  XDONFS  procedure  to  RUN 
program  statement  16  enables  the  solution  output  to  be  filed  for  both  optimal 
and  non-feasible-solution  conditions. 


CALL  ASSIGN  FT04F001  FT04F001  COMM.  This  statement  specifies  that  MPS  III/OL  ' 
output  is  to  be  written  on  the  FORTRAN  file  4 in  communications  format. 

^.LPP0lJT  FWropi*  This  statement  positions  the  comnuni cations  file 
FT04F001  to  the  beginning  of  the  area  to  receive  data  and  opens  that  file 
for  output. 


CALL  ASSIGN  FT07F001  FT07F001  CARD.  This  statement  specifies  that  FORTRAN  file 
/ is  to  be  written  in  card-image  format. 


ROUTE  SYSPRINT  HPSOUT.  This  command  causes  the  detailed  record  of  the  LP 
computational  process  to  be  written  on  the  file  MPSOUT  LISTING.  All  MPS 

*when  an  enror  condition  Is  encountered)  will  be  stored 
on  MPSOUT  LISTING  and  will  not  be  printed  at  the  terminal  during  model  execution. 


-XDATA  » FTCNORVA.  XP6NAME  » SCRR1.  This  instruction  alters  the  value  of  the 
CR  location  referenced  by  the  name  XDATA  to  the  Input  date  set  nme  ..SCRR.. 
and  alters  the  value  of  the  location  XPBNAME  to  the  problem  file  name  SCRR1. 
This  allows  the  files  to  be  referenced  later  by  control  program  statements. 

rn2J2?ati3nc^,Soth  th*  1nput  dati  s#t  and  th®  P"*l«"  I*  required  by  the 
CONVERT  and  SETUP  procedures. 


CALL  CONVERT.  CONVERT  provides  the  basic  means  of  problem  input.  The  proce- 
dure •"«««  th«Jnput  data,  converts  them  to  packed  binary  format,  and  writes 
them  oR  the  PROBFILE.  The  PROBFILE  Is  a disk  storage  unit  that  contains  the 
internal  representation  of  the  LP  problem.  While  the  problem  Is  being  genera- 
ted, comprehensive  error  checks  are  made,  and  the  statistics  of  the  model  are 
calculated  for  use  by  the  SETUP  procedure. 


t5l  iX0  V rcyUT*  XPHS  * AVAIL.  This  Instruction  alters  the  value  of  the 
XOBJ  CR  location  to  the  name  of the  LP  objective  function  THRUPUT,  and  alters 
the  vali£  of  the  location  XRHS  to  the  name  of  the  right-hand-side  vector  AVAIL 


S^bMAHriV  B0!ffD  Z-Sfffi0,  SETUP  reads  the  LP  Problem  created  by  CONVERT 
on  PROBFILt. i he  setup  procedure  then  analyzes  the  model's  statistics,  types 

of  input/output  devices,  and  solution  strategy  to  be  used.  The  available  nem- 
ory  is  dynamically  allocated  for  efficient  problem  solution  and  all  work  files 
fSV computational  procedures  are  produced.  SETUP  also  determines  the 
l"1t*a1EP  bafic  solution.  The  SETUP  parameter,  BOUND,  Indicates  the  name  of 
the  BOUND  vector  In  the  original  Input  data.  The  MAX  parameter  calls  for  the 
maximization  of  the  objective  function.  The  procedure  SETUP  writes  the  follow- 
ing output  on  the  file  MPSOUT  LISTING: 


VII-39 
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a.  Table  of  files  that  have  been  defined 

b.  Storage  allocation  tables 

c.  Table  of  statistics  regarding  the  matrix  variables. 

CALL  VARIFORM.  VARIFORM  is  the  main  optimization  procedure.  It  attempts  to 
find  a feasible  solution,  followed  by  an  optimal  solution.  If  the  problem  has 
no  feasible  solution,  i.e.,  when  requirements  are  larger  than  availability, 
an  appropriate  message  is  printed  on  MPSOUT  LISTING  and  VARIFORM  is  terminated. 
Upon  termination  of  VARIFORM,  the  control  program  branches  to  statement  16 
which  causes  only  the  SOLUTION  output  to  be  written  on  FORTRAN  file  4. 

VARIFORM  uses  a composite  algorithm  and  the  revised  simplex  method.  It  pro- 
gresses from  the  Initial  basis  to  the  optimal  basis  by  a series  of  vector  inter- 
changes; one  vector  is  introduced  into  the  basis  and  one  is  removed. 


VARIFORM  outputs  on  MPSOUT  LISTING  an  iteration  log  which  notes  for  each  itera- 
tion number,  the  vector  number  removed  from  the  basis,  the  vector  number 
entered  into  the  basis,  the  reduced  cost  of  the  Incoming  vector,  and  the  sum 
of  remaining  infeasiblities  or  value  of  the  objective  function. 


CAg.  SOLUTION  FILE  FT04F001  RSECTION,  2/4/7,  CSECTION,  2/4/576.  SOLUTION  out- 
puts 1n  communications  format  a summary  of  the  present  LP  problem  and  its 
current  solution  during  the  computational  procedure  if  the  solution  is  infeas- 
1b]*»  °I*.after  the  computational  procedure  if  the  solution  is  optimal.  SOLUTION 
***"»•  arr*ys  named  SOLUTION,  RSECTION  and  CSECTION  on  FORTRAN  file  4. 

The  SOLUTION  array  contains  problem  identification  data.  RSECTION  array 

r0W  n?me  U)’  activity  (*).  slack  activity  (5),  and 
upper  limit  (7).  CSECTION  array  also  contains  four  data  columns:  column 
name  (2),  activity  (4),  input  cost  (5),  and  lower  limit  (6). 


CALL  RANGE  FILE  FT04F001  RSECTION. 
post-optimal ly  to  generate  and  out 
analysis  Includes: 


1/2/ 3/5,  CSECTION,  2/3/4/5.  Range  is  used 
put  an  analysis  of  the  current  solution.  The 


a.  The  effects  of  changes  in  class  size  on  optimum  convening  levels. 

b.  The  Impact  on  student  throughput  of  changing  the  nurtber  of  course 
convenings  from  optimum  level,  and  the  total  range  of  course 
convenings  for  which  the  Impact  is  valid. 

V 

c.  The  Impact  on  student  throughput  of  modfylng  a resource  level 'and 
the  interval  for  which  this  input  is  valid. 


Th®s*  *re  tabulated  In  five  arrays  named  RANGE,  SECTI0N1,  SECTI0N2,  SECTI0N3, 
and  SECTI0N4  *nd  written  on  FORTRAN  file  4.  RANGE  is  a single  row  section  con- 

the  proble,n*  TOdel»  and  progress  of  the  compu- 
tlon.  SECTI0N1  and  SECTI0N3  are  row  arrays  each  containing  seven  columns  of 

I?*  name  upper  and  l0*?r  *ct1v1ty  range  (2),  unit  cost  associated 
with  both  upper  and  lower  range  value  (3),  and  the  limiting  process  associated 
with  each  range  value  (5).  SECTI0N2  and  SECTI0N4  are  column  arrays  which 
include  nine  columns  of  data:  seven  columns  are  Identical  to  those  contained 
in  the  row  arrays;  colunn  arrays  also  contain  upper  and  lower  cost  values  (4). 
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SKIP  1.  This  statement  causes  the  next  statement  in  the  run  file  to  be  bypassed. 

CALL  PREPIN  FT04F001 . This  statement  positions  the  communications  file  FT04F001 
to  the  start  of  the  data  and  opens  the  file  for  input. 


CSS  ALTER  SCRRFORM CALL  USERPROC CSS  ALTER  USERPROC. . . . .This  series  of 

statements  changes  the  name  of  SCRRFORM  LNKLIB  to  USERPROC  LNKLIB,  executes 
USERPROC,  then  changes  the  LNKLIB  file  name  back  to  SCRRFORM. 


SCRRFORM  LNKLIB  contains  both  the  relocatable  object  program  for  SCRRFORM 
FORTRAN  and  the  READCOMM  library.  READCOMM  (Read  Communications  Format)  trans- 
fers to  the  SCRRFORM  FORTRAN  procedures  the  data  previously  filed  in  MPS  III 
Communications  format. 

EXIT.  The  EXIT  command  terminates  the  MPS  III/OL  run  and  returns  the  user  to 
the  VP/CSS  command  level.  The  system  responds  to  the  EXIT  command  by  printing 
out  "MPSIII  TERMINATING". 


SCRRFORM  FORTRAN  DESCRIPTION.  The  purpose  of  SCRRFORM  FORTRAN  is  to  read  the 
MPS  III/OL  output  which  has  been  filed  on  FORTRAN  file  4 in  communications 
format,  reformat  the  LP  output,  and  write  the  results  on  file  SCRR  OUTPUT. 

All  MPS  III/OL  filed  outputs  are  written  in  communications  format,  which  cannot 
be  read  directly  by  the  FORTRAN  READ  statement.  Read  Communications  Format 
(READCOMM)  subroutines  are  required  to  retrieve  and  transfer  the  data  contained 
in  arrays  filed  in  Communications  Format  by  MPSIII.  SCRRFORM  utilizes  three 
READCOMM  subroutines: 

POSITN  - positions  a communications  format  file  to  a specified  array. 

ARRAY  - initializes  READCOMM  to  read  the  data  contained  in  the  array. 

VECTOR  - transfers  a row  of  elements  from  the  filed  array  to  the 
calling  program. 

These  subroutines  act  as  an  Interface  between  the  FORTRAN  procedures  under  the 
control  of  the  MPSIII  executor  and  the  Conmuni cations  Format  subroutines  of 
MPSIII. 

Upon  entry,  SCRRFORM  initializes  several  variables,  vectors  and  arrays.  Then 
the  RSECTION  array  is'  read  from  FORTRAN  file  4 into  the  first  four  columns  of 
the  array  R.  After  the  last  row  vector  has  been  read  from  RSECTION,  SCRRFORM 
searches  file  4 for  the  row-related  arrays  created  by  the  MPSIII  sensitivity 
analysis,  SECTI0N1  and  SECTION3.  SECTI0N1  contains  data  for  rows  at  their* 
upper  limit;  SECTI0N3  contains  data  for  rows  at  an  Intermediate  level.  If  the 
current  problem  has  an  Infeasible  solution,  the  arrays  will  not  exist,  and  the 
program  branches  to  the  resource  (row)  output  format  routine.  If  the  sensitiv- 
ity analysis  has  been  performed,  SCRRFORM  first  reads  the  data  from  SECTI0N1 
array  one  row  at  a time.  Row  names  are  stored  In  column  one  of  the  array  R and 
In  column  one  of  SECTI0N1.  The  row  names  in  both  arrays  are  In  sorted  sequence. 
Each  row  name  from  SECTI0N1  is  compared  with  the  row  name  In  R until  a match  Is 
found.  Then  colurms  two  through  seven  of  SECTI0N1  are  read  into  columns  five 
through  ten  of  array  R.  The  process  is  repeated  until  all  rows  from  SECTIONl 
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have  been  read  Into  R.  SCRRFORM  then  positions  file  4 to  the  SECTI0N3  array. 
Row  names  are  matched  and  SECTI0N3  data  Is  transferred  to  the  array  R.  After 
the  last  row  has  been  read  from  SECTI0N3  and  entered  into  R,  each  row  of  R 
will  have  ten  columns  of  data  associated  with  it.  SCRRFORM  then  branches  to 
the  resource  (row)  output  format  routine,  which  writes  column  headings,  and 
reformats  the  contents  of  R on  output  file  SCRR  OUTPUT? 

After  the  last  row  of  resource  data  has  been  formatted  and  written  on  the  out- 
put file,  SCRRFORM  branches  to  the  column  section  routines.  Data  from  CSECTION 
are  transferred  to  a twelve  column  array  C,  and  data  from  SECTI0N2  and  SECTI0N4 
arrays  (If  the  sensitivity  analysis  has  been  performed)  are  added  to  C,  using 
an  algorithm  similar  to  that  used  to  construct  the  row  output  data.  Column 
headings  are  generated  and  the  course  (column)  data  output  Is  appended  to  the 
resource  data  output  on  the  file  SCRR  OUTPUT. 

NCONT  FORTRAN  DESCRIPTION.  The  purpose  of  NCONT  FORTRAN  is  to  Insert  non- 
classroom hour  data  for  each  instructor  in  the  SCRR  OUTPUT  file. 

Prior  to  executing  PGM93A  PLI,  instructors  are  identified  In  the  left-hand 
column  of  the  SCRR  OUTPUT  file  by  10  number.  Non-classroom  hours  for  each 
instructor  ID  are  contained  in  FILE  IAVAIL.  Records  from  SCRR  OUTPUT  are 
read,  ID  numbers  are  matched  with  those  in  FILE  AVAIL,  and  the  corresponding 
hour  figure  Is  entered  on  the  SCRR  OUTPUT  record. 

PGM93A  PLI  DESCRIPTION.  The  purpose  of  PGM93A  PLI  is  to  replace  instructor 
ID  numbers  In  SCRR  OUTPUT  with  names. 

ID  numbers  are  used  as  a resource  variable  name  in  the  LP  optimization 
because  they  are  unique.  However,  because  ID  numbers  are  generally  not 
easily  associated  back  with  a specific  person,  ID  numbers  are  converted 
to  names  before  the  output  data  is  presented.  The  file  FILE  IAVAIL 
contains  both  ID  numbers  and  names.  ID  numbers  occur  in  SCRR  OUTPUT  In 
the  first  column,  as  resource  name,  and  In  tije  eighth  column  as  the 
limiting  variable.  Records  are  read  from  SCRR  OUTPUT,  ID  numbers  matched 
with  names  from  FILE  IAVAIL,  and  the  ID  number  Is  replaced  with  the  name 
on  the  SCRR  OUTPUT  record  written  on  the  output  file. 


« 


A 


Y 

lENDSTACK 

&STACK  RUN  SCRR 

ATTACH  MRS! I I ALL  BRItF 

UETACH  HRS 1 1 1 ALL  BRIEF 

EXEC  NCONT 

EXEC  E93 

APR I TO  PRINT  SCRR  MODEL  OUTPUT*  TYPE! 

4PRI?  P SCRR  OUTPUT 

1EXIT 
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SCRR 


TITLE  • • 

TERM  OFF 
SET  XOONF S = 1 b 

CALL  ASSIGN  FTOhFUGI  F T O^F  0 0 1 COmii 

CALL  PREHOUT. F f UoKOGl 

CALL  ASSIGN  FT07K0U1  MQ/F001  LAkL) 

ROUTE  SYSPRINT  RRbOUJ 

SET  XDATAsFTCNOWVA,  <KMNA‘'t  = SCWH  1 

CALL  CONVERT 

SET  XORJ=THRURUT.XRHS=AVulL 
CALL  SETUP. HOUNO  = sC^t  U.""AX 
CALL  VAWIFQRm 

CALL  SOLUTION  FILE  FTn*M)Ol  RSECT  1 UN.  7 » CSECT  I On.  */4/S/b 

CALL  RANGE  FILt  FTO<.Fl)ul  ^SLCT  I ON  . 1 / £/ J/S  . CSt  CT  I ON.  2/3/4/S 
SKIP  1 

CALL  SOLUTION  FILE  F T u *F  0 0 i i-St  CT  I UN  . d/^/b/7 . LStCT  I ON.  <f/*/S/b 
CALL  PREPIN  FTOAFOul 

CSS  alter  SCRRFORM  LnKLIh  P USLrtRROC  * * 

CALL  USEhPPOC 

CSS  alter  USERPROC  LN*L  I h P SChkFOk*  * * 

EXIT 
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ps 

f H 


t 


c ( 

f i 


SUBROUTINE  FORMAT 

RFAL*R  A (P) /**0.0/ .NAMfc . .R (600* 10) /SO 0 0 *0 . 0/ . C ( 1 SO ♦ 1 2 ) / 1 800*0 . 0 / 
HEaL*h  StCl/ 'SECT  ION 1 •/.KitC/'RStCTION'/* C3EC/ • CStCT ION • / 

REAL  *h  SLC2/  'St  CT  I GN2  » / . SECJ/ • SECT I0N3 • / . SEC4/ ‘SECTIONS  •/ 
INTEGER  FlLt/A/ 


C 

C GET 
C 


#StCTIorj  array 


10 


CALL  POS I TN ( h IL  t ♦ I ♦ 2 ) 

CALL  ARRAY  (FlLt«I«NAME»N) 
IF  (I  .EQ.l)  GO  fO  GOO 
IR  = 1 
IRCTR=  0 

CALL  VtCTOP  (FlLt*I*A) 

IF  (I  .tO*  1)  oO  TO  2(* 
IRLTR  = IRLTR  ♦ 1 

DO  10  1=1*4 
R(IR.I)  = A ( I ) 

I«  = IR  ♦ 1 
60  TO  3 


C 

C 6FT 
C 

20 


StCTIONl  array 


CALL  POSITN(r iLr ♦ 1*3) 

CALL  ARRAY (FlLt* I «NAME*N) 

IF  (I  .tO.  1)  GO  TO  200 
IF  (NAME  .EU.  RSfcC ) GO  TO  200 
LF  (NAME  . NE . StCl)  GO  TO  to 


I 


C 

C ADD 
C 

2b 

30 


SENSITIVITY  ANALYSIS  DATA  TO  RESOURCt  MATRIX 


40 

50 

55 


IR  = 1 

CALL  VECTOR (F ILL* I *A) 

IF  (I  .EQ.  1)  GO  TO  t.0 

1)0  40  I = IK ♦ IRC  1 R 

IF  ( A ( 1 ) .tu.  W ( I • 1 ) ) bu  TO  SO 

IR  = IR  ♦ 1 

DO  bb  I = l*t> 

R(IR*4>I)  = A ( 1 ♦ 1 ) 

1 


60 


IR  = In  ♦ 

GO  TO  30 

IF  (NAMt  .Nt.  StCl)  GO  TO  200 
IF  (NAME  .EG.  St'C3>  GO  TO  200 


C 

C GET 
C 

6b 


SECT  1 0N3  ARRAY 


68 


IA  = 7 

IF  (NAME  .EG.  StCl)  GO  TO  bd 
I A = 6 

CALL  P0SITN(F I Lt  * I * I A ) 

CALL  ARRAY (FlLt* I*NAMt*N) 

IF  (I  .EO.  1)  GO  TO  GOO 
60  TO  23 


J 


C 

C GET 


CSECTION  ARRAY 
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C 

70  CALL  POSITN(FlLt.lti) 

CALL  ARRAY  ( F ILt  » I » NA'-'t  * N ) 

IF  (I  • F 0 • 1)  (30  TO  GOO 
IR  = 1 
IRCTC  = 0 

7S  CALL  VtCTOR(FlLt. I.A) 

IF  (I  .Eg.  1)  GU  Tu  'iU 
IRCTC  = IRCTC  ♦ J 

no  so  i =1.4 

80  C ( IP.  I ) = A ( I ) 

IP  = T R *1 
00  TO  7-i 
C 

C GET  SECTIONS  Ahkay 

90  CALL  PuSITN  (FILE.  I » ■> ) 

CALL  ARkA  Y (FILL*  I , NAME' « N ) 

IF  (I  .EG.  1)  GO  TO  .30  0 
IF  (NAMt  .tO.  LS(-C)  GO  To  300 
IF  (NAME  .Nt.  St(.V>  GO  lU  130 
C 

C ADD  SENSITIVITY  ANALYSIS  DATA  TO  COURSE  maTkIX 
C 

9S  I R = 1 

100  CALL  VECTOR (Flit ♦ I » A) 

IF  (I  .tG.  1)  (30  TO  Iso 

O'.)  110  I = IK.IPCTC 

IF  ( A ( i ) ,tu.  L ( 1 * 1 ) ) GO  TO  120 

110  IR  = IR  ♦ 1 

120  DO  1 2b  I =1,8 

125  C ( I H « 4 ♦ I ) = A ( l ♦ I ) 

IR  = Ik  ♦ 1 
',q  TO  100 

130  CALL  POSITN (F iLt. I »S) 

CALL  AkRAY (FILE . I .NAME .N) 

IF  (I  ,EO.  1)  GO  TO  nOO 
IF  (NAME  .EG.  StL2)  GO  Tu  93 
C 

C GET  SECT  I ONA  ARRAY 
C 

150  IF  (NAME  .tG.  SLL4)  GO  To  300 
CALL  P0SITN(FILE, I,b) 

CALL  ARRAY (FILE, 1 .NAME) 

IF  (NAME  .EG.  StC4)  GO  TO  93 
IF  (NAME  *EO.  btCJ)  GO  Tu  300 
CALL  POSITN(FILt»I,7)  „ 

CALL  ARRAY (F ILt* I tNAME) 

IF  (NAME  .EG.  StC4)  GO  TO  93 
CALL  POSITN(F ILt. 1 «o) 

CALL  ARRAY (FILt.I,NAMt) 

IF  (I  .EG.  1)  GO  TO  300 
GO  TO  93 
C 

C FORMAT  RESOURCE  OUTPUT 
C 
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200  wRITF  (7.500) 

500  FORMAT  (12X«« annual  Annual  annual  WEUMT  RESOURCE'. 

1*  THROUGHPUT '/lJXi ‘NON-  AVAIL  HEQMT • ♦ 7X * • VS • * 6X * 

1 'UTIL*  CHANGE  lImITING'/IX. 'RESOURCE'. 

I • CLASSROOM  CLASSwuOM  CLASSROOM  AVAIL  RANGE  PER  UNIT  •* 

1 • VrtklAbLE'/12X. 'muUrS  CONTACT  CONTACT  RATIO  MINIMUM*. 

1*  RE  SOURCES' /22X  » • H()U*S  HOURS •» 14X • ‘MAXIMUM  CHANGE*) 

IR  = 2 

210  I A = R(IR.A)  ♦ (J.s 

12  = RUR.2)  ♦ O.M 

IS  = ( R ( I R . 2 ) / R ( 1 R . 4 ) ) * 100 

IF  ( (R< iR.b) .EU.O) .ANO. (h ( IR.b) .Eu.O) .aNO. <H ( IR.7) .EU.O) ) GO  To  2S0 

IF  (R ( IR.b)  .LT.  -1.E10)  GO  Tu  2 Is 

IF  (R(IR.9)  .LT.  -l.tlO)  uO  TO  220 

WRITE (7. SOI ) R(IR  *1 > .I4.l2.Is. (R(IR.I > .1=5*10) 

501  FORMAT  U X » Afj  * 2 a » bX  » 4 X * I b ♦ 4 X » I b ♦ bX  » 1 4 * 3X  * Frt  . 1 » 3X  * 

1F7.3.JX* Ab/  S0X»Fd.l»3X*F  7.3«3X*AH) 

211  IR  = Ik  ♦ 1 

IF  (IR  .LE.  IRlTR)  GO  TO  210 
GO  TO  70 

215  IF  ( R ( IR . 9 ) .LT.  -1.E10)  Gu  TO  22b 

WRITE ( f ♦ b02 ) R(lR.l) *l4«l2.Ib»R(IR.S) . (R(IR*1) .1*7.10) 

502  FORMAT  (lX.A6.2X.bX.2(4X«If) .bX. l4.3x.Fri, 1 .4X. *NO  CHG*.3X.A8/ 
150X*FP.l«3X«F7  s3.3x.AO) 

GO  TO  211 

220  wR I TE ( 7 .S03)  R ( 1r. 1 ) . 14, 12. Is. (R ( IR. I ) ♦ 1*5*8) *R ( 1R.10) 

503  FORMAT  (1X.A0.2X.GX.2 (4X. lb) ♦ bX * 1 4. 3X ♦ F B . 1 » 3X *F 7. 3* 3X . A&/ 
150X.FH.1.4X. »NO  CHfi»,3X.Ad) 

GO  TO  211 

225  WRITE  (7.S20)  R ( I R « 1 ) .14.12. IS.R(IR.S) *R(IR. 7 ) . R ( IR . 0 ) .R(IR.lO) 

520  FORMAT  ( 1 X . AO. 2X ♦ bX . 2 ( 4 X . 16 ) ♦ bX * 1 4 . 3X . Fd . 1 . 4X . * NO  CHG*.3X.A8/ 
150X.F8.1.4X* ' NO  CHG*.3X.Ab) 

GO  TO  211 

250  WRITE  (7.517)  r ( IR. 1 ) ♦ 14. 12* Is  * 

517  FORMAT  ( IX . AB.2X ♦ bX .2 ( 4X . Ib ) . bX . 1 4/ • •)  9 

GO  TO  211 

FORMAT  COURSE  OUTRuI 
300  WRITE (7. 504 ) 

504  FORMAT  (•  •/•  •/*  */42X. 'ANNUAL  THROUGHPUT  CLASS « /2X .* COURSE  * . 

i*  maximum  current  averaoe  conven  change  size  •* 

1*  LIMITING'/  2X » * COR  NO.  ANNUAL  SCHEDULED  CLASS  RANGE'. 
1*  PEK  COURSE  RANGE  VARIABLE'/  IPX. 'CONVEN  CONVEN  »♦ 

1'  SIZE  MINIMUM  CONVEN  MINIMUM'/  4lX*'MAXlMUM 
1 'CHANGE  MAXIMUM') 

I P=  1 

310  14  = C ( I R . 4 ) * U . 5 

13  * Cl  IR.3)  ♦ v .5 

IF(  (CdR.b)  .EU.O)  .ANO.  (C(iR.b).Eu.O)  .AND.  (C  ( IR.7)  .EU.O)  ) GO  TO  400 
IF  <C(1R. 5)  .LT.  -1.E10)  GO  TO  3S0 
IF  (CUR. 7)  .LT.  -l.E10).o0  TO  340 
IF  (CUR.IO).LT.  -1.E10)  GO  TO  325 
IF  (CUR.ll).GT.  1.E10)  GO  TO  320 

WRITE (7. SOS)  C(lR.l) »C(IR.2) *14*13* (C(lR.I) *1=5*12) 

TABLE  VII-12  (Contlnutd)  
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F Ohm aT  (JX*AA*AA.Fb.l«2(bA«l4)*J(4X*Fb.i)*4X*AB/ 

1 3 TA » 3 ( 4A * F b • 1 ) » a A » A h ) , 

, I«=IH  ♦ 1 

IF  (IR  .LE.  IHCIC)  C-0  10  Jl'J 
RtTUHM 

wRlTE  <7»b0b)  C(iM*l)*C(IW»*>»i4*lJ*(C(Iw*l)*I=bflO)*C(lK*12> 

F OhMAT  (3X«AA»AX«Fb.l  tt1  ( O A * 14)  » J ( 4 A * F b . 1 ) « 4 X ♦ AB/ 
137x»?(4X*Fb.l ) »nX  ♦ • ♦ I '.ic  • * a X « A rt ) 

GO  TO  318 

IF  <C(1R. 11)  .or.  i.tlO)  Go  10  JJj 

WRITE  ( 7 *b  07)  C l i w « 1 ) * C < 1 R ♦ 2 ) * 1 4 * 1 j « ( 0 ( I ■*  • I ) • l =b  » w ) *C(IW»11)  * 
1CUR.12) 

FORMAT  (JX*A4«4A»*-b,l*<MbA»l4)  «J(4X«FA.i)  « 4 X * AH  / 
137X*4X*Fb.l»4X»  • 0 CH(i  * « 4 A . F 6 • i » 4 A « A b / 

00  TO  Jib 

WRITF  (7*b08)  C(Iw*l)»C(Iw»2)*l4*lJ»(C(lR*I)»I=b»9)*C(lK»12) 
FOwMAT  (3X*44«4A*Fb.i*2(bA*l4)  *3(4X«Fb.l)  . a X . AM/  J7X*4X»F6.1* 
l4X«*N0  CH6 * * bA . • ♦ I hF • . a X . ah ) 

NO  TO  31b 

IF  (C(IW.IO)  .LT.  -i.FlO)  oO  lu  J4b 

WRITE  ( 7*bOv)  Cl  1 w * 1 ) »f ( I k ♦ 2 ) » I a . I j • C ( I K ♦ b ) « C ( I K • 6 ) * 

1 (C  ( I«*  1 ) *I=B. 12) 

FORMAT  ( JX« A4*4A*F b. 1 *2 (hX* 14)  *2 (4X*F n. 1 ) *bA*  • O.U**4X*AB/ 
13IX«3(4X*Fb.i ) .a/ .Art) 

GO  TO  31b 

WRITE ( 7.blO)  C(lK.l).C(lH.2).I4*IJ,C<lH.b).C(IR.b)*C(lW*6). 
lC(IRtR) *C(IR.ll) «C(Ih*12) 

FORMAT  ( JA * A 4 * 4X » F b • 1 ♦ 2 ( b A » 1 a ) » 2 ( 4 X * F b • 1 ) * b A * * 0.0**4X*Ad/ 
13"7X*4X»Fb.l*bX*  • ♦ INF  • « 4 X * a o ) 

GO  TO  Jib 

IF  ( C ( 1 R ♦ 7 ) .lT.  -l.clO)  uu  TO  J 7 0 
IF  (C(lR.lb) .LI • -1.E10)  oO  Tu  JbU 
IF  (C(H.ll).br.  i.tlO)  bO  TO  Jbb 

WRITE  U*bil ) C(lR.l>*C(lH»2)*]4,Ij,<C<lR.I)»l=b*l2) 

FORMAT  ( 3X.AA.AA.Fb, 1 .2 (bA. 14)  .bA.  • 0 . 0 * . 2 ( 4X * F 6 . 1 ) * AX  * A0/ 

1 37  A * 3 ( 4X . Fb . 1 ) ♦ a a .Art) 

GO  TO  31b 

wRlTE(7»bl2)  Cl  Ih.I)  * C ( I w . e. ) *14*13*  ( C ( 1 w * I ) » I =b  * 1 0 ) ♦ C ( I K « 1 2 ) 
FORMAT  (JA.A4.4A.Fb.i.2«bA.lA)  *6X*'  0 • U • « 2 ( a A * Fb . 1 ) * 4X . AB/ 
137X  *? (4A*Fb. 1 ) *bx  * * ♦ INF • ,4x*  Art) 

GO  TO  31b 

IF  (C(l«*ll)  .01.  l.EKU  00  TO  Jbb 

wRITE(7*bl3)  C ( 1 R * 1 ) * C ( I h * 2 ) * I A « I J, ( C ( I R ♦ I ) » I =b»  w ) » C ( I rt  » 1 1 ) » 
1C ( IR* 12) 

FORMAT  (3X*AA,AX ,Fb. 1 .2 (oA* 1a ) »6A. • 0 . 0 * * 2 ( 4 A * F 6 . 1 ) * AX  * AB/ 
137x*4X*Fo.l « a X « ' NO  CH6 • .4A,Fb,l«4X«AB) 

60  TO  Jib 

WRITE(7*bl4)  C<lR*l)*C(J»-*2>,lA»lJ.<t(lw*I)*I=b*y)*C<lW*12) 
FORMAT  (JX»AA,4A.Fb.l.2(c)A.  14)  .bA.  • 0 . 0 • . 2 ( A A ♦ F b . 1 ) • 4X  ♦ AH/ 
137X*4X*F6.1*aX*  * NO  ChG  * » b A « * ♦ IhF • « 4X  * A j ) 

GO  TO  Jib 

IF  <C(IW*10)  .LT.  -1.E10)  bO  TO  J 7b 

WRITE (7«blb)  C(lR*l)*C(lH»2).lA.IJ.C(lR*b).(C(lRtI)*l=b.l2) 
FORMAT  ( JA*A4*4X*F6.1*2 (bA* 14) *BA* • 0 . 1)  • • 4A  . Fb  . 1 *6X*  • 0.0*. 

1 4 A « AB/  37A. J(4A*Fb.l ) *4A*Art) 
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go  TO  Jib 

375  wRlTEW**b)  C(IR*1>  ff.llK*^)  * 14* I J«C < lR*b)  *C<IR*tt)  *C(lK*V) 
1C ( Ik*l 1 ) *C ( 1«» It) 

516  FORMAT  ( JX«A4  *4A*Fb.  1 *2  <bX«  14)  *bX*  • 0 . 0 • ♦ 4A ♦ Fb. 1 * 6X * • 0.0' 
1 4X  * A8/  37X.4A.F  b . 1 »4A  . • \u  CHG  • * 4X  . F b . 1 * 4 X * AR  ) 

60  To  31b 

400  WRITE  ( 7 • bl  a ) c(lR.l) *C( lR.2) *14.13 

518  FORMAT  ( JX « A4 . 4 A . h h . 1 . ? { oX ♦ 1 4 ) / • •) 

GO  TO  Jib 

600  WRITE  (7*519) 

519  FORmaTC***  hEmDCORM  EMJ  OF  FILE  EkkOh  I I I II  | I • ) 

END 


NCONT  FORTRAN 


C**FILE  1 = bCRR  OUTroT 
C**FILE  2 = FILE  1AVAIL 
C**FILE  9 = SCkK  uuTROT(NEw) 

c 

INTEGEk*2  N(b)  *M(H)  •/ 

REAL**  A ( 1 1 ) * « 

00  5 1=1 «b 
REAU(  1*100)  i'J  * m 

100  FORMAT  ( lX*dAl *4A4*bA«*A7) 

5 WRITE  (9.100)  n*a 

10  READ  (1*100)  N*  A 
15  READ  (2*101*tND=S0)  M.R 

101  FORMAT  (6A1*21X*A4) 

20  IF  (N  (8)  .E(J.  hl)  GOTO  5b 
00  2 J 1 = 1 «b 

IF  ( N ( I ) .Nt.  m ( I ) ) GOTO  lb 
23  C0NT1NOE 

25  WRITE  (9*102)  i'-*b*  ( A ( I ) • I = j*  1 1 ) 

102  FORMAT  (1X«8A1 *4X*M4*2A4*bAd«A7) 

READ  (1*100)  \j*« 

WRITE  (9*100)  n*a 
GO  TO  10 

50  WRITE  (9*100)  ft*  A 

READ  ( 1 » 1 00 »EftO  = bO ) N * A 
GO  TO  50 

55  DO  56  1*1*8 

J*«-I  • 

56  N ( J ) = N(J-l) 

N( 1 ) = HL 
GOTO  20 

60  STOP 

emi- 
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PGH93A  PL  I 


n 


PGMR3A:  PROC  OPTIONS  (MAIN)  ; 

DCL  CARD  CHAR  («()>  STmTIC. 

fh  char  (h>  utF  cahd  pus  (?)» 

CbO  CHAW  (33)  STATIC* 

F8C  CHAR  (Hi  OtF  CHO  WUS  (1)» 
NAMEC  CHAR  (tt)  utF  C3U  POS  (10)  J 

DCL  LV  CHAR  (»)  OEF  CARD  POS  ( U)  . 

TEST  CHAW  (o)  STATIC* 

( I TAb ( 300 ) * nTAH(-JOO))  ChAW  (b). 
(FIND*  NOFIND)  L AdtL ♦ 

<FL«G*  ANYLEFT)  HIT  (i)  STATIC  5 

START:  OPEN  FILE  (SOUT)  RECOWl)  UPDATE. 

FILE  (IAVAIL)  RECORD  INPU1  i 
ON  ENUFILE  (IAVAIL)  GO  TO  PASS?  i 
ON  ENDFILE  (SOUT)  GO  To  EOF  5 
FLAG  = *0*R  5 
ANYLEFT  = »1*H  « 


NT  = 

o ; 

t 

RD1 : 

REAU 

FILE  (IAVAIL)  INTO  (CriO)  S 

NT  = 

NT  ♦ 1 : 

[ * 

ITAd(NT)  = FHC  ; 

NT  Ab 

(NT)  = NAltC  ; 

i 

GO  TO  KD1  5 

i 

i 

PASS2 : 

• 

Ri: 

REAU 

FILE  (SOUT)  INTO 

(CARD)  : 

! 

IF  ( 

Ftt  -=  •wESOURCt* 

) T HtN  Go  To  R 1 J 

; i 

R? : 

READ 

file  (Sout)  into 

(CAhD)  ; 

*.  ; } 

IF  ( 

fh  = • • ) 

THEN  30  TO  Hi  J 

GO  To  RON  { 

. 

; 

R3: 

READ 

FILE  (SOUT)  into 

(Caku)  J 

I 

LEFT: 

IF  ( 

-ANYLEFT  ) THEN  GO  To  RIGHT  \ 

IF  ( 

Fb  = » * ) 

Then  go  TO  RIGHT 

IF  ( 

Fb  = • COURSE  * ) 

Then 

■ 

NULL  IF 

YLEFT: 

DO  1 

% 

1 

ANYLtFT  * • 0 • H 

1 

■ 

GO  TO  RIGHT  ; 

1 

m 

END  NULL IFYLtFT 

• 

« 
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~ 1 


* ' 


j 


PGH93A  PL  I 


pun:  TEST  = Fd  ; 

FIND  = FIxNflMt  : 

nofinu  = pigh r : 

GO  TO  Loot's-*  : 

FIXNAME:  Ffl  s NTAB  (j)  ; 

flag  * »i*h  : 

WIGHT : IF  I LV  * 1 * ) THEN  GO  TO  wlNDUP  J 

RUN?:  TEST  = LV  ; 


FIND  = F IXHlGHT  ; 

NQFINO  = W I NOOP  i 

GO  TO  LOOKSP  J 

FIXRIGHT:  LV  = NTAB  (J)  * , 

FLAG  = 'l*ri  J 

f a 

WINDUP:  IF  ( FLAG  ) TbtN 

WEwWITE  FILE  (s»OUT)  FROM  (CAPO)  I 
FLAG  = *0»6  » 

GO  TO  * J J * 

LOOKSR:  J = 1 I 

LOOKLOOP:  IF  ( TEST  = ITAH(j)  ) THEN  GO  TO  FIND  » 
TALLY!  J = J ♦ 1 5 

IF  ( J <*  NT  ) THEN  GO  To  LOOKLOOP  J 
GO  TO  NOFlNo  • 

• 

EOF:  EOj:  CLOSE  FILE  (SOOT)*  FILE  (IAVAIl)  I * 
END  PGM9JA  t 
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ASSIGN  EXEC  DESCRIPTION 

The  purpose  of  ASSIGN  EXEC  is  to  generate  an  instructor  assignment  listing 
which  contains  the  following  data  for  each  instructor: 

o assigned  courses 

o projected  average  class  size 

o contact  hour  requirement  per  convening 

o scheduled  convenings  per  year 

o total  annual  contact  hour  requirement  per  course 

o projected  annual  availability 

t 

Initial  ASSIGN  EXEC  statements  suppress  all  terminal  output.  Then  DSRN's  are 
associated  with  each  of  the  input  and  output  files  as  follows: 


DSRN  FILENAME  FILETVPE 


Input 

Output 


1 

2 

9 


FILE  INST 
FILE  CRSE 
FILE  ASSIGN 


After  DSRN  specification,  ASSIGN1  FORTRAN  is  executed.  ASSIGN1  FORTRAN  output 
file  FILE  ASSIGN  is  then  sorted  by  instructor  using  the  NCSS  SORT  comnand. 

The  sort  key  fields  are  11-18.  DSRN's  are  then  reassigned  as  follows: 


DSRN  FILENAME  FILETVPE 


Input 

Output 


1 

2 

8 


FILE  ASSIGN 

FILE  I AVAIL 

ASSIGN  LISTING 


ASSIGN2  FORTRAN  is  then  executed  and  instructions  on  how  to  obtain  output  are 
printed. 


ASSIGN1  FORTRAN  DESCRIPTION.  The  purpose  of  ASSIGN1  FORTRAN  is  to  combine 
class  size  and  convening  data  from  FILE  CRSE  with  each  FILE  INST  record.  FILE 
INST  contains  one  record  for  each  Instructor  assigned  to  a course.  FILE  CRSE 
contains  one  record  for  each  course.  Both  files  are  sorted  by  CDP  number. 

ASSIGN1  reads  the  first  record  from  both  FILE  INST  and  FILE  CRSE.  If  both 
records  contain  the  same  CDP  number,  the  data  from  both  records  are  combined 
to  form  a single  record  which  Is  written  on  FILE  ASSIGN.  The  next  record  Is 
then  read  from  FILE  INST.  The  CDP  number  is  compared  with  the  CDP  number  In 
the  last  record  read  from  FILE  CRSE.  If  they  are  identical,  the  data  are 
combined  and  a single  record  Is  written  on  the  output  file.  If  the  CDP 
numbers  are  not  the  same,  the  next  record  Is  read  from  FILE  CRSE  and  the  CDP 
comparison  is  repeated. 


. _ 
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Records  are  read  from  both  files,  combined  and  rewritten  on  FILE  ASSIGN  until 
the  last  record  Is  read  from  FILE  INST. 

ASSIGN2  FORTRAN  DESCRIPTION.  The  purpose  of  ASSIGN2  FORTRAN  Is  to  combine 
Instructor  requirements  and  availability  data  and  to  format  the  data  on  the 
output  file  ASSIGN  listing.  Both  Input  files  FILE  ASSIGN  and  FILE  IAVAIL 
are  sorted  by  Instructor. 

Upon  entry,  ASSIGN2  FORTRAN  writes  a heading  on  ASSIGN  LISTING.  Then  the 
first  record  Is  read  from  FILE  ASSIGN.  Total  contact  hour  requirements  are 
calculated  by  multiplying  the  hours  per  convening  by  the  number  of  convenings. 
The  next  record  Is  read,  total  hours  calculated,  and  the  Instructor  name  Is 
compared  with  the  Instructor  name  of  the  prior  record.  If  the  names  are 
different,  availability  Is  read  from  FILE  IAVAIL,  the  former  record  Is  reform- 
atted and  written  on  ASSIGN  LISTING,  and  the  process  Is  repeated. 

If  the  names  are  Identical,  the  first  record  Is  formatted  and  written  on  the 
output  file,  the  next  record  read  from  FILE  ASSIGN,  and  the  Instructor  names 
are  again  compared.  If  the  names  are  the  same,  the  process  Is  repeated.  If 
the  names  are  different,  the  former  record  Is  formatted  and  written  on  ASSIGN 
LISTING.  Then  availability  Is  read  from  FILE  IAVAIL,  and  a summary  record, 
which  Includes  total  contact  hours  for  all  course  assignments  and  total  avail- 
ability, is  written  on  the  output  file. 

Records  are  read  from  FILE  ASSIGN,  names  compared,  and  output  records  written 
(format  Is  a function  of  single  vs.  multiple  assignments)  until  the  last  record 
Is  read  from  FILE  ASSIGN. 
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ASSIGN  PROGRAM  LISTINGS 


ASSIGN  EXEC 


ATVPE  OFF 
ASTACK  KT 

FILEDEF  1 DSK  FILE  INST 

FILEOEF  * DSK  FILE  C*SE 

FILEDEF  * DSK  FILt  ASSIGN 

HUN  ASSIGN 1 

ASTACK  11  IB 

SORT  FILE  ASSIGN  (dKlt-F) 

ERASE  FILE  ASSIGN 

ALTER  .FILE  ASSIGN  P FILE  * * 

ASTACK  10  17 

SORT  FILE  IAVAIL  ( BwltF ) 

FILEDEF  1 US*.  FILE  mSSIGN 
FILEDEF  * DSK  .FILt  IAVAIL 
FILEDEF  b DSK  ASSIGN  LIFTING 
RUN  ASSIGN* 

ERASE  .FILE  IAVAIL 

APR I TO  PRINT  INSTRUCTOR  ASSIGNMENTS*  TYPE 
APRI  P ASSIGN  LISTING 


TABLE  VI I -13 
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9 

t 


ASSIGNl  FORTRAN 


REAL*8  A( 3) * B 

C*«COMBlNES  INST  AND  CMSE  DATA  INTO  SINGLE  FILE 

c file  i = file  Inst 
C FILE  2 - FILE  CRSE 
c file  9 = file  assign 
c 

READ  ( 1 « bOO ) A 


500 

FORMAT 

(A4.9X 

♦ AH* 

. Fb  . 

1) 

10 

READ  <2*501* 

END 

= 

2b) 

8* IB1 * 182 

501 

FORMAT 

(A4*I3 

*13) 

15 

IF  ( A ( 1 ) .tU. 

H ) 

GO  TO 

20 

GO  TO  10 

20 

WRITE 

(9*502) 

A ( 1 

> « 

I M 1 * 

1 d2  * A ( 2) * A ( 3 ) 

502 

FORMAT 

( A4* 13 

*13* 

AB 

*F5. 

1) 

REAO  (j 

L *b00 • 

ENU 

= 

2b) 

A 

GO  TO  ] 

15 

25 

STOP 

END 


S 


ASSIGN2  FORTRAN 


PEAL*6  A (b) *8 (b) *C 
C 

C**FORMATS  INST  ASSIGNMENT  DATA  FOR  OUTPUT 
C FILE  1 * FILE  ASSIGN 
C FILE  2 = FILE  IAVAIL 
C FILE  H * ASSIGN  LISTING 
C 

WRITE  (8*100) 

100  FORMAT  (•  INSTRUCTOR  COURSE  CLASIZE  CONV  HRS/CONV** 
1*  TOT  HRS  AVAIL  HRS*/» 

1 ' 

READ  (1**9)  A(l)*IAl*IA*A(»)*A(b) 

99  FORMAT  < A4* 1 3* 1 3* AH *Fb. I > 

A ( 3)  * IA 
TA  * A (3)  * A ( 5 ) 

TOT  * TA 

10  REAO  (1*99*  END  * 1 bO ) 8 ( 1 ) ♦ 181 • Ib*R (4) *8 (b) 

8(3)  * IB 
Tfl  s B (3)  * B (b) 

IF  ( A ( 4 ) ..ME.  b(4>  ) GO  TO  bO 
WRITE  (8*101)  A(4) «A(1) *IA1*IA«A(S) *TA 

101  FORMAT  <2X*Ae*6X*A4*5X*IJ*4X*I3*bX*F5.1*4X*F6.1) 

TABLE  VII-  13  (Continued) 
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ASSIGN2  FORTRAN 


25  TOT  = TOT  ♦ TH 
00  30  1=1*5 

30  A (I)  * B ( I ) 

I A 1 * IB1 
IA  = IB 
TA  * Tb 

READ  (1*99*  END  = 1/5)  B ( 1 ) « 181  * 1B*B ( 4 ) .8 (5) 

b (3)  = IB 

T8  = B ( 3)  * 8(5) 

IF  ( A (4)  #NE  • 8(4)  ) 60  I’D  90 
MRITE  (8*102)  A(l) *IA1*IA*A(5)*TA 

102  FORMAT  ( 16X • A4*5X • 1 3* 4X • I j*5X *F5. 1 *4X *F6« 1 > 

GO  TO  25  - 

50  REAO  (2*104)  C*1C  9 

104  FORMAT  ( A8* 1 7X » 14 *4X ) 

*RITE  (8*105)  A(4> • A ( 1 > *1A1*1A*A(5) *TA*IC 

105  FORMAT  (2X*A6*bX«A4*5X*I3*<»AtlJ*5X*F5.1*4X*F6.1*4X*I4/) 

55  00  60  1*1*5 

60  A ( I ) * B(I> 

IA1  * IB1 
IA  = IB 
TA  * TB 
TOT  = TA 
GO  TO  10 

90  REAO  (2*104)  C*IC 

MRITE  (8*102)  A(l) *IA1*IA*A(5) *TA 
MRITE  (8*106)  TOT  * 1 C 

106  FORMAT  <49X* • /43X  * « TOT  * • *F6. 1 *4X.  I4/> 

GO  TO  55 

150  REAO  (2*104)  C*IC 

MRITE  (8*105)  A(4)*A(1)*IA1«IA*A(5)*TA*IC 
CALL  EXIT 

175  REAO  (2*104)  C«IC 

MRITE  (8*102)  A(l) *IA1*IA*A(5) *TA 
MRITE  (8*106)  TuT  * IC 
CALL  EXIT 
ENO 
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FACILITY  EXEC  DESCRIPTION 

The  purpose  of  FACILITY  EXEC  is  to  generate  a facility  utilization  listing 
which  contains  the  following  data  for  each  facility: 

o assigned  courses 

o projected  average  class  size 

o contact  hour  requirement  per  convening 

o scheduled  convenings  per  year 

o total  annual  contact  hour  requirement  per  course 

o projected  annual  availability 

Initial  FACILITY  EXEC  statements  suppress  all  terminal  output.  Then  DSRN's  are 
associated  with  each  of  the  input  and  output  files  as  follows: 


DSRN 

FILENAME 

FILETYPE 

Input 

1 

FILE 

FACIL 

2 

FILE 

CRSE 

Output 

9 

FILE 

FAC 

After  DSRN  specification,  FACT  FORTRAN  is  executed.  FAC1  FORTRAN  output 
file  FILE  FAC  is  then  sorted  by  facility  usinq  the  NCSS  SORT  command. 

The  sort  key  fields  are  11-18.  DSRN's  are  then  reassigned  as  follows: 


DSRN 


Input  1 

2 

Output  8 


FILENAME  FILETYPE 

FILE  FACv 

file  favail 

facility  listing 


FAC2  FORTRAN  Is  then  executed  and  Instructions  on  how  to  obtain  output  are 
printed. 


FAC1  FORTRAN  DESCRIPTION.  The  purpose  of  FAC1  FORTRAN  is  to  combine  class 
size  and  convening  data  from  FILE  CRSE  with  each  FILE  FACIL  record.  FILE 
FACIL  contains  one  record  for  each  course/facility  combination.  FILE  CRSE 
contains  one  record  for  each  course.  Both  files  are  sorted  by  CDP  number. 


FAC1  reads  the  first  record  from  both  FILE  FACIL  and  FILE  CRSE.  If  both 
records  contain  the  same  CDP  number,  the  data  from  both  records  are  combined 
to  form  .a  single  record  which  Is  written  on  FILE  FAC.  The  next  record  is 
then  read  from  FILE  FACIL.  The  CDP  number  is  compared  with  the  CDP  number  In 
the  last  record  read  from  FILE  CRSE.  If  they  are  Identical,  the  data  are 
combined  and  a single  record  Is  written  on  the  output  file.  If  the  CDP 
numbers  are  not  the  same,  the  next  record  is  read  from  FILE  CRSE  and  the  CDP 
comparison  Is  repeated. 
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Records  are  read  from  both  files,  combined  and  rewritten  on  FILE  FAC  until 
the  last  record  Is  reid  from  FILE  FACIL. 

FAC2  FORTRAN  DESCRIPTION.  The  purpose  of  FAC2  FORTRAN  Is  to  combine  facility 
requirements  and  availability  data  and  to  format  the  data  on  the  output  file 
FACILITY  LISTING.  Both  Input  files  FILE  FAC  and  FILE  FAVAIL  are  sorted  by 
Instructor. 

Upon  entry,  FAC2  FORTRAN  writes  a heading  on  FACILITY  LISTING.  Then  the  first 
record  Is  read  from  FILE  FAC.  Total  contact  hour  requirements  are  calculated 
by  multiplying  the  hours  per  convening  by  the  number  of  convenings.  The  next 
record  is  read,  total  hours  calculated,  and  the  building/room  number  is  com- 
pared with  the  building/room  number  of  the  prior  record.  If  the  numbers  are 
different,  availability  Is  read  from  FILE  FAVAIL,  the  former  record  Is  reform- 
atted and  written  on  FACILITY  LISTING,  and  the  process  Is  repeated. 

\ 

If  the  names  are  Identical,  the  first  record  is  formatted  and  written  on  the 
output  file,  the  next  record  read  from  FILE  FAC,  and  the  building/room  numbers 
are  again  compared.  If  the  numbers  are  the  same,  the  process  Is  repeated.  If 
the  numbers  are  different,  the  former  record  Is  formatted  and  written  on 
FACILITY  LISTING.  Then  availability  is  read  from  FILE  FAVAIL,  and  a sumnary 
record,  which  Includes  total  contact  hours  for  all  course  assignments  and  total 
availability.  Is  written  on  the  output  file. 

Records  are  read  from  FILE  FAC,  numbers  compared,  and  output  records  written 
(format  Is  a function  of  single  vs.  multiple  room  assignments)  until  the  last 
record  Is  read  from  FILE  FAC. 


- — 


fl 


I 

■M  r ) ) 

E 


TAEG  REPORT  NO.  36 


FACILITY  PROGRAM  LISTINGS 


F AC  I L I r r tni 


*TVP<-’  Pf»> 

FIl  fi»F  F * Cl  t*” 

FILE OFF  1 DSr.  F iLt.  K Ui 
FILFOEF  h DSr  FlLfc  ( 

FIl  FTiFF  w nSK  MLt  f ..v- 
RDM  FAC  l 

F.STAC*  11  lb 

SOp  T F I Lt  FAC  (riH  ll-  - ) 

fcPASF  Fllfc  FaC 

ALTER  , F 1 1.  F.  FAC  h FJL-.  » <> 

FILEOFF  * 

FILF70FF  1 L’S*  FILL  F.C 
FII.FDFF  f i »S«*  FlLF  F«»a|l 
FILEDFF  a i;hK  FAclcIl*  LlMl-.G 
HUM  FA CV 

\PMI  TO  HP  In  I FAClLllY  L IS  l IN-.,,  Iyh* 
^PH  I E F *»l.  iLlffcl.'tll  No 


(rlH  IF  - 


fil*. 


F AC  1 


FORTRAN 


REAL*B  A ( i)  »H 
C**C0M8InES  FACIL  A NO 
C FILE  1 = FILL  FACIL 


CKSt  bA  f A InTu  SlNGLt  FlLt 


FILE 

FILt 


FILE  CPSt 
FILE  FaC 


PEAO  ( 1 * bUU ) A 
F OPM AT  ( AA  « AH  t F b • 1 ) 

READ  (<i»S01.  END  = Zb)  R«Ibl»lH2 
FORMAT  (A4»I3.Ij) 

IF  (All)  .tU.  b ) Ou  TO  20 
GO  TO  10 

*RI  TE  <y*S02>  A l 1 ) ♦ Ibl  «lfc^*A  IZ)  » A ( J) 
FORMAT  <AA*I3.U.Ab»FS.l> 

READ  ( 1 *S00  * END  = Zb)  A 

GO  TO  IS 

STOP 

END 
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FORTRAE 


REAL*6  A (5) *B(5) *C 


C**FORMATS  FACIL  LISTING  DATA  F OR  OUTPUT 

C FILE  1 = file  fac 
C file  2 - FILE  FAVA1L 
C FILE  B = FACILITY  LISTING 
C 

WRITE  (B.100) 

100  FORMAT  (•  BLOG  / KM  COURSE  CLASIZE  CONV  HRS/CONV • • 

1*  TOT  HRS  AVAIL  HhS»/»  — 

1* •) 

READ  (1*99)  A ( 1 ) *IA1»IA*A(4) * A ( 5 ) 

99  FORMAT  ( A4* I3» 13* A8*F5. 1 ) 

A (3)  = IA 
TA  = A ( 3 ) * ACS) 

TOT  = TA 

10  READ  (1*99*  END  = ISO)  B ( 1 ) * IB1 t IB.B (4) *H (5) 

8(3)  = 18 
T 8 = 8(3)  * 8(5) 

IF  ( A ( 4 ) »NE.  B ( 4 ) ) GO  To  SO 
WRITE  (8*101)  A ( 4 ) * A ( 1 ) * I A 1 * I A * A ( 5 ) * T A 

101  FORMAT  (2X*A8»SX*A4fSX*I3»4X*I3*5X*F5.1*4X*F6.1) 

25  TOT  = TOT  ♦ TB 

DO  30  1=1*5 

30  A (I)  = B ( I ) 

I A 1 = 181 
IA  = IB 
TA  = Tb 

READ  (1*99*  END  = 175)  8 ( 1 ) * IB1 * IB*8 (4) *B (S) 

8(3)  * IB 
TB  = 8(3)  * B (5) 

IF  ( A (4 ) .Nt . 8(4)  ) GO  TO  90 
WRITE  (6*102)  All) *IA1<IA»A(5) *TA 

102  FORMAT  ( 1SX * A4* SX * I3*4X * I3*SX » FS. 1 * 4X * Fb. 1 ) 

GO  TO  25 

50  READ  (2*104)  C*IC 
104  FORMAT  (A8*l5) 

WRITE  (8*105)  A(4)*A(1)«IA1*IA*A(5)*TA*IC 
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FAC2  FORTRAN 


105  FORMAT  (2X*A8*bX*A4*bX« I3*4X* 13*bX*Fb. 1 *4X*F6.1 *4X* lb/) 

5b  00  60  1=1*5 

60  Ad)  = 8(1) 

I A 1 = IB1 
IA  = IB 
TA  * Td 
TOT  = TA 
GO  TO  10 

90  READ  (2*104)  C*1C 

WRITE  (8*102)  A ( 1 ) *IAl*IA*A(b) * T A 
WRITE  (8*106)  TuT * IC 

106  FORMAT  (48X * */42X**T0T  * * *F6. 1 *4X* 15/) 

GO  TO  55 

150  READ  (2*104)  C*IC 

WRITE  (8*105)  A ( 4*  > *A(1)  *IA1.IA*A(5)  *TA*IC 
CALL  EXIT 

175  REAO  (2*104)  C*IC 

WRITE  (8*102)  A(l) *IAl*IA*A(b) *TA 
WRITE  (8*106)  TOT* IC 
CALL  EXIT 
ENO 
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MODAVAIL  EXEC  DESCRIPTION 

The  purpose  of  MODAVAIL  EXEC  is  to  modify  the  number  of  available  hours 
associated  with  either  an  instructor  or  a facility  in  the  LP  input  data 
file  SCRR  DATA.  MODAVAIL  uses  the  CSS  EDIT  comnand  to  effect  the  file 
change.  The  EDIT  command  copies  the  SCRR  DATA  file  into  core.  Subse- 
quent edit  requests  examine  and  modify  the  core  image  of  the  file  and  then 
write  the  file  to  disk. 

The  initial  EXEC  statement  suppresses  printing  of  all  CSS  command  statements 
and  all  EXEC  control  statements.  Next  the  output  file  for  the  FORTRAN  program 
MODIFY  is  specified  and  MODIFY  is  executed.  The  EXEC  file  CHG  which  has  been 
created  by  MODIFY  is  then  executed.  CHG  EXEC  uses  the  CSS  EDIT  comnand  to 
modify  the  file  SCRR  DATA.  First,  the  line  containing  the  specified  instruc- 
tor ID  or  facility  name  is  located  in  the  file  by  the  LOCATE  request. 

Then  the  available  hour  figure  contained  in  the  file  is  replaced  with  a new 
figure  using  the  EDIT  comnand  CHANGE  request.  An  error  in  data  entrv  will 
result  in  a NO  CHANGE  message,  which  Indicates  that  SCRR  DATA  has  not 
been  changed.  The  final  statement  in  the  CHG  EXEC  writes  the  updated  SCRR 
DATA  file  to  a writable  disk.  CHG  EXEC  is  erased  following  execution.  If 
the  user  indicates  that  additional  availability  modifications  are  required, 

MODAVAIL  EXEC  branches  to  statement  two  and  reexecutes  MODIFY  and  CHG  EXEC. 

If  further  changes  are  not  required,  a message  informing  the  user  how  to  rerun 
the  SCRR  model  Is  printed. 

MODIFY  FORTRAN  DESCRIPTION.  The  purpose  of  MODIFY  FORTRAN  is  to  create  the  CHG 
EXEC  file  containing  the  user-specified  availability  information.  j 

• I 

The  user  specifies  the  name  of  the  Instructor  of  facility,  current  available 
hours,  and  the  new  available  hours.  This  Information  Is  formatted  within 
several  CSS  EDIT  command  request  statements  and  written  on  output  file  CHG 
EXEC.  The  CHG  EXEC  file  created  by  MODIFY  is  shown  below. 

CHG  EXEC 

ASTACK  KT 
ABEGSTACK 
L / RHS/ 

L /ID/ 

C /ID/  CHRS/ID  NHRS / 

FILE  1 

AENDSTACK 
EDIT  SCRR  DATA 


i 

l 
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MODAVAIL  PROGRAM  LISTINGS 


MOOAVAIL  EXEC 


f 


\\ 

r 


i i 


ri 


ATYPE  OFF 

-CM6  FILEDEF  8 DSK  CH6  EXEC 
FILEOEF  6 CONO 
RUN  MOOIFY 
EXEC  CH6 

CSS  ERASE  CH6  EXEC 

APR  I ANY  MORE  CHANGES?  (YES/NO) 

AREAD  ARGS 

A IF  A1  NE  NO  AGOTO  -CHG 

APRI  CHANGES  TO  AVAILABLE  HOURS  HAVE  BEEN  INCORPORATED. 

APR I TO  RERUN  SCRR  MODEL  TYPE*  SCRR1 

AEXIT 


TABLE  VI I -15 


VII-67 


wawn  '■*’  <-  f , 


HEAL*H  RES*NME*10 
WRITE (6*9) 

9 FORMAT  ( * ENTER  WAMfc  OF  INSTRUCTOR  Ok  FACILITY!  ♦> 

HEAD  (5*10)  kEb 

10  FORMAT  ( A8 ) 

5 WM1TF  ( 6» 1 1 ) 

11  FOkHAT  (’ENTER  CUkkENT  AVAlLAHLE  HOURS*  NE«  AVAILABLE  HOURS:  •) 
READ  (5*12)  I Crtk  * I MhW 

1 2 FORMAT  (219'#) 

IF  ( IChk  .GT.  9>#9k)  GO  TO  20 
IF  dNHk  .GT.  9*99)  GO  TO  20 
25  REaU< 1 « 1o«Ehu=J0)  IO*NME 
16  FORMAT (A8*lA*Ab*l6X) 

IF  ( RtS  .EU.  NME  ) GO  TO  bO 
GOTO  25 

30  WRITE  (8*13)  kt5*KEb*ICHK*kES»  INrR 

13  FOkMAT  (’6STACK  KT  • / • XREGS TALK • / »L . /RHS/’/’L  /»*Att*’/’/’C  /’*A8* 
l8X*l4*’/’*Ab.8A*lA*’/’/’FiLE’/’4EN0STACK’/*El)IT  SCkk  DATA* ) 

50  CALL  EXIT 

60  WkITE(U*li)  ID*  10*  ICHk*  ID*  I.Nnk 
GO  TO  50 

20  WRITE  (6*15) 

15  FOKMAT  (»AVA1LAHLE  HOURS  LIMITED  TO  FOUR  (4)  DIGIT  NUMBER i TRY  •* 
1 ’AGAIN.* ) 

GO  TO  6 
ENl? 
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REQMT  EXEC  DESCRIPTION 

The  purpose  of  REQMT  EXEC  is  to  provide  the  model  user  with  the  capability 
to  modify  course  utilization,  class  capacity,  and  course  length  expressed  In 
contact  hours  to  assess  the  Impact  of  these  changes  on  total  instructor  and 
facility  requirements.  The  EXEC  utilizes  three  RAMIS  RUN  EXECUTIVE  procedures  to 
retrieve  data  from  two  RAMIS  data  files  COURSE  and  FACIL.  The  RUN  EXECs 
extract  current  utilization,  capacity  and  length  data  from  the  data  files  and. 
then  factor  these  data  by  the  user-specified  percentage  changes  prior  to  calcula- 
ting and  filing  Instructor  and  facility  requirements.  RUN  EXECUTIVES  are 
cataloged  RAMIS  procedures  capable  of  accepting  variable  parameter  input  values. 

The  initial  REQMT  EXEC  statement  suppresses  printing  of  all  CSS  comnand  state- 
ments and  all  EXEC  control  statements.  The  user  Is  then  asked  If  program  opera- 
ting Instructions  should  be  printed.  If  the  response  Is  positive,  several 
lines  of  text  are  printed  prior  to  each  data  request.  A negative  response  will 
cause  all  text  statements  to  be  bypassed.  Values  are  then  requested  for  the 
utilization  percent  change,  capacity  change,  and  the  length  change. 

After  the  requested  data  have  been  entered,  output  files  are  specified,  RAMIS 
is  attached,  and  three  RAMIS  RUN  EXECUTIVES  are  executed.  REQMT  uses  all 
three  parameters  (utilization,  capacity,  and  length)  and  generates  the  file 
FILE  INST  which  contains  Instructor  contact  hour  requirements  by  Instructor  by 
course.  REQMT1  uses  only  the  utilization  and  capacity  parameters  and  gener- 
ates the  file  FILE  CRSE  which  contains  the  class  size  and  number  of  convenings 
by  course.  REQMT2  uses  the  course  length  parameter  and  generates  the  file  FACIL 
which  contains  the  contact  hours  requirements  by  facility  by  course.  After 
REQMT2  has  been  executed,  RAMIS  is  detached  and  a message  which  Indicates  that 
the  required  output  files  have  been  generated  Is  printed. 

REQMT  RUNEXEC  DESCRIPTION.  The  purpose  of  the  REQMT  RUNEXEC  is  to  calculate 
instructor  requirements  In  hours  by  course  and  by  Instructor  Incorporating 
the  course  parameter  deltas  as  specified  by  the  user  through  the  REQMT  EXEC. 

The  basic  data  required  to  determine  Instructor  requirements  are  stored  In 
the  RAMIS  course  file  COURSE. 

REQMT  RUNEXEC  Is  based  on  the  RAMIS  procedures  SCRR  INST1  and  SCRR  INST2  de- 
scribed earlier.  The  primary  difference  between  the  procedures  Is  that  the 
RUNEXEC  factors  the  data  retrieved  from  the  course  file  by  the  user-specified  per- 
centages. REQMT  output  Is  written  on  FILE  INST. 

REQMT  RUNEXEC  is  a cataloged  procedure  stored  In  the  RAMIS  file  RAMEXEC.  Main- 
tenance of  the  RAMEXEC  file  to  change  a procedure  can  be  performed  In  the  UPDATE 
mode  or  In  the  SCAN  mode  through  the  usual  RAMIS  facilities.  Alternately  the 
file  REQMT  RUNEXEC  can  be  modified,  and  the  procedure  recataloged  by  using 
the  RAMIS  comnand  RAMISIN  REQMT  RUNEXEC. 


REQMT1  RUNEXEC  DESCRIPTION.  The  purpose  of  the  REQMT1  RUNEXEC  Is  to  record 
v the  convening  frequency  and  average  class  size  for  each  course  Incorporating 

the  user-specified  course  parameter  deltas.  The  required  ata  are  stored  In 
the  RAMIS  course  file  COURSE. 
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REQMT1  RUNEXEC  Is  based  on  the  RANIS  procedure  SCRR  CRSE  described  earlier. 

The  primary  difference  between  the  two  procedures  Is  that  the  RUNEXEC  factors 
the  data  retrieved  from  the  course  file. by  the  user-specified  percentages. 
REQKT1  output  Is  written  on  FILE  CRSE. 

REQMT2  RUNEXEC  DESCRIPTION.  The  purpose  of  the  REQMT2  RUNEXEC  Is  to  determine 
facility  requirements  In  hours  by  course  and  by  facility  Incorporating  the 
course  length  delta  specified  by  the  user.  The  basic  data  are  stored  In  the 
RANIS  facility  file  FACIL. 

REQNT2  RUNEXEC  Is  based  on  the  RANIS  procedure  SCRR  FACIL  described  earlier. 
The  primary  difference  between  the  two  procedures  Is  that  the  RUN  EXEC  factors 
the  data  retrieved  from  the  facility  file  by  the  user-specified  percentages. 
REQNT2  output  Is  written  on  FILE  FACIL. 
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REOMT  PROGRAM  LISTINGS 

REQHT  EXEC 


(TYPE  OFF 

(ppint  oo  you  qism  instructions  to  he  ppinTcu?  <yes/no>  : 

(READ  ARGS 
(OIR  = (1 

(IF  (DIR  NE  YES  (GOTO  -U 

(PRINT  THIS  PROGRAM  PhOVIUES  The  CAPABILITY  To  HOUIFY  COURSE 
(PRINT  UTILIZATION.  CLASS  CAPACITY.  AND  COUkSE  LENGTH  EXPRESSEO 
(PRINT  IN  CONTACT  HOU*S  TO  ASSESS  THE  IMPACT  ON  TOTAL  INSTRUCTOR 
(PRINT  REQUIREMENTS. 

(PRINT  * TO  INCREASE  UTILIZATION  £0*  tNTtR : ,20 

(PRINT  * TO  OECREASt  UTILIZATION  10*  ENTLR : -.10 

(PRINT  * IF  NO  CHANGE  IS  DESIpED  ENTEp:  U 

-U  (PRINT  ENTER  UTILIZATION  CELT  A : 

(READ  ARGS 
(UDEL  3 (1 

(IF  (OIR  NE  YES  (GOTO  -C 

(PRINT  * TO  INCREASt  CLASS  CAPACITIES  20*  ENTER.*  ,20 

(PRINT  • TO  DECREASE  CLASS  CAPACITIES  10*  ENTERS  -.10 

(PRINT  * IF  NO  CHANGE  Is  DESIstO  ENTER:  0 

-C  (PRINT  ENTER  CLASS  CAPACITY  DELTA: 

(READ  ARGS 
(CDEL  = (1 

(IF  (OIR  NE  YES  (GOTO  -L 

(PRINT  * TO  INCREASt  COUPSt  LENGTH  £0*  ENTER:  . 20 

(PRINT  * TO  DECREASE  COUPSE  LENGTH  10*  ENTER:  -.10 

(PRINT  * IF  NO  CHANGE  IS  DESlPtD  ENTER*.  0 

-L  (PRINT  ENTER  COURSE  LENGTH  DELTA: 

(REAO  ARGS 
(LOEL  3 (1 

(PRI  ENTER  FOUR  DIGIT  ACT  I V I Ty/DEPT  CODE: 

(READ  ARGS 
(SCHOOL  3 (1 
(STACK  KT 

(STACK  EXEC  HEQMT  (UOEL  » (CDEL  . (LUEL  • 

(STACK  (SCHOOL 

filedef  4 osk  file  Inst i he  f lr  q 
filedef  t>  MSG  kill 

ATTACH  RAMIS  ALL  BRIEF 
EXEC  RAMIS 
(STACK  KT 

(STACK  EXEC  HEQMT 1 (UDEL  . KCDtL  * (SCHOOL 
FILEDEF  4 DSK.  FILE  CRSt  Rt  F LR  10 
EXEC  RAMIS 
(STACK  KT 

(STACK  EXEC  HEQMT  £ (LOEL  . (SCHOOL 
FILEDEF  4 DSK  FILE  FACIL  HE  F LR  22 
EXEC  RAMIS 

DETACH  RAMIS  ALL  BRIEF 
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MEQMT 


E RASE  MSG  KILL 
FILEDEF  b CONO 
FILEDEF  1 DSK  FILE  INST* 

FILEDEF  i DSK  FILL  IusTl 

FILEDEF  H DSK  ULt  InsT  Ht  f L«  J4 

HUN  SCRRINST 

4PRI  PEOUESTED  CHANGE*  HAVE  HEtN  lNCOHPOHATFo 
KPPI  TO  WERUN  sCWH  MODfcL  TYPE:  *CHNd 


WF.UMT1  RUNEXtC 


DELETE 

FILE  RAMEAtC 
1 *OUT  sPEwhT 1 *t 
END 

CATALOG  NECiMT  1 

TAHLEF 

FILE  COUHSE 

PRINT  CAP  1 AND  UCAH  AND  CONV1  AnU  HOLD 

HY  CDP 

IF  SCH  IS  A3 

END 

DEFINE 

FILE  HOLD 

UCAPl/F*.*  = NIN(  1 .Of  ( .0  I*OCAH)  ♦ (OCAP*..»l*  (M  > > ) 

CLASI7E/13  = (CAP1  * uC«Pl  * K^IM.UII  ♦ O 

END 

TAHLE 

FILE  HOLD 

PRINT  CLASIZt  AND  CONVl  ANU  Savc.  dY  CDP 

END 

FIN 

END  CATALOG 
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HEQMT  RUNEXEC 


DELETE 

FILE  RAMExEC 
l*OUT*REUMT • * 

END 

CATALOG  HEQMT 

table 

file  COUHSE 

PRINT  CAP!  AND  UCAP  ANU  Ki  AND  Ft  AND  K3  AND  HOLD  BY  CUP 

IF  SCH  IS  fcA 

END 

DEFINE 
FILE  HOLD 

IF  FI  GT  ISO  GOTO  INS! 

UCAP1/F4.2  * MIN  ( 1 • 0 • (UCAP*  .0,1)  ♦(ULAP*.01*(fcl)  ) ) 

AVGCLAS  / 13  = (CAP1  * UCAHl  * ((*,*)♦!))  '♦  ,b 
NOINST  / 1 3 * MAX  (l.Ot  (AVGClAS  / FI  > ♦ .:>) 

TOTHRS  / I A = NOINST  *F2* ( ( k3) ♦ 1 ) * 

FLAG  /II  * 1* 

GOTO  end; 

INSTl 

ASN  /II  = F 3 
FLAG  /II  * 0 
END 
TABLE 
file  HOLD 

STORE  TOTHRS  H Y CUP 

IF  FLAG  IS  1 

RUN 

FILE  HOLD 

SUM  ASN  AND  HOLD  HY  CUP  IK  FLAG  IS  0 
END 

DEFINE 
FILE  HOLD 

INSTHRS  /F5.1  * TOTHHS  / ASN 

END 

TABLE 

FILE  HOLD 

PRINT  INSTHRS  ANU  SAVE  HY  CDP 

END 

FIN 

ENO  CATALOG 


TABLE  VII-16  (Continued) 


DELETE 

FILE  RAMtXFC 
l=OUT=REUMT2,$ 

END 

CATALOG  KEQMT2 
TABLE 

FILE  FACIL 

PRINT  REOHRS  AND  MOLD  BY  CUP  BY  HLOG  BY  Rm 
IF  SCH  lb  &£ 

END 

DEFINE 
FILE  HOLD 

RHRS/FG.i  = HEUHHb* (KtUHHS* (M ) ) 

END 

table 

FILE  HOLU 

PRINT  RHHb  AnU  SAVt  HY  CUP  bY  BLUb  BY  RH 

END 

FIN 

END  CATALOG 


TABLE  VI I- 1 6 (Continued) 
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SCRR2  EXEC  DESCRIPTION 


p 


The  purpose  of  the  SCRR2  EXEC  Is  to  Incorporate  the  resource  requirement 
changes  requested  through  the  REQMT  EXEC  Into  the  LP  Input  data  matrix  and 
then  renin  the  SCRR  model . 

REQMT  EXEC  regenerates  three  RAMIS  Interface  files  - FILE  INST,  FILE  FACIL, 
and  FILE  CRSE.  To  Incorporate  the  data  from  these  files  Into  the  LP  data 
matrix.  It  Is  necessary  to  execute  those  executives  which  require  any  of 
(these  files  as  Input.  Therefore,  the  following  executives  are  serially 
executed  by  the  SCRR2  EXEC: 


BLANK 

IF2 

SCRRSORT 

COMB 

SCRR1 


»,S 


SCRR2  PROGRAM  LISTING 


SCRR2  EXEC 


APRI  THIS  EXECUTIVE  WILL  INCORPORATE  THE  CHANGES 
APR I REQUESTED  BY  THE  REQMT  EXECUTIVE  INTO  THE  LP 
APR I INPUT  AND  RERUN  THE  SCRR  MOOEL 
ATYPE  OFF 
' EXEC  BLANK 
EXEC  IF2 
EXEC  SCRRSORT 
EXEC  COMB 
EXEC  SCRR1 


TABLE  VI 1-17 
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FIXCONV  EXEC  DESCRIPTION 

The  purpose  of  the  FIXCONV  EXEC  Is  to  modify  the  LP  input  data  MATRIX1  DATA 
to  fix  the  number  of  course  convenings  at  the  current  level . 

The  MATRIX!  DATA  file  contains  one  BOUND  data  card  image  for  each  course  in 
the  current  problem  formulation.  Columns  2-3  of  this  card  image  contain  the 
bound  type  Indicator.  The  indicator  LO  Indicates  that  the  number  of  conven- 
ings specified  in  columns  25-36  Is  a lower  bound.  This  is  equivalent  to 
adding  a constraint  to  the  LP  problem  formulation  specifying  that  the  number 
of  convenings  must  be  greater  than  or  equal  to  the  number  specified  on  the 
BOUND  data  card.  FIXCONV  EXEC  uses  the  NCSS  EDIT  command  to  change  the 
BOUND  type  indicator  LO  on  all  BOUND  data  cards  in  MATRIX1  DATA  to  the  type 
indicator  FX.  FX  indicates  that  the  number  of  convenings  specified  on  the 
BOUND  data  card  is  a fixed  value. 


FIXCONV  PROGRAM  LISTING 


FIXCONV  EXEC 


IBEGSTACK 

KT 

C /LO/FX/  * * 

FILE 

IENDSTACK 

EDIT  MATRIX1  DATA  SB 

iPRI  COURSE  CONVENINGS  FIXED  AT  THE  CURRENT  LEVEL. 

4PRI  TO  RERUN  SCRR  MODEL  TYPE  i SCRR1 

IEXIT 


TABLE  VI 1-18 
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MAX CON V EXEC  DESCRIPTION 

The  purpose  of  the  MAXCONV  EXEC  Is  to  modify  the  LP  input  data  MATRIX1  DATA 
to  remove  the  upper  bound  on  course  convenings  previously  established  through 
the  execution  of  FIXCONV  EXEC. 

MAXCONV  EXEC  reverses  the  data  change  made  by  FIXCONV  EXEC.  MAXCONV  uses  the 
NCSS  EDIT  command  to  change  the  BOUND  type  Indicator  FX  on  all  BOUND  data 
cards  on  MATRIX1  DATA  to  the  type  Indicator  LO. 

If  the  type  Indicator  Is  not  FX  when  MAXCONV  is  executed,  the  program  will 
respond  with  the  message  NO  CHANGE. 


MAXCONV  PROGRAM  LISTING 


MAXCONV  EAEC 


ABEGSTACK 

KT 

C /FX  SCh/LO  SCM/  * * 

FILE 

AENDSTACK 

EDIT  SCHH  DATA  SB 

APR  I data  modified  to  optimize  cu'JKSt  Convenings* 

APR I TO  WERUN  SC Kk  MODEL*  TYPE:  SCMHl 
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SCRR3  EXEC  DESCRIPTION 


The  purpose  of  the  SCRR3  EXEC  is  to  construct  the  LP  input  data  matrix  SCRR 
DATA  and  then  rerun  the  SCRR  model  software  after  data  has  been  retrieved  from 
the  three  RAMIS  data  files  COURSE,  INST,  and  FACIL  by  executing  the  executive 
RAMSCRR. 


The  following  executives  are  serially  executed  by  the  SCRR3  EXEC 


BLANK 

IF1 

IF2 

SCRRSORT 

IF3 

IF4 

COMB 

SCRR1 


SCRR3  PROGRAM  LISTING 


SCRR  3 


MF  4C0RL  GE  320  *SKIP  3 

KPRI  REQUIRED  CORt  IS  320K.  PLtASE  TYRE:  StT  CORE  320 

&PRI  THEN  REISSUt  COMMANU:  SCRh 

SEXIT 

EXEC  BLANK 
EXEC  IF  1 
EXEC  IF2 
EXEC  SCRRSORT 
fcSTACK  KT 
EXEC  IF  3 
EXEC  IF* 

EXEC  COMM 
EXEC  SCRR1 
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I COMP  EXEC  DESCRIPTION 

The  purpose  of  ICOMP  EXEC  is  to  compute  Instructor  requirements  according  to  the 
technique  outlined  In  CNTECHTRAINST  5311. 1A  CH-1. 

ICOMP  EXEC  first  requests  the  user  to  specify  whether  requirements  are  to  be 
generated  for  a single  course  or  for  all  courses  within  a devl sion/department. 

If  the  user  selects  the  division  option,  computed  Instructor  requirements  are 
printed  for  all  courses  within  the  division.  If  the  user  selects  the  single 
course  option,  Instructor  requirements  can  be  computed  for  a demand  other  than 
the  current  year  demand.  The  system  will  print  Instructor  requirements  for 
the  demand  specified  by  the  user. 

ICOMP  RUNEXEC  DESCRIPTION  | 

ICOMP  RUNEXEC  first  extracts  all  class  capacity,  course  convening,  student/ 
Instructor  ratio,  and  contact  hour  data  from  the  RAMIS  file  COURSE.  If  a demand 
other  than  the  current  demand  has  been  specified,  the  number  of  convenings  Is 
calculated  by  dividing  the  demand  by  the  class  capacity.  ICOMP  RUNEXEC  then 
computes  the  number  of  Instructors  required  at  each  student/ Instructor  ratio. 
Fractional  Instructors  greater  than  0.2  are  rounded  to  the  next  whole  number. 

Total  contact  hour  requirements  are  then  determined  by  summing  the  product  of 

the  number  of  Instructors  required  and  the  contact  hours  at  each  student/ Instructor 

ratio. 

The  total  contact  hours  required  are  then  divided  by  the  convening  frequency 
(number  of  convenings  divided  by  50)  times  25  to  determine  total  situations. 


TOT  HR  X fCONV 


TOT  SITUATIONS 


Basic  requirements  are  derived  by  multiplying  the  total  situations  by  1.10. 
Dividing  basic  requlrments  by  0.88  establishes  total  Instructor  requirements. 

T0T..-S]JUATI0NS  X 1.10  , total  INST  REQUIREMENTS 
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ICOMP  PROGRAM  LISTINGS 

1 


ICOMP  EXEC 


sTYPE  OFF 

SPRINT  TO  CALCULATfc  INSTRUCTOR  HEUUlHtMENTS  F OH : 

SPRINT  ***  A SINGLE  COUHSt  TYPt:  COP 

SPRINT  ***  ALL  COURSES  *ITh1n  a DIVISION  On  utPT  TYPE:  SCH 
SREAO  AH6S 

sfld  = Si 

S IF  SFLO  Eu  SCM  SuOTu  -SCm 
SPRINT  ENTER  COURSE  LOP  NO^mE**  : 

SREAO  ARbS 
SVAL  = SI 
SGOTO  -OMD 

-SCH  SPRINT  ENTEH  U I V I S I ON/ UtPT  COUE: 

SREAO  ARGS 
SVAL  = SI 
SOMD  = 0 

-DMD  MF  SFLU  EN  SCH  sgOTO  -Run 

SPRINT  TO  CHANGE  Tht  «NNU AL  DEMAnO  Fom  COUnSt  SVAL  FROM  THE  CURRENT 
SPRINT  LEVEL  AS  STOREu  IN  The  uATA  NASE  TO  A NEW  VALUE* 

SPRINT  TYPE  nEn  DEmANU  VALUE • EL^E  TYPE  0. 

SREAO  ARCS 
SOMD  = SI 
-RUN 

SSTACK  KT 

SSTACK  EAEC  ICOMP  SFLO  • SVAL  ♦ *.0*0 

FILEDEF  m MSG  KILL 

ATTACH  RAMIS 

EXEC  RAMIS 

SSTACK  KT 

SSTACK  L.  /COMP/ 

SSTACK  F.  0 
SSTACK  OE.  ? 

SSTACK  U.  /CUMP/ 

SSTACK  P 100 
SSTACK  0 
EDIT  MSG  KILL 
DETACH  RAMIS 
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delete 

FILE  RAMfcXEC 
1=0UT=IC0HP,» 

END 

CATALOG  ICOMP 

table 

file  course 

PRINT  CAPl  AND  CONV)  ANU  FI  ANU  F2  AND  HOLD  BY  COP 
IF  &1  IS  A2 

IF  FI  IS-LESS-Than  1 ?*U 
ENO 

DEFINE 
FILE  HOLD 

UIF  *3  EO  0 GOTO  CALCS 

C0NV/I3sfc3/CAP1 

&&CALC 

NOINST/I3=MAA<1.0» (CAkI/KI ) ♦. TV9) 


AND  HOLO  fiY 
0 GOTO  SKI  5 


COP  HY  CON VI 


T0TMRS/I*=NOINST*F<' 

END 
TABLE 
FILE  HOLD 
SUM  TOTHKS 
IMF  S3  tU 
BY  CONV 
LLSK1 
END 

DEFINE 
FILE  HOLu 

T0TSIT1  = (T0T HHS*C0N V 1 ) / 12SU 
TOTRE01/F6.2= (T0TSIT1*1 ,1 ) /.B8 
UIF  A3  fcO  0 GOTO  SK2S 
T0TSIT= ( TOTHRS*COnV) /12b0 
T0TRE0/Fft.2= (TOTS  I T*1 . l ) /.H« 

AASK? 

END 

TABLE 

HEADING 

COMPUTED  INSTRUCTOH  PEOUlPtMtNTi 

file  HOLD 

PRINT  T0TRE01  AS  iNSTKtKbODtCUHtUMo 

UIF  13  tO  0 GOTO  SKJt 

ANO  TOTRtO  AS  INSTRtPfcAfU*  AJ«0MU 

USK3 

BY  COP 

ON  CDP  SKIP-LINE 

ENO 

FIN 

END  CATALOG 

TABLE  VI I— 21  (Continued) 
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APPENDIX  A 

ALPHABETIZED  PROGRAM  LISTING  INDEX 
• PROGRAM  NAME  PAGE 


; 


SCRR 

CRSE 

COURSE 

DESC 

FACIL 

DESC 

INST 

DESC 

ASSIGN 

EXEC 

BLANJL 

EXEC 

CENTTk 

EXEC 

COMW 

EXEC 

COURiE 

EXEC 

CRSRON 

EXEC 

CTRRUN 

EXEC 

DBPROMPT 

DBTAPERD 

DISP 

EXEC 

El 

EXEC 

E2 

EXEC 

E3 

EXEC 

E4 

EXEC 

E5 

EXEC 

E6 

EXEC 

E7 

EXEC 

E8 

EXEC 

E9 

EXEC 

FACIL 

EXEC 

FACILITY 

EXEC 

FCOURSE 

EXEC 

FINST 

EXEC 

FIXCONV 

EXEC 

GPLISTF 

EXEC 

GP1 

EXEC 

I COMP 

EXEC 

IF1 

EXEC 

IF2 

EXEC 

IF3 

EXEC 

IF4 

EXEC 

INST 

EXEC 

MAXCONV 

EXEC 

MODAVAIL 

EXEC 

M13EXB 

EXEC 

M15EXB 

EXEC 

M15EXC 

EXEC 

M16EXB 

EXEC 

M17EXB 

EXEC 

M18EXB 

EXEC 

VI 1-16 

V-12 

V-4 

V- 7 

VI 1-56 
VI 1-22 

VI- 37 

VI I- 37 

V- 208 

VI - 33 
VI-37 
V-29 

V- 68 

VI- 37 
V-208 
V-209 
V-209 
V-209 
V-209 
V-210 
V-210 
V-210 
V-210 
V-211 

VI I- 62 
V-21 
V-211 
VI 1-77 
V-212 
V-21 2 
VI 1-81 
VI 1-27 
VII-30 
VI 1-34 
VI 1-36 
V-21 3 
VI I -78 
VI 1-67 
V-110 
V-119 
V-120 
V-127 
V-135 
V-141 


.....  j.  . . - ■ ■ ■!..  . 
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PROGRAM  NAME 

M19EXB 

EXEC  . 

M20EXB 

EXEC  . 

M99EXA 

EXEC  . 

NDUMP 

EXEC  . 

PCB 

EXEC  . 

PCOURSE 

EXEC  . 

PFACIL 

EXEC  . 

PFCB 

EXEC  . 

PICB 

EXEC  . 

PINST 

EXEC  . 

PROCESS 

EXEC  . 

RAM 

EXEC  . 

RAMSCRR 

EXEC  . 

RDUMP 

EXEC  . 

REFORM 

EXEC  . 

RELEASE 

EXEC  . 

REQMT 

EXEC  . 

RUNPROC 

EXEC  . 

SCRR 

EXEC  . 

SCRRSORT 

EXEC  . 

SCRR1 

EXEC  . 

SCRR2 

EXEC  . 

SCRR3 

EXEC  . 

SETSCH 

EXEC  . 

SS 

EXEC  . 

SUPER 

EXEC  . 

SUPERDUM 

EXEC  . 

SUPERX 

EXEC  • 

SUP RDUMP 

EXEC  . 

TPF 

EXEC  . 

TPFCOPY 

EXEC  . 

TPFMOD 

EXEC  . 

TPFSORT 

EXEC  . 

SCRR 

FACIL  . 

SCRR  * 

FAVAIL 

ASSIGN1 

FORTRAN 

ASSIGN2 

FORTRAN 

COMVRT 

FORTRAN 

DECODE 

FORTRAN 

DISPLAY 

FORTRAN 

FAC1 

FORTRAN 

FAC2 

FORTRAN 

IF1 

FORTRAN 

IF2 

FORTRAN 

IF3 

FORTRAN 

IF4 

FORTRAN 

KEND 

FORTRAN 

MODIFY 

FORTRAN 

MSG 

FORTRAN 

NCONT 

FORTRAN 

SCRRFORM 

FORTRAN 

PAGE 

. . . V-149 

. . . V-155 

. • . V-lll 

. . . V-213 

. . . V-214 

. . . V-214 

. . . V-214 

. . . V-215 

. . . V-215 

. . . V-215 

. . . V-216 

. . . V-216 

. . . VI 1-16  • 

. . . V-216  1 

• • . V-217  * 

. • • V-217 

. • . VII-72 

• • . V-218 

• • • VII-11 

• • • VI 1-32 

. . . VII-44 

• • • VII-76 

• • • VI 1-79 

• • • VI 1-7 

• • • VI 1-6 

• • • V-219 

• • • V-219 

. . . V-220 

• • • V-220 

• • • VI-31  ’ 

. . . VI-7 

• • . VI-19 

• • • VI-8 

• • . VII-17 

• • • VII-17 

. • . VI 1-57 

. . . VI 1-57 

• • • VI-26 

• • • VI-22 

• • • VI-38 

• • • VI 1-62 

• • • VI 1-63 

• • • VI 1-27 

• ■ • VI 1-30 

.•  • .•  VI 1-34 

• • • VI 1-36 

• • • VI-47 

• • • VI 1-68 

• • • VI-27 

• • • VI 1-50 

• • • VI 1-46 
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PROGRAM  NAME  PAGE 


scrrinst  Fortran vn-19 

SETSCH  FORTRAN .* VI 1-8 

SHOW  FORTRAN VI -28 

TPFMOO  FORTRAN  VI -20 

SCRR  I AVAIL  VII-17 

SCRR  INST1 VI 1-18 

SCRR  INST2 VI I -19 

F COURSE  PLI V-171 

FINST  PLI V-174 

MPGM3  PLI V-177 

PARAM  PLI VI-32 

PCOURSE  PLI V-180 

PFACIL  PLI V-185 

PGM80  PLI VI-10 

PGM93A  PLI VI 1-51 

PSM94A  PLI  vi 1-22 

PGM94B  PLI  VI I -23 

PINST  PLI V-189 

SUPRPGM  PLI V-194 

COURSE  1 RAM V-221 

C0URSE2  RAM V-221 

C0URSE3  RAM V-221 

FACIL1  RAM V-222 

FACIL2  RAM  • • • • V-222 

INST1  RAM * • V-222 

INST2  RAM • • V-222 

RE48  RAM VI -8 

RE48X  RAM VI-8 

SCRR  RUN VI 1-45 

I COMP  RUNEXEC VI 1-82 

REQMT  RUNEXEC  VI I -74 

REQMT1  RUNEXEC  VI 1-73 

REQMT2  RENEXEC  1 VI 1-75 

INDEX  RUNPROC * V-223 

M13RP  RUNPROC V-112 

M15RPA  RUNPROC  V-121 

M15RPB  RUNPROC  V-122 

M15RPC  RUNPROC  V-123 

M16RPA  RUNPROC  V-129 

M16RPB  RUNPROC  V-130 

M16RPC  RUNPROC  V-131 

M17RP  RUNPROC V-137 

M18RPA  RUNPROC  V-144 

M18RPB  RUNPROC  V-145 

M18RPC  RUNPROC  V-146 

M19RP  RUNPROC V-151 

M20RPA  RUNPROC  V-156 

M20RPB  RUNPROC  V-157 

M20RPC  RUNPROC  V-158 


